habs mit folgender procedure versucht:
Delphi-Quellcode:
procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer);
begin
if AZoomFactor = 100 then
SetMapMode(Canvas.Handle, MM_TEXT)
else
begin
SetMapMode(Canvas.Handle, MM_ISOTROPIC);
SetWindowExtEx(Canvas.Handle, 100,100, nil);
SetViewportExtEx(Canvas.Handle,AZoomFactor, AZoomFactor, nil);
end;
end;
dazu habe ich
procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer);
in den interface Bereich zu den anderen proceduren geschrieben und unten einfach den gesamten Code eingefügt und in meinem Bereich wo das Formular gedruck wird folgendes:
SetCanvasZoomFactor(Printer.canvas,70);
ABER: Das Projekt wird nochnichteinmal kompiliert.
Code:
Ungenügend Forward -oder External-Deklerationen: TForm1.SetCanvasZoomFactor