From d80c69296266a6169c0164467b748f197e11d25b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Wed, 25 Dec 2002 14:53:18 +0000
Subject: *** empty log message ***

svn path=/trunk/Framestein/; revision=308
---
 Source/fstextunit.pas | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Source/fstextunit.pas')

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 }
-- 
cgit v1.2.1