From d80c69296266a6169c0164467b748f197e11d25b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Wed, 25 Dec 2002 14:53:18 +0000
Subject: *** empty log message ***

svn path=/trunk/Framestein/; revision=308
---
 Source/fsframeunit.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'Source/fsframeunit.pas')

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);
-- 
cgit v1.2.1