| Class TcpCoord (unit cpCoord) |
TCustompanel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CMChangeCoordx(var Message: TMessage);
procedure CMChangeCoordy(var Message: TMessage);
procedure Paint;
procedure BtnClick(Sender: TObject);
procedure calculbutton;
procedure calculheight;
procedure calculwidth;
procedure couleurcroix;
function CreateButton(nom : PChar): TcpSpeedButton;
function Getflat : boolean;
function Getinitialpause: integer;
function Getrepeatpause: integer;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure nouvellescoordonnes(x,y:integer);
procedure Setcoordx (Value: integer);
procedure Setcoordy (Value: integer);
procedure SetCouleur (Value: TColor);
procedure SetCouleurcoord (Value: TColor);
procedure SetCouleurflat (Value: TColor);
procedure Setcroixstyle (value:Tcroixstyle);
procedure Setflat (value: boolean);
procedure Setinitialpause(value:integer);
procedure Setrepeatpause(value:integer);
procedure Setseparateur (value:string);
procedure Setxmax (value: integer);
procedure Setxmin (value: integer);
procedure Setxstep(value:integer);
procedure Setymax (value: integer);
procedure Setymin (value: integer);
procedure Setystep(value:integer);
procedure WMsize(var Message: TWMsize);| Properties |
property BorderStyle :
property Color :
property ColorCoord : Tcolor
property ColorFlatButton : Tcolor
property ColorZone : Tcolor
property CoordFormat : string
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Flat : boolean
property Font :
property FullRepaint :
property InitialPause : integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowhint :
property PopUpMenu :
property RepeatPause : integer
property Showhint :
property TabOrder :
property TabStop :
property Tag :
property ThumbStyle : Tcroixstyle
property Visible :
property XCoordinate : integer
property Xmax : integer
property Xmin : integer
property XStep : integer
property YCoordinate : integer
property Ymax : integer
property Ymin : integer
property YStep : integer| Events |
event OnClick :
event OnCoordChange : TCoordEvent
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag :
event OnXCoordChange : TCoordEvent
event OnYCoordChange : TCoordEvent| Variables |
f_on_coordx_change : TCoordEvent;
f_on_coordy_change : TCoordEvent;
f_on_coord_change : TCoordEvent;
Fcoordx : integer;
Fcoordy : integer;
FCouleur : Tcolor;
FCouleurcoord : Tcolor;
Fcouleurflat : Tcolor;
FCroix : Tbitmap;
Fcroixstyle : Tcroixstyle;
FDownbutton : Tcpspeedbutton;
Fhauteurcase : integer;
Flargeurcase : integer;
FLeftButton : Tcpspeedbutton;
FRightbutton : Tcpspeedbutton;
FSeparateur : string;
FUpbutton : Tcpspeedbutton;
Fxmax : integer;
Fxmin : integer;
Fxstep : integer;
Fymax : integer;
Fymin : integer;
Fystep : integer;| Constructors |
constructor Create(AOwner: TComponent);Déclarations publiques
| Functions |
destructor Destroy;
procedure CMChangeCoordx(var Message: TMessage);
procedure CMChangeCoordy(var Message: TMessage);
procedure Paint;
procedure BtnClick(Sender: TObject);
procedure calculbutton;
procedure calculheight;
procedure calculwidth;
procedure couleurcroix;
function CreateButton(nom : PChar): TcpSpeedButton;
function Getflat : boolean;
function Getinitialpause: integer;
function Getrepeatpause: integer;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure nouvellescoordonnes(x,y:integer);
procedure Setcoordx (Value: integer);
procedure Setcoordy (Value: integer);
procedure SetCouleur (Value: TColor);
procedure SetCouleurcoord (Value: TColor);
procedure SetCouleurflat (Value: TColor);
procedure Setcroixstyle (value:Tcroixstyle);
procedure Setflat (value: boolean);
procedure Setinitialpause(value:integer);
procedure Setrepeatpause(value:integer);
procedure Setseparateur (value:string);
procedure Setxmax (value: integer);
procedure Setxmin (value: integer);
procedure Setxstep(value:integer);
procedure Setymax (value: integer);
procedure Setymin (value: integer);
procedure Setystep(value:integer);
procedure WMsize(var Message: TWMsize);| Properties |
property BorderStyle :
property Color :
property ColorCoord : Tcolor
property ColorFlatButton : Tcolor
property ColorZone : Tcolor
property CoordFormat : string
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Flat : boolean
property Font :
property FullRepaint :
property InitialPause : integerDéclarations publiées
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowhint :
property PopUpMenu :
property RepeatPause : integer
property Showhint :
property TabOrder :
property TabStop :
property Tag :
property ThumbStyle : Tcroixstyle
property Visible :
property XCoordinate : integer
property Xmax : integer
property Xmin : integer
property XStep : integer
property YCoordinate : integer
property Ymax : integer
property Ymin : integer
property YStep : integer| Events |
event OnClick :
event OnCoordChange : TCoordEvent
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag :
event OnXCoordChange : TCoordEvent
event OnYCoordChange : TCoordEvent| Variables |
f_on_coordx_change : TCoordEvent;
f_on_coordy_change : TCoordEvent;
f_on_coord_change : TCoordEvent;Déclarations protégées
Fcoordx : integer;
Fcoordy : integer;
FCouleur : Tcolor;Déclarations privées
FCouleurcoord : Tcolor;
Fcouleurflat : Tcolor;
FCroix : Tbitmap;
Fcroixstyle : Tcroixstyle;
FDownbutton : Tcpspeedbutton;
Fhauteurcase : integer;
Flargeurcase : integer;
FLeftButton : Tcpspeedbutton;
FRightbutton : Tcpspeedbutton;
FSeparateur : string;
FUpbutton : Tcpspeedbutton;
Fxmax : integer;
Fxmin : integer;
Fxstep : integer;
Fymax : integer;
Fymin : integer;
Fystep : integer;