| Class TACMoveBox (unit ACMoveBox) |
TcustomLabel
***************************************************************************** * type *
| Constructors |
constructor Create(AOwner: TComponent);***************************************************************************** * Constructor *
| Functions |
destructor Destroy;
procedure disegna;
procedure down_0(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure move_0(Sender: TObject; Shift: TShiftState; X,Y: Integer);
procedure Paint;invalidate;
procedure Up_0(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
procedure WMSize(var Message: TWMSize);| Properties |
property PopUpMenu :
property visible : | Events |
event OnBoxMoved : TAC_Proc_Box_Moved| Variables |
Maniglie : Array[1..8] of TShape;
F_Box_Moved : TAC_Proc_Box_Moved;
F_Height : Integer;
F_Left : Integer;
F_Top : Integer;
F_Width : Integer;
Iniziato : Boolean;
old_x : Integer;
old_y : Integer;
premuto : Boolean;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
***************************************************************************** * Constructor *
| Functions |
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 *
| Properties |
property PopUpMenu :
property visible : | Events |
event OnBoxMoved : TAC_Proc_Box_MovedPublished declarations
| Variables |
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;