View Issue Details

IDProjectCategoryView StatusLast Update
0031898PatchesLCLpublic2017-06-07 15:14
ReporterCudaText man Assigned ToMattias Gaertner  
PrioritynormalSeverityminorReproducibilityhave not tried
Status resolvedResolutionfixed 
Product Version1.9 (SVN) 
Summary0031898: Grid horz scroll by trackpad on Mac
DescriptionThis uses ssHyper set by carbon WS.
Tested on real Mac.
TagsNo tags attached.
Fixed in Revision55265
LazTarget-
Widgetset
Attached Files

Activities

CudaText man

2017-05-23 14:25

reporter  

gr.diff (476 bytes)   
diff --git a/lcl/grids.pas b/lcl/grids.pas
index 32226ca..550dd0e 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -8540,7 +8540,9 @@ end;
 
 procedure TCustomGrid.GridMouseWheel(shift: TShiftState; Delta: Integer);
 begin
-  if ssCtrl in Shift then
+  // Mac widgetset sets ssHyper on horz scrolling
+  // Ctrl-key is for other OSes
+  if (ssCtrl in Shift) or (ssHyper in Shift) then
     MoveNextSelectable(true, Delta, 0)
   else
     MoveNextSelectable(true, 0, Delta);

gr.diff (476 bytes)   

Mattias Gaertner

2017-06-07 13:57

manager   ~0100930

Thanks!

CudaText man

2017-06-07 15:14

reporter   ~0100931

Details: with this fix, Mac trackpad can scroll horizontally in Grid controls focused.
Patch in near issue: is the same for TreeView.

Controls ListView, Memo dont need this patch, they work alredy with horz scroll.

Issue History

Date Modified Username Field Change
2017-05-23 14:25 CudaText man New Issue
2017-05-23 14:25 CudaText man File Added: gr.diff
2017-06-07 13:57 Mattias Gaertner Fixed in Revision => 55265
2017-06-07 13:57 Mattias Gaertner LazTarget => -
2017-06-07 13:57 Mattias Gaertner Note Added: 0100930
2017-06-07 13:57 Mattias Gaertner Status new => resolved
2017-06-07 13:57 Mattias Gaertner Resolution open => fixed
2017-06-07 13:57 Mattias Gaertner Assigned To => Mattias Gaertner
2017-06-07 15:14 CudaText man Note Added: 0100931