diff options
| author | Pavel Perminov <packpaul@mail.ru> | 2012-09-26 19:02:53 +0000 |
|---|---|---|
| committer | Pavel Perminov <packpaul@mail.ru> | 2012-09-26 19:02:53 +0000 |
| commit | a0f6fd68a56068a20e7186e2dd2d7daccfbce4aa (patch) | |
| tree | c729df922348c49431db745e0d694f228e53e4dc /plugins/Chess4Net/DraggedFigureUnit.pas | |
| parent | d9cd01de6dd3458ad806fdbe1d29108eda55b3e4 (diff) | |
Chess4Net_MI 2010.0 release (106 rev. truncated adjusted copy)
git-svn-id: http://svn.miranda-ng.org/main/trunk@1666 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Chess4Net/DraggedFigureUnit.pas')
| -rw-r--r-- | plugins/Chess4Net/DraggedFigureUnit.pas | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/plugins/Chess4Net/DraggedFigureUnit.pas b/plugins/Chess4Net/DraggedFigureUnit.pas new file mode 100644 index 0000000000..bbf513ae77 --- /dev/null +++ b/plugins/Chess4Net/DraggedFigureUnit.pas @@ -0,0 +1,42 @@ +unit DraggedFigureUnit;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, ExtCtrls;
+
+type
+ TDraggedFigure = class(TForm)
+ Image1: TImage;
+ procedure FormCreate(Sender: TObject);
+ procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ DraggedFigure: TDraggedFigure;
+
+implementation
+
+{$R *.dfm}
+
+procedure TDraggedFigure.FormCreate(Sender: TObject);
+begin
+ ClientWidth:= 40;
+end;
+
+
+
+procedure TDraggedFigure.Image1MouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+const SC_DRAGMOVE = $F012;
+begin ReleaseCapture;
+ Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0 );
+end;
+
+end.
|