FontDialog

[Pseudemys Nelsoni]

Dachte das er dann vielleicht selbst drauf kommt^^

also um den string wieder in Pitch zu bekommen:

Delphi-Quellcode:

function StrToPitch(s: string): TFont;
begin
  if s = 'fpDefault' then result.pitch  := fpDefault;
  if s = 'fpFixed' then result.pitch := fpFixed;
  if s = 'fpVariable' then result.pitch := fpVariable;
end;