diff options
author | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-12-25 14:53:18 +0000 |
---|---|---|
committer | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-12-25 14:53:18 +0000 |
commit | d80c69296266a6169c0164467b748f197e11d25b (patch) | |
tree | 175c79ba82527e263f200a87b2d5fcf5336e0fe5 /Source/fstextunit.pas | |
parent | fd3dcb958f9698bff9811ae57e1ff2ed1d2ea725 (diff) |
*** empty log message ***
svn path=/trunk/Framestein/; revision=308
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 }
|