3 files changed, 15 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);
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);