View Issue Details

IDProjectCategoryView StatusLast Update
0026280LazarusLazReportpublic2014-06-06 08:33
ReporterMichel TournayAssigned ToJesus Reyes 
PrioritynormalSeverityminorReproducibilityN/A
Status resolvedResolutionfixed 
Platformi386OSWindowsOS Version7Pro 64b
Product Version1.2.0Product Build 
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
  • 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)

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