aboutsummaryrefslogtreecommitdiff
path: root/Source
diff options
context:
space:
mode:
Diffstat (limited to 'Source')
-rw-r--r--Source/fsframeunit.pas10
-rw-r--r--Source/fstextunit.pas4
-rw-r--r--Source/mainunit.pas1
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);