Différences
Ci-dessous, les différences entre deux révisions de la page.
| Les deux révisions précédentes Révision précédente Prochaine révision | Révision précédente | ||
|
prog:lazarus:components:graphic [23/05/2020 13:45] thierry [La Souris] |
prog:lazarus:components:graphic [26/05/2020 19:51] (Version actuelle) thierry |
||
|---|---|---|---|
| Ligne 70: | Ligne 70: | ||
| ===== La Souris ===== | ===== La Souris ===== | ||
| + | Pour gerer la souris on peut surcharger les procedures de TControl : | ||
| + | <code delphi unit Controls> | ||
| + | TControl = class(TLCLComponent) | ||
| + | ... | ||
| + | protected | ||
| + | // key and mouse | ||
| + | procedure Click; virtual; | ||
| + | procedure DblClick; virtual; | ||
| + | procedure TripleClick; virtual; | ||
| + | procedure QuadClick; virtual; | ||
| + | function GetMousePosFromMessage(const MessageMousePos: TSmallPoint): TPoint; | ||
| + | procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); virtual; | ||
| + | procedure MouseMove(Shift: TShiftState; X,Y: Integer); virtual; | ||
| + | procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); virtual; | ||
| + | procedure MouseEnter; virtual; | ||
| + | procedure MouseLeave; virtual; | ||
| + | function DialogChar(var Message: TLMKey): boolean; virtual; | ||
| + | procedure UpdateMouseCursor(X, Y: integer); | ||
| + | |||
| + | </code> | ||
| ===== Astuces ===== | ===== Astuces ===== | ||
| Ligne 78: | Ligne 98: | ||
| screen.height | screen.height | ||
| </code> | </code> | ||
| + | == Dessiner des élément du théme == | ||
| + | voir en bas de cette page -> [[https://wiki.freepascal.org/Colors]] | ||
| ===== Sources ===== | ===== Sources ===== | ||
| * [[http://docwiki.embarcadero.com/RADStudio/Rio/fr/Utilisation_des_canevas_pour_dessiner]] | * [[http://docwiki.embarcadero.com/RADStudio/Rio/fr/Utilisation_des_canevas_pour_dessiner]] | ||