diff options
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);
|