Class TACMoveBox (unit ACMoveBox)

Inherits from

TcustomLabel

***************************************************************************** * type *

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_Moved

Published 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;



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_Moved

Published 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;