View Issue Details

IDProjectCategoryView StatusLast Update
0014575LazarusLCLpublic2009-09-14 08:38
ReporterZeljan Rikalo Assigned ToPaul Ishenin  
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionfixed 
Product Version0.9.29 (SVN) 
Target Version0.9.30Fixed in Version0.9.29 (SVN) 
Summary0014575: Some events not published for some controls (patch attached)
DescriptionThis patch publish OnMouseEnter() & OnMouseLeave() for:
TForm, TFrame, TScrollBox, TPanel, TEdit, TMaskEdit, TComboBox,
TTreeView, TListView, TProgressBar, TStatusBar, TTabSheet, TPageControl,
TToggleBox and TColorBox.

TESTED UNDER LINUX WITH gtk, gtk2 and qt (r 21678) AND WORKS OK !
So if it works with gtk I suppose that win32 and carbon won't have a single problem with this events :)
TagsNo tags attached.
Fixed in Revision21683
LazTarget0.9.30
WidgetsetGTK, GTK 2, Win32/Win64, WinCE, Carbon, QT, fpGUI
Attached Files

Activities

2009-09-13 11:38

 

mouseeventsdiff.patch (5,410 bytes)   
Index: lcl/forms.pp
===================================================================
--- lcl/forms.pp	(revision 21678)
+++ lcl/forms.pp	(working copy)
@@ -232,6 +232,8 @@
     property OnExit;
     property OnGetSiteInfo;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnMouseWheel;
@@ -310,6 +312,8 @@
     property OnExit;
     property OnGetSiteInfo;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnMouseWheel;
@@ -687,6 +691,8 @@
     property OnKeyPress;
     property OnKeyUp;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnMouseWheel;
Index: lcl/comctrls.pp
===================================================================
--- lcl/comctrls.pp	(revision 21678)
+++ lcl/comctrls.pp	(working copy)
@@ -200,6 +200,8 @@
     property OnEndDrag;
     property OnHint: TNotifyEvent read FOnHint write FOnHint;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
@@ -246,6 +248,8 @@
     property OnExit;
     property OnHide;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
@@ -342,6 +346,8 @@
     property OnGetImageIndex;
     property OnGetSiteInfo;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnPageChanged;
@@ -580,6 +586,8 @@
     property OnGetImageIndex;
     property OnGetSiteInfo;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
@@ -1197,6 +1205,8 @@
     property OnKeyPress;
     property OnKeyUp;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
@@ -1283,6 +1293,8 @@
     property OnEnter;
     property OnExit;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnStartDock;
@@ -1402,6 +1414,8 @@
     property OnEnter;
     property OnExit;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
   end;
@@ -2613,6 +2627,8 @@
     property OnKeyPress;
     property OnKeyUp;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnSelectionChanged;
Index: lcl/maskedit.pp
===================================================================
--- lcl/maskedit.pp	(revision 21678)
+++ lcl/maskedit.pp	(working copy)
@@ -269,6 +269,8 @@
     property OnKeyPress;
     property OnKeyUp;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnStartDock;
Index: lcl/colorbox.pas
===================================================================
--- lcl/colorbox.pas	(revision 21678)
+++ lcl/colorbox.pas	(working copy)
@@ -127,6 +127,8 @@
     property OnKeyPress;
     property OnKeyUp;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnStartDrag;
Index: lcl/stdctrls.pp
===================================================================
--- lcl/stdctrls.pp	(revision 21678)
+++ lcl/stdctrls.pp	(working copy)
@@ -444,6 +444,8 @@
     property OnKeyUp;
     property OnMeasureItem;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnStartDrag;
@@ -866,6 +868,8 @@
     property OnKeyPress;
     property OnKeyUp;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
@@ -1280,6 +1284,8 @@
     property OnEnter;
     property OnExit;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnStartDrag;
Index: lcl/extctrls.pp
===================================================================
--- lcl/extctrls.pp	(revision 21678)
+++ lcl/extctrls.pp	(working copy)
@@ -249,6 +249,8 @@
     property OnEnter;
     property OnExit;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
@@ -296,6 +298,8 @@
     property OnExit;
     property OnGetImageIndex;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnPageChanged;
@@ -1131,6 +1135,8 @@
     property OnGetSiteInfo;
     property OnGetDockCaption;
     property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
mouseeventsdiff.patch (5,410 bytes)   

Paul Ishenin

2009-09-13 13:32

manager   ~0030692

Thanks, applied. Please close if ok.

Zeljan Rikalo

2009-09-14 08:38

developer   ~0030702

Works fine.

Issue History

Date Modified Username Field Change
2009-09-13 11:38 Zeljan Rikalo New Issue
2009-09-13 11:38 Zeljan Rikalo File Added: mouseeventsdiff.patch
2009-09-13 11:38 Zeljan Rikalo LazTarget => -
2009-09-13 11:38 Zeljan Rikalo Widgetset => GTK, GTK 2, Win32/Win64, WinCE, Carbon, QT, fpGUI
2009-09-13 13:32 Paul Ishenin Fixed in Revision => 21683
2009-09-13 13:32 Paul Ishenin LazTarget - => 0.9.30
2009-09-13 13:32 Paul Ishenin Status new => resolved
2009-09-13 13:32 Paul Ishenin Fixed in Version => 0.9.29 (SVN)
2009-09-13 13:32 Paul Ishenin Resolution open => fixed
2009-09-13 13:32 Paul Ishenin Assigned To => Paul Ishenin
2009-09-13 13:32 Paul Ishenin Note Added: 0030692
2009-09-13 13:32 Paul Ishenin Target Version => 0.9.30
2009-09-14 08:38 Zeljan Rikalo Status resolved => closed
2009-09-14 08:38 Zeljan Rikalo Note Added: 0030702