Hi,

Attached is a minor patch fixing a spelling mistake in the TFPCustomFont class.

Graeme.
Index: packages/fcl-image/src/fpcanvas.pp
===================================================================
--- packages/fcl-image/src/fpcanvas.pp	(revision 7223)
+++ packages/fcl-image/src/fpcanvas.pp	(working copy)
@@ -98,7 +98,7 @@
     property Bold : boolean index 5 read GetFlags write SetFlags;
     property Italic : boolean index 6 read GetFlags write SetFlags;
     property Underline : boolean index 7 read GetFlags write SetFlags;
-    property StrikeTrough : boolean index 8 read GetFlags write SetFlags;
+    property StrikeThrough : boolean index 8 read GetFlags write SetFlags;
   end;
   TFPCustomFontClass = class of TFPCustomFont;
 
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to