Schriftart mit Schriftschnitt speichern

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