Delphi TFont vergleichen

Thema durchsuchen

Ansicht

Themen-Optionen

TFont vergleichen

Ein Thema von RaSoWa1 · begonnen am 3. Sep 2008 · letzter Beitrag vom 4. Sep 2008

Antwort

RaSoWa1

Registriert seit: 1. Jun 2006
Ort: Halle/Saale
140 Beiträge

Delphi 2010 Professional

Re: TFont vergleichen

3. Sep 2008, 18:52

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;