Forum: Multimedia
Delphi
by Sanchez,
12. Jan 2005
Ich hab mal schnell ein kleines Demo-Programm gebastelt, wo ein Canvas gezoomt wird.
Siehe Anhang.
Ich hab dabei aber weder auf Performance, noch auf Fehlerlosigkeit geachtet. Es soll nur zeigen, wie man es anwendet.
grüße, daniel
Forum: Multimedia
Delphi
by Sanchez,
15. Dez 2004
Hallo,
Hier mal ne Procedur, mit der du einen Canvas zoomen kannst:
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,...