n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/gr_DragPicture.pas

30 строк468 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses ABCObjects,GraphABC,PointRect,Events;

var
  s: PictureABC;
  ob: ObjectABC;

procedure MyMouseDown(x,y,mb: integer);
begin
  ob:=ObjectUnderPoint(x,y);
end;

procedure MyMouseMove(x,y,mb: integer);
begin
  if ob<>nil then
    ob.Center:=new Point(x,y);
end;

procedure MyMouseUp(x,y,mb: integer);
begin
  ob:=nil;
end;


begin
  cls;
  s:=PictureABC.Create(100,100,'demo.bmp');
  OnMouseDown:=MyMouseDown;
  OnMouseMove:=MyMouseMove;
  OnMouseUp:=MyMouseUp;
end.