TFontStyle leeren

[hoika]

Hallo,

ich habe folgenden Record Font.

Delphi-Quellcode:

type
  TMyData = record
   { font properties }
    Font: record
      Color : TColor;
      Style : TFontStyle;
    end;

Jetzt woll ich das Style leeren (könnte ja was drinstehen

Delphi-Quellcode:

var
  MyData: TMyData;
begin
  MyData.Font.Style:= [];  <-- Fehler ! ???

Fehler: Inkompatible Typen TFontStyle und Set

Das TFontStyle ist das aus Graphics (nichts eigens)


<<-- ratlos


Edit:
Ersetzen wir TFontStyle durch TFontStyles (das ist das set), klappt es.



Heiko

[worker]

TFontStyle ist eine Enumeration; Du kannst also nur einen der vorhandenen Werte setzen. Ein NULL in dem Sinne gibt es nicht.
Da eine Schriftart mehrere FontStyles gleichzeitig haben kann (z.B. Fett und Unterstrichen), musst Du auch TFontStyles als Typ setzen.

[mimi]

Du brauchst auch gar nicht TFont selbst zu erstellen. Delphi hat bereist ein Fertigen TFont Objekt.

[worker]

Zitat von mimi:

Du brauchst auch gar nicht TFont selbst zu erstellen. Delphi hat bereist ein Fertigen TFont Objekt.

Ich wette, dass er das weiß

[DeddyH]

Die Eigenschaft Style von TFont ist vom Typ TFontStyles, der Record müsste dementsprechend geändert werden.

[Muetze1]

Um 9:17 Uhr eingetragen

Zitat von hoika:

Edit:
Ersetzen wir TFontStyle durch TFontStyles (das ist das set), klappt es.

Alle Mühen umsonst...

[DeddyH]

Wieso hab ich das nicht gesehen?

[worker]

Zitat von DeddyH:

Wieso hab ich das nicht gesehen?

Um 09:28 eingetragen:

Zitat von worker:

[...] musst Du auch TFontStyles als Typ setzen.

Und wieso hast Du das nicht gesehen?

[mimi]

Zitat:

mimi hat folgendes geschrieben:
Du brauchst auch gar nicht TFont selbst zu erstellen. Delphi hat bereist ein Fertigen TFont Objekt.

Ich wette, dass er das weiß Wink

Das bezweifel ich, wenn du den Soruce-Code von oben anschaust....

[hoika]

Moin,

ja, hatte es selbst herausbekommen.
es geht hier um die Übergabe an eine DLL

-> Strings vermeiden, deshalb kein native TFont.


Heiko