Schriftart mit Schriftschnitt speichern

[oldman62]

Danke erstmal für die schnelle Unterstützung. Ja der Code von KodeZwerg bringt mich leider nicht weiter, aber Danke. Der Post von himitsu klingt schon vielversprechend aber da ich nicht so in der Materie drinstecke, könnest Du mir vieleicht die Vorgehensweise noch etwas erläutern, gerne mit etwas Code. Danke schonmal.

[himitsu]

Neee, hab nix.

Font.Handle ist ein HFONT (Font-Handle)
und LOGFONT ist die Sruktur, über welche im GDI die Fonts verwaltet/gesteuert werden.

Und GDI ist die API von Windows, welche die VCL intern verwendet, um mit Windows zu reden.

[oldman62]

Hallo, habe es Dank Eurer Hilfe erstmal so gelöst.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var LogFont: TLogFontW;
  begin
    if form1.FontDialog1.Execute then
      begin
        form1.Memo1.Lines.Clear;

        FillChar(LogFont, SizeOf(LogFont), 0);
        GetObject(form1.FontDialog1.Font.Handle, SizeOf(TLogFont), @LogFont);

        form1.Memo1.Lines.Add('FaceName:    ' + LogFont.lfFaceName);
        form1.Memo1.Lines.Add('lfWeight:    ' + IntToStr(LogFont.lfWeight));
        form1.Memo1.Lines.Add('lfItalic:    ' + IntToStr(LogFont.lfItalic));
        form1.Memo1.Lines.Add('lfUnderline: ' + IntToStr(LogFont.lfUnderline));
        form1.Memo1.Lines.Add('lfStrikeOut: ' + IntToStr(LogFont.lfStrikeOut));
      end;
  end;

Nur wie ich dem FontDialog das lfWeight wieder übergeben kann weiß ich noch nicht. Aber Danke erstmal.