Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 1999-08

[Pascal Question....]

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Michal Bukovjan
"Shane Miller" wrote
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.

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

I think that the {$HPPEMIT} has something to do with their C++ and Pascal common codebase. I think you can safely ignore that.

Show quoted text 6 lines
FontStyle : TFOnt Style; ... .. FontStyle := [fsBold]; if something then FontStyle := FontStyle + [fsItalic];

That is OK, because the FontStyle is not a set type, but enumerated type. You want to declare

var FontStyle : TFontStyles;

Michal Bukovjan

Show quoted text 13 lines
but I keep getting... Error: Opeerator is not overloaded. Thoughts? Shane _________________________________________________________________ To unsubscribe: mail with "unsubscribe" as the Subject archives at http://www.miraclec.com/list_archives/lazarus

Reply by email