Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Zoom in einer Paintbox!

    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

  Re: Zoom in einer Paintbox!

    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,...