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

Hallo Klaus

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

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.

markieren

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

Zitat von RaSoWa1:

markieren

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