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;