Zoom in einer Paintbox!

[Sanchez]

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