Thema: Delphi FontDialog

Einzelnen Beitrag anzeigen

dopeline

Registriert seit: 7. Mär 2003
Ort: Berlin
304 Beiträge
 
Delphi 7 Enterprise
 
#18

Re: FontDialog

  Alt 20. Dez 2003, 14:24
ich habe auch mal eine frage: wie kann ich die anderen fontoptionen in der ini mitspeichern?

Delphi-Quellcode:
procedure TFormOptionen.BitBtn1Click(Sender: TObject);
var settings : TIniFile;

begin
 settings := TIniFile.Create(ExtractFilePath(ParamStr(0))+'\FontSettings.ini');
 try
  if FontDialogTabelle.Execute then
  begin
   settings.WriteString('Font', 'Color', FontDialogTabelle.Font.Color);
   settings.WriteString('Font', 'Size', FontDialogTabelle.Font.Size);
   settings.WriteString('Font', 'Name', FontDialogTabelle.Font.Name);
   settings.WriteString('Font', 'Charset', FontDialogTabelle.Font.Charset);
   settings.WriteString('Font', 'Pitch', FontDialogTabelle.Font.Pitch);
   settings.WriteString('Font', 'Style', FontDialogTabelle.Font.Style);
  end;
 finally
  settings.Free;
 end;
end;
ich bekommen da immer fehlermeldungen:
Code:
Inkompatible Typen: 'String' und 'TColor'
Inkompatible Typen: 'String' und 'Integer'
Inkompatible Typen: 'String' und 'TFontCharset'
Inkompatible Typen: 'String' und 'TFontPitch'
Inkompatible Typen: 'String' und 'TFontStyles'
woran liegt das? und wie behebe ich die fehler?


Gruß, dopeline
  Mit Zitat antworten Zitat