font im memo?

[tom_po]

danke wiedermal, marabu, hab's jetzt so:

Delphi-Quellcode:

procedure Takn.Label5Click(Sender: TObject);
  begin
   with FontDialog1 do
    begin
    Font.Assign(Memo1.Font);
    if Execute then
    Memo1.Font.Assign(Font);
    end;
  end;

aber sag mal, wieso ist das so besser?

ich stelle ja das pdf-file mit meiner tnpdf-Komponente dar, wenn ich aber jetzt den Font aus meiner Memo übernehmen will gibt's ne Fehlermeldung:

Delphi-Quellcode:

//printpdf1.Font.Name:=pohelvetica;
//printPDF1.Font.Size:=20;
printPDF1.Font := memo1.font;
printPDF1.MemoOut(30,940, Memo1);

Message beim Kompilieren:
[Fehler] AknUni.pas(263): Inkompatible Typen: 'TPDFFont' und 'TFont'

der Font-Teil des tnpdf sieht so aus:

Delphi-Quellcode:

Type TPDFOrientation = (poPortrait, poLandscape);
Type TPDFBrushStyle = (poSolid,  poDashed, poBeveled, poInset, poUnderline);
Type TPDFFontName = (poHelvetica,poHelveticaBold,poHelveticaOblique,
poHelveticaBoldOblique,poCourier,poCourierBold,poCourierOblique,
poCourierBoldOblique,poTimesRoman,poTimesBold,poTimesItalic,
poTimesBoldItalic,poSymbol,poZapfDingbats);

type TPDFFont = class
public
Name:TPDFFontName;
Size:Integer;
end;