Class TACMoveBox (unit ACMoveBox) |
Inherits from
TcustomLabel
*****************************************************************************
* type *
constructor Create(AOwner: TComponent);
- Public declarations
*****************************************************************************
* Constructor *
destructor Destroy;
*****************************************************************************
* Destructor *
procedure disegna;
*****************************************************************************
* Disegna *
procedure down_0(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
*****************************************************************************
* Down_o *
procedure move_0(Sender: TObject; Shift: TShiftState; X,Y: Integer);
*****************************************************************************
* Move_o *
procedure Paint;
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LButtonDown; invalidate;
procedure Up_0(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
*****************************************************************************
* up_o *
procedure WMSize(var Message: TWMSize);
*****************************************************************************
* Wm_Size *
property PopUpMenu :
property visible :
event OnBoxMoved : TAC_Proc_Box_Moved
Published declarations
Maniglie : Array[1..8] of TShape;
Protected declarations
F_Box_Moved : TAC_Proc_Box_Moved;
F_Height : Integer;
F_Left : Integer;
F_Top : Integer;
F_Width : Integer;
Private declarations
Iniziato : Boolean;
old_x : Integer;
old_y : Integer;
premuto : Boolean;
constructor Create(AOwner: TComponent);
Public declarations
*****************************************************************************
* Constructor *
destructor Destroy;
*****************************************************************************
* Destructor *
procedure disegna;
*****************************************************************************
* Disegna *
procedure down_0(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
*****************************************************************************
* Down_o *
procedure move_0(Sender: TObject; Shift: TShiftState; X,Y: Integer);
*****************************************************************************
* Move_o *
procedure Paint;
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LButtonDown;
invalidate;
procedure Up_0(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
*****************************************************************************
* up_o *
procedure WMSize(var Message: TWMSize);
*****************************************************************************
* Wm_Size *
property PopUpMenu :
property visible :
event OnBoxMoved : TAC_Proc_Box_Moved
Published declarations
Maniglie : Array[1..8] of TShape;
Protected declarations
F_Box_Moved : TAC_Proc_Box_Moved;
F_Height : Integer;
F_Left : Integer;
F_Top : Integer;
F_Width : Integer;
Private declarations
Iniziato : Boolean;
old_x : Integer;
old_y : Integer;
premuto : Boolean;