diff options
Diffstat (limited to 'plugins/!NotAdopted/Chess4Net/DraggedFigureUnit.pas')
-rw-r--r-- | plugins/!NotAdopted/Chess4Net/DraggedFigureUnit.pas | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/plugins/!NotAdopted/Chess4Net/DraggedFigureUnit.pas b/plugins/!NotAdopted/Chess4Net/DraggedFigureUnit.pas deleted file mode 100644 index 780e3bb840..0000000000 --- a/plugins/!NotAdopted/Chess4Net/DraggedFigureUnit.pas +++ /dev/null @@ -1,48 +0,0 @@ -////////////////////////////////////////////////////////////////////////////////
-// All code below is exclusively owned by author of Chess4Net - Pavel Perminov
-// (packpaul@mail.ru, packpaul1@gmail.com).
-// Any changes, modifications, borrowing and adaptation are a subject for
-// explicit permition from the owner.
-
-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.
|