TFont vergleichen

[RaSoWa1]

Hallo allerseits,

Ich muß feststellen ob Font1 = Font2 ist.
Da es so nicht geht, meine Frage:

Muß ich jede Eigenschaft einzeln prüfen, oder geht das auch einfacher?

Gruß
Klaus

[toms]

Hallo Klaus

Man könnte die TFont Objekte in einen Stream speichern und dann die Streams per CompareMem vergleichen.

[RaSoWa1]

Danke für deine Antwort.

Ich hatte auf eine, in der Delphi-Hilfe oder Windows-APi versteckte Funktion gehofft.
Ich habe mir deshalb selbst eine geschrieben.

Delphi-Quellcode:

function IdentischeFonts(ft1, ft2: TFont): Boolean;
begin
  result := (ft1.Name = ft2.Name) and (ft1.Height = ft2.Height)
             and (ft1.Style = ft2.Style) and (ft1.Color = ft2.Color);
end;

Ist, so glaube ich, die einfachste Lösung.

Einen schönen Abend noch.
Gruß Klaus

[Reinhard Kern]

Zitat von RaSoWa1:

Delphi-Quellcode:

function IdentischeFonts(ft1, ft2: TFont): Boolean;
begin
  result := (ft1.Name = ft2.Name) and (ft1.Height = ft2.Height)
             and (ft1.Style = ft2.Style) and (ft1.Color = ft2.Color);
end;

Hallo,

Anmerkung 1: wenn schon, dann alle Eigenschaften vergleichen - um 90 Grad gedrehte Fonts werden z.B. nicht erkannt. Ist aber kein Problem, bloss Fleissarbeit.

Anmerkung 2: im Windows-System (also geladene Fonts) stimmt das so - aber TTF-Dateien mit gleichem Header, aber verschiedenen Outlines werden nicht erfasst. Andrerseits auch keine Dateien mit gleichen Zeichen, aber verschiedenen Namen.

Gruss Reinhard