[GB.FORM]

* BUG: DocumentView: WorkAround to lock scrolling on mouseWheel


git-svn-id: svn://localhost/gambas/trunk@8018 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.form/.info

@@ -1170,6 +1170,10 @@ View_MouseWheel
 m
 
 
+Obs_MouseWheel
+m
+
+
 _GetItemWidth
 m
 i

comp/src/gb.form/.project

@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
 # Compiled with Gambas 3.9.90
 Title=More controls for graphical components
-Startup=FTestFileView
+Startup=FDocumentView
 Version=3.9.90
 VersionFile=1
 Component=gb.image

comp/src/gb.form/.src/DocumentView/DocumentView.class

@@ -72,6 +72,7 @@ Private $iSX As Integer
 Private $iSY As Integer
 Private $MX As Integer
 Private $MY As Integer
+Private $hObs As Observer
 
 Event Layout(Page As Integer)
 Event Draw(Page As Integer, Width As Integer, Height As Integer)
@@ -85,7 +86,7 @@ Public Sub _new()
   $tmrLoad.Delay = 1
   Me.Proxy = $hView
   $hDocItem = New _DocumentItem As "Doc"
-  
+  $hObs = New Observer($hView.View) As "Obs"
 End
 
 Public Sub tmrLoad_Timer()
@@ -704,6 +705,18 @@ Public Sub View_MouseWheel()
   
 End
 
+'WorkAround to lock Scrolling when contol key is pressed
+Public Sub Obs_MouseWheel()
+  
+  If Mouse.Control Then
+    $hView.UseMouse = False
+  Else
+    $hView.UseMouse = True
+  Endif
+  
+End
+
+
 Public Function Find(X As Integer, Y As Integer) As Integer
   
   Dim iRow, iCol As Integer

comp/src/gb.form/.src/Test/FDocumentView.class

@@ -13,7 +13,7 @@ End
 
 Public Sub Form_Open()
   
-  hpdf.Open("/home/fabien/Downloads/Tuto, doc et RFC/05-005_Web_Map_Context_Documents_Implementation_Specification.pdf")
+  hpdf.Open("/home/fabien/Downloads/cerfa_14952-01.pdf")
   'hpdf.Open("~/René Guénon - 1945 - Caïn et Abel (Le Règne de la Quantité et les Signes des Temps).pdf")
   DV.Count = hpdf.Count
   DV2.Count = 0