Browse Source

Added more events in controls.

lainz 10 years ago
parent
commit
5d031cac6a
3 changed files with 16 additions and 0 deletions
  1. 3 0
      bcbutton.pas
  2. 10 0
      bclabel.pas
  3. 3 0
      bcpanel.pas

+ 3 - 0
bcbutton.pas

@@ -307,6 +307,9 @@ type
     property OnMouseLeave;
     property OnMouseLeave;
     property OnMouseMove;
     property OnMouseMove;
     property OnMouseUp;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property ParentColor;
     property ParentColor;
     property PopupMenu;
     property PopupMenu;
     { Change the style of the rounded corners of the button. }
     { Change the style of the rounded corners of the button. }

+ 10 - 0
bclabel.pas

@@ -128,6 +128,16 @@ type
     property Top;
     property Top;
     property Visible;
     property Visible;
     property Width;
     property Width;
+    property OnClick;
+    property OnDblClick;
+    property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
+    property OnMouseMove;
+    property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
   end;
   end;
 
 
 procedure Register;
 procedure Register;

+ 3 - 0
bcpanel.pas

@@ -165,6 +165,9 @@ type
     property OnMouseLeave;
     property OnMouseLeave;
     property OnMouseMove;
     property OnMouseMove;
     property OnMouseUp;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnResize;
     property OnResize;
     property OnStartDock;
     property OnStartDock;
     property OnStartDrag;
     property OnStartDrag;