diff options
Diffstat (limited to 'Source/fstextunit.pas')
| -rw-r--r-- | Source/fstextunit.pas | 4 |
1 files changed, 4 insertions, 0 deletions
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 }
|