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