Class TcpCoord (unit cpCoord)

Inherits from

TCustompanel

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 : integer

Dé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;



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 : integer

Dé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;