On Sun, 23 Apr 2006 01:37:01 +0330, roozbeh gholizadeh
<[EMAIL PROTECTED]> wrote:
Here is another patch.
makes labels,brushes work.
Well i forgot this patch for graphics.pp.
it is related to a bug in fpc-which sometimes causes datatype
misalignment,and becouse now labels are geting paint message,programs with
labels without removal of packed record from ttextstyle will crash.
that {$packrecords c} i dont know if yet needed but it as far as i
remember i added that and fixed some other bugs but related to ttextstyle
too but maybe with removal of packed record it might nomore be needed.
on chat on irc ppl suggested there was no use for packing that record and
it could be safely removed,anyway i have no opinion about that.
Index: graphics.pp
===================================================================
--- graphics.pp (revision 9144)
+++ graphics.pp (working copy)
@@ -31,7 +31,11 @@
{$ASSERTIONS ON}
{$endif}
+{$IFDEF wince}
+{$PACKRECORDS c}
+{$ENDIF}
+
uses
SysUtils, Types, Classes, Contnrs, FPCAdds,
FPImage, FPReadPNG, FPWritePNG, FPReadBMP, FPWriteBMP, FPReadPNM,
FPWritePNM,
@@ -79,7 +83,8 @@
{ Reflects text style when drawn in a rectangle }
TTextLayout = (tlTop, tlCenter, tlBottom);
- TTextStyle = packed record
+// TTextStyle = packed record
+ TTextStyle = record
Alignment : TAlignment; // TextRect Only: horizontal alignment
Layout : TTextLayout; // TextRect Only: vertical alignment
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
