Fontname und Fontsize eines TPRLabel ermitteln

[DeddyH]

Moin Tom, ganz einfach:

Delphi-Quellcode:

case PRLabel.Fontname of
  fnFixedWidth: cmb_fonts.Text := 'Fixed Width';
  fnArial     : cmb_fonts.Text := 'Arial';
  fnTimesRoman: cmb_fonts.Text := 'Times Roman';
end;