View Issue Details

IDProjectCategoryView StatusLast Update
0026280LazarusLazReportpublic2014-06-06 08:33
ReporterMichel Tournay Assigned ToJesus Reyes  
PrioritynormalSeverityminorReproducibilityN/A
Status resolvedResolutionfixed 
Platformi386OSWindows 
Product Version1.2.0 
Target Version1.2.4Fixed in Version1.3 (SVN) 
Summary0026280: Adding CTRL+Wheel event for zoom in & zoom out
DescriptionNice functionnality, present in all modern software and so simple to implement

regards
TagsNo tags attached.
Fixed in Revision45371
LazTarget1.2.4
Widgetset
Attached Files

Activities

Michel Tournay

2014-06-05 14:21

reporter  

lr_view.pas.patch (1,170 bytes)   
Index: lr_view.pas
===================================================================
--- lr_view.pas	(r�vision 45356)
+++ lr_view.pas	(copie de travail)
@@ -853,10 +853,13 @@
 procedure TfrPreviewForm.MouseWheelDown(Sender: TObject; Shift: TShiftState;
   MousePos: TPoint; var Handled: Boolean);
 begin
-  if ssShift in Shift then
-    ScrollbarDelta(VScrollbar.SmallChange, 0)
+  if ssCtrl in shift then
+    BtZoomoutClick(sender)
   else
-    ScrollBarDelta(VScrollbar.LargeChange, 0);
+    if ssShift in Shift then
+      ScrollbarDelta(VScrollbar.SmallChange, 0)
+    else
+      ScrollBarDelta(VScrollbar.LargeChange, 0);
   Handled := True;
 end;
 
@@ -863,10 +866,13 @@
 procedure TfrPreviewForm.MouseWheelUp(Sender: TObject; Shift: TShiftState;
   MousePos: TPoint; var Handled: Boolean);
 begin
-  if ssShift in Shift then
-    ScrollbarDelta(-VScrollbar.SmallChange, 0)
+  if ssCtrl in shift then
+    BtZoomInClick(sender)
   else
-    ScrollBarDelta(-VScrollbar.LargeChange, 0);
+    if ssShift in Shift then
+      ScrollbarDelta(-VScrollbar.SmallChange, 0)
+    else
+      ScrollBarDelta(-VScrollbar.LargeChange, 0);
   Handled := True;
 end;
 
lr_view.pas.patch (1,170 bytes)   

Jesus Reyes

2014-06-06 08:33

developer   ~0075498

Applied, thanks.

Issue History

Date Modified Username Field Change
2014-06-05 14:21 Michel Tournay New Issue
2014-06-05 14:21 Michel Tournay File Added: lr_view.pas.patch
2014-06-05 18:41 Jesus Reyes Assigned To => Jesus Reyes
2014-06-05 18:41 Jesus Reyes Status new => assigned
2014-06-06 08:33 Jesus Reyes Fixed in Revision => 45371
2014-06-06 08:33 Jesus Reyes LazTarget => 1.2.4
2014-06-06 08:33 Jesus Reyes Note Added: 0075498
2014-06-06 08:33 Jesus Reyes Status assigned => resolved
2014-06-06 08:33 Jesus Reyes Fixed in Version => 1.3 (SVN)
2014-06-06 08:33 Jesus Reyes Resolution open => fixed
2014-06-06 08:33 Jesus Reyes Target Version => 1.2.4