[lazarus] Pascal Question....

Shane Miller SMiller1 at stvgb.org
Wed Aug 11 13:44:19 EDT 1999


Can someone look at delphi's Graphics.pas file and go to the definition for TFontStyle.  Please explain to me what the NODEFINE is doing there.

TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
{$NODEFINE TFONTSTYLE}
TFOntStyles = set of TFontStyle;
...
...
I'm trying to do this in code...

FontStyle : TFOnt Style;
...
..
FontStyle := [fsBold];
if something then FontStyle := FontStyle + [fsItalic];

but I keep getting...
Error: Opeerator is not overloaded.


Thoughts?
Shane







More information about the Lazarus mailing list