*** empty log message ***

svn path=/trunk/Framestein/; revision=308

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