Hallo,
Hier mal ne Procedur, mit der du einen Canvas zoomen kannst:
Delphi-Quellcode:
procedure SetCanvasZoomFactor(_Canvas: TCanvas; _ZoomFactor: Integer);
begin
if _ZoomFactor = 100 then begin
SetMapMode(_Canvas.Handle, MM_TEXT);
end else begin
SetMapMode(_Canvas.Handle, MM_ISOTROPIC);
SetWindowExtEx(_Canvas.Handle, _ZoomFactor, _ZoomFactor, nil);
SetViewportExtEx(_Canvas.Handle, 100, 100, nil);
end;
end;
Um jetzt einen bestimmten Bereich zu erfassen, würde ich die Paintbox in eine Scrollbox packen. Dann sollte das ganze kein Problem darstellen.
grüße, daniel