Class TmeiDragBlotter (unit Dragblot)

Inherits from

TPanel

Constructors


constructor Create(AOwner: TComponent);

1.


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;



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;