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 ++++++++++
 Source/fstextunit.pas  |  4 ++++
 Source/mainunit.pas    |  1 +
 3 files changed, 15 insertions(+)

(limited to 'Source')

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);
diff --git a/Source/fstextunit.pas b/Source/fstextunit.pas
index 92230db..f526d9d 100644
--- a/Source/fstextunit.pas
+++ b/Source/fstextunit.pas
@@ -89,6 +89,10 @@ begin
     Canvas.Font.Name := Copy(S, Length(s1)+2, 255);
     Result := True;
   end else
+  if s1='WIDTH' then begin
+    Canvas.Pen.Width := MyStrToInt(ExtractWord(2, S, [' ']));
+    Result := True;
+  end else
 end;
 
 { Tfstext }
diff --git a/Source/mainunit.pas b/Source/mainunit.pas
index 797b125..1b2a6e1 100644
--- a/Source/mainunit.pas
+++ b/Source/mainunit.pas
@@ -67,6 +67,7 @@ type
     { Private declarations }
     SocketMem: Pointer;
     fbmp: TFastDIB;
+
     procedure LoadRegSettings;
     procedure ParsePrim(const S: String);
     procedure FreeIfCompExists(const S: String);
-- 
cgit v1.2.1