Class TmeiDragBlotter (unit Dragblot) |
Inherits from
TPanel
constructor Create(AOwner: TComponent);
-
1.
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Following code is by Casey Charlton 1/12/95
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Paint;
Align := alClient removed by Casey Charlton
property MoveWho : TWhoToMove
FMoveWho : TWhoToMove;
MoveRect : TRect;
Moving : Boolean;
OldLeft : Integer;
OldTop : Integer;
OldX : Integer;
OldY : Integer;
ScreenDC : HDC;
constructor Create(AOwner: TComponent);
1. A way to get the component to know what events should
trigger it
2. A way to get it to paint at design time
3. A color property
4. A way to publish the PaintBlotter method.
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Following code is by Casey Charlton 1/12/95
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Paint;
Align := alClient removed by Casey Charlton
property MoveWho : TWhoToMove
FMoveWho : TWhoToMove;
MoveRect : TRect;
Moving : Boolean;
OldLeft : Integer;
OldTop : Integer;
OldX : Integer;
OldY : Integer;
ScreenDC : HDC;