FontDialog

[Pseudemys Nelsoni]

also ich habs nochmal versucht...

die werte die bei dir nicht gingen, musst du vorher mit "IntToStr" umwandeln

dann gehts

[dopeline]

also bei font.pitch und font.styte funktioniert die varianta mit IntToStr nicht, leider... welche nehme ich da?


Gruß, dopeline

[Pseudemys Nelsoni]

keine ahnung ob delphi das umwandeln kann, aber du kannst dir auch selbst eine funktion schreiben die das umwandelt.

Delphi-Quellcode:

function PitchToStr(f: TFont): string;
begin
  if f.Pitch = fpDefault then result := 'fpDefault';
  if f.Pitch = fpFixed then result := 'fpFixed';
  if f.Pitch = fpVariable then result := 'fpVariable';
end;

und dann müsste das mit:

settings.WriteString('Font', 'Pitch', PitchToStr(FontDialogTabelle.Font)); gehen

[Robert_G]

Die Farben bekommt ihr mit "ColorToString" in einen String und mit "StringToColor" wieder zurück konvertiert.
Außerdem könntest du ja noch ein Umkehrung von "PitchToStr" zum Auslesen aus der Ini schreiben.

Gruß Robert

[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;