diff options
author | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-12-25 14:53:18 +0000 |
---|---|---|
committer | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-12-25 14:53:18 +0000 |
commit | d80c69296266a6169c0164467b748f197e11d25b (patch) | |
tree | 175c79ba82527e263f200a87b2d5fcf5336e0fe5 /Source/fsframeunit.pas | |
parent | fd3dcb958f9698bff9811ae57e1ff2ed1d2ea725 (diff) |
*** empty log message ***
svn path=/trunk/Framestein/; revision=308
Diffstat (limited to 'Source/fsframeunit.pas')
-rw-r--r-- | Source/fsframeunit.pas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Source/fsframeunit.pas b/Source/fsframeunit.pas index ccaafbf..f5a3e1f 100644 --- a/Source/fsframeunit.pas +++ b/Source/fsframeunit.pas @@ -720,13 +720,23 @@ begin end;
procedure Tfsframe.Borders(const Yes: Boolean);
+var
+ w, h: Integer;
begin
_prefx;
d1.Hide;
+
+ w := ClientWidth; // need to restore dimensions after changing border
+ h := ClientHeight;
+
if Yes and (ParentWindow=0) then
BorderStyle := bsSizeable
else
BorderStyle := bsNone;
+
+ ClientWidth := w;
+ ClientHeight := h;
+
d1.Show;
d1.Initialize;
_postfx(fx1);
|