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