Guest User

Untitled

a guest
Oct 20th, 2013
197
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TMainForm.trckbrZoomChange(Sender: TObject);
  2. var
  3.   bitmap: TBitmap;
  4. begin
  5.    bitmap := TBitmap.Create;
  6.   try
  7.     bitmap.Assign(MainForm.imgMain.Picture.Bitmap);
  8.     SetCanvasZoomAndRotation(bitmap.Canvas, trckbrZoom.Position, trckbrZoom.Position, trckbrZoom.Position, trckbrZoom.Position);
  9.     Canvas.Draw(MainForm.imgMain.Left,MainForm.imgMain.Top, bitmap);
  10.    finally
  11.     bitmap.Free
  12.   end;
  13. end;
RAW Paste Data