Charset nach String und zurück ?

Für Fragen von Einsteigern und Programmieranfängern...

Charset nach String und zurück ?

Beitragvon DL3AD » 16. Dez 2017, 11:22 Charset nach String und zurück ?

Hallo,
ich möchte Font Eigenschaften eines Form wegspeichern und auch wieder zurückschreiben.
Dabei tritt ein Problem auf.
Code: Alles auswählen
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Schriftart  : string;
  Schriftgr   : string;
  Schriftfarbe: string;
begin
  if FontDialog1.Execute then
  begin
    Schriftart  := FontDialog1.Font.CharSet.ToString;//<= funktioniert nicht
    Schriftgr   := FontDialog1.Font.Height.ToString;
    Schriftfarbe:= ColorToString(FontDialog1.Font.Color);
  end;
 
  //Schriftart Schriftgr Schriftfarbe abspeichern und Lesen aus ini Datei
 
  Form1.Font.CharSet:= Schriftart;//<= wie CharSet aus string machen ?
  Form1.Font.Height := StrToInt(Schriftgr);
  Form1.Font.Color  := StringToColor(Schriftfarbe);
end;
 

Was Mache ich hier falsch ?

Gruß Frank
DL3AD
 
Beiträge: 368
Registriert: 13. Sep 2013, 11:07
Wohnort: Rügen
OS, Lazarus, FPC: Win7 (L 1.8.0 FPC 3.0.4) und Debian Stretch (L 1.8.0 FPC 3.0.4) | 
CPU-Target: 32Bit/64Bit
Nach oben

Beitragvon m.fuchs » 16. Dez 2017, 12:18 Re: Charset nach String und zurück ?

Du benutzt den Helper .ToString, aber der ist für TFontCharSet wohl nicht definiert. Nimm doch einfach IntToStr.
Software, Bibliotheken, Vorträge und mehr: https://www.ypa-software.de
m.fuchs
 
Beiträge: 1963
Registriert: 22. Sep 2006, 18:32
Wohnort: Berlin
OS, Lazarus, FPC: Winux (L 1.8.4, FPC 3.0.4) | 
CPU-Target: x86, x64, arm
Nach oben

Beitragvon wp_xyz » 16. Dez 2017, 13:08 Re: Charset nach String und zurück ?

Außerdem bezweifle ich, ob Font.Charset das ist, was du willst. Meinst du vielleicht nicht doch eher Font.Name? Außerdem fehlt in der Liste noch Font.Style, das auf jeden Fall häufiger verändert wird als Font.Charset:

Code: Alles auswählen
uses
  TypInfo;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetSetProp(Label1.Font, 'Style', true);
  SetSetProp(Label2.Font, 'Style', Caption);
end
wp_xyz
 
Beiträge: 2616
Registriert: 8. Apr 2011, 08:01

Beitragvon DL3AD » 16. Dez 2017, 13:13 Re: Charset nach String und zurück ?

... jaaa - Font.Name ist es - DANKE !
DL3AD
 
Beiträge: 368
Registriert: 13. Sep 2013, 11:07
Wohnort: Rügen
OS, Lazarus, FPC: Win7 (L 1.8.0 FPC 3.0.4) und Debian Stretch (L 1.8.0 FPC 3.0.4) | 
CPU-Target: 32Bit/64Bit
Nach oben

• Themenende •

Zurück zu Einsteigerfragen



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

porpoises-institution
accuracy-worried