Différences

Ci-dessous, les différences entre deux révisions de la page.

--- prog:lazarus:components:graphic [06/04/2020 19:50]
thierry [Autres fonctions]
+++ prog:lazarus:components:graphic [26/05/2020 19:51] (Version actuelle)
thierry
@@ Ligne 5: / Ligne 5: @@
 ===== Les ScrollBars =====
+  * [[prog:lazarus:components:scrollbars]]
 ==== Affichage ====
@@ Ligne 67: / Ligne 68: @@
+===== 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 =====
@@ Ligne 75: / Ligne 98: @@
   screen.height
 </code>
+== Dessiner des élément du théme ==
+ voir en bas de cette page -> [[https://wiki.freepascal.org/Colors]]
 ===== Sources =====
   * [[http://docwiki.embarcadero.com/RADStudio/Rio/fr/Utilisation_des_canevas_pour_dessiner]]