| Class TmeiDragBlotter (unit Dragblot) |
TPanel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Paint;| Properties |
property MoveWho : TWhoToMove| Events |
| Variables |
FMoveWho : TWhoToMove;
MoveRect : TRect;
Moving : Boolean;
OldLeft : Integer;
OldTop : Integer;
OldX : Integer;
OldY : Integer;
ScreenDC : HDC;| Constructors |
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.
| Functions |
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
| Properties |
property MoveWho : TWhoToMove| Events |
| Variables |
FMoveWho : TWhoToMove;
MoveRect : TRect;
Moving : Boolean;
OldLeft : Integer;
OldTop : Integer;
OldX : Integer;
OldY : Integer;
ScreenDC : HDC;