Hallo Zusammen,
hat jemand mal ein einfaches Beispiel, wie so etwas funktioniert?
Wenn ich z.B. die Schrift von einem Memo-Feld ändern möchte, wie müsste ich das mit einer externen Datei machen?
Memo1.Font.Size:=12;
Oder wie kann ich eine Print-Procedure in eine externe Datei auslagern?
Delphi-Quellcode:
procedure TForm_Main.Etikett_drucken;
var R: TRect;
Links, Oben: integer;
begin
Links:=50;
Oben:=100;
Printer.BeginDoc;
//Printer.NewPage;
Printer.Title:='Ausweis';
Printer.Canvas.StretchDraw(rect(Links,Oben,1550,140+Oben),Image_Logo.Picture.Graphic);
Printer.Canvas.Font.Size := 12; // Schriftgröße 15
Printer.Canvas.Font.Name := 'Verdana'; // Schriftart Verdana
Printer.Canvas.Font.Style:=[fsUnderline];
Printer.Canvas.TextOut(Links, Oben+150, 'Besucher-Ausweis');
Printer.Canvas.Font.Size := 12; // Schriftgröße 12
Printer.Canvas.Font.Style:=[fsBold];
Printer.EndDoc;
Ich habe hier keine Idee - kann mir jemand einen Hinweis/MiniBeispiel geben?
Vielen Dank
Patrick