Mehrfaches MouseWheel Ereignis

[lzuser]

Win 10, Laz 1.6
Übliches Ziel: MouseWheel über einem Image (in Scrollbox auf Formular) soll das Image und die beinhaltete Grafik vergrößern.
Wenn ich das Rad nur ein Raster bewege - egal in welcher Geschw., wird das Wheel-Ereignis aber 3 mal ausgelöst, so dass meine Proportionalrechnung nicht mehr stimmt.
In einem vorhandenen Grafik-Programm funktioniert es: bei jedem Raster-Dreh genau eine Stufe.

Was läuft da falsch? Was habe ich evtl. nicht verstanden?
Danke

[Nixsager]

Hi

Ich habe Win 7 und Lazarus 1.6, und habe es mit folgendem Code getestet. Die Variabel 'TI' ist eine globale Uint32-Variabel.
Und der Wert ändert sich bei mir um 1 je Mausrad-Klick.
Ich würde mal vermuten es liegt erstens an deiner Mauseinstellung, oder an dem Zusammenspiel mit Lazarus und Win 10.

Code: Alles auswählen

 
procedure TForm1.Image1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Dec(TI);
  Form1.ScrollBar1.Position:=TI;
  Form1.Canvas.TextOut(0,0,'                                                            ');
  Form1.Canvas.TextOut(0,0,'Image-MouseWheel-Wert: ' + IntToStr(TI));
  Form1.Canvas.TextOut(0,15,'                                                            ');
  Form1.Canvas.TextOut(0,15,'ScrollBar-Postion-Wert: ' + IntToStr(ScrollBar1.Position));
end;
 
procedure TForm1.Image1MouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Inc(TI);
  Form1.ScrollBar1.Position:=TI;
  Form1.Canvas.TextOut(0,0,'                                                            ');
  Form1.Canvas.TextOut(0,0,'Image-MouseWheel-Wert: ' + IntToStr(TI));
  Form1.Canvas.TextOut(0,15,'                                                            ');
  Form1.Canvas.TextOut(0,15,'ScrollBar-Postion-Wert: ' + IntToStr(ScrollBar1.Position));
end;
 

Gruß vom Nixsager

[Socke]

Wenn ich das Rad nur ein Raster bewege - egal in welcher Geschw., wird das Wheel-Ereignis aber 3 mal ausgelöst, so dass meine Proportionalrechnung nicht mehr stimmt.
In einem vorhandenen Grafik-Programm funktioniert es: bei jedem Raster-Dreh genau eine Stufe.

Was läuft da falsch? Was habe ich evtl. nicht verstanden?

In den Windows-Einstellungen zum Mausrad kann eingestellt werden, wie viele Zeilen mit einem Rasterschritt gescrollt werden sollen; der Standardwerte beträgt 3 Zeilen. Diese kannst du über Mouse.WheelScrollLines (Unit Controls) abfragen.

P.S. In dem Event OnMouseWheel gibt es den Parameter WheelDelta, über den auch die Drehrichtung erfasst werden kann. Bei mir war dieser jedoch (unabhängig von den Windows Einstellungen) immer +/-960.

[martin_frb]

960 erscheint mir sehr hoch....

IIRC ist der default 60 (aber kann mich irren). 60 = 1 click.

Wenn eine Mouse z.b halbe clicks reported, dann waere der Wert 30. Die App muss den Wert ueber mehrere Events addieren, und jesdesmal wenn 60 voll sind, ist das 1 click (120 = 2 click)

[Socke]

960 erscheint mir sehr hoch....

Zumindest war 960 der Wert, den mir der Debugger in OnMouseWheel gezeigt hat.

[lzuser]

Win10, Laz 1.6
So, zur Information: Ich habe mein System daraufhin getestet.
Einstellung der Maus auf _1_ Zeile blättern und sogar Neustart des Rechners
keine Änderung im Programm: Bei _1_ Rasterbewegung wird das Ereignis MouseWheelUp oder -Down immer noch _3_ mal ausgelöst.
Ebenso übrigens das Ereignis MouseWheel auch 3 mal. Dabei werden mir als WheelDelta 120, 960, 120 oder die entsprechenden negativen Werte angezeigt.
Mein Browserfenster - z.B. hier das LazForum - scrollt jetzt aber wie eingestellt entsprechend langsamer beim Mausrad-Drehen.
Die Einstellung muss ich also wieder auf 3 ändern.
Nun bin ich ratlos.
Noch irgendeine Idee, was hier nicht richtig läuft?

[Socke]

Mein erster Test bezog sich auf Windows 7 64 bit; die Lazarus-Version kann ich gerne nachreichen.

Ein Test unter Windows 10 64 bit mit 32-Bit LCL-Anwendung (FPC 3.1.1, Lazarus SVN 52913) ergibt: nur ein OnMouseWheel bei jedem Scrollen; die Variable WheelDelta ist konstant 30.

P.S: hast du mal mit unterschiedlichen Mäusen getestet?

[Frank Ranis]

Hallo ,

Bei Lazarus unter WIN-XP und WIN-7 ist mir ein Mehrfachaufruf noch nicht untergekommen , WIN-10 habe ich jetzt nicht.

Aber unter Delphi hatte ich das Problem auch , bei mir waren es nicht 3 Aufrufe , sondern nur 2 .

Habe da lange drann rumprobiert und bin dann drauf gekommen , das man die Variable 'handled' in den Ereignisroutinen auf true setzten sollte.

Schmeiß dir mal ein Edit und zwei Checkboxen auf den Schirm und probier mal folgendes.
Mal mit eingeschalteten Checkboxen , mal ohne probieren.

Danach war bei Delphi ruhe und es gab nur einen Aufruf für ein Mausrad-Raster.
Vieleicht hilft das bei LAZ ja auch.

Code: Alles auswählen

unit Unit1;
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Types;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit1: TEdit;
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  i:integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
 Handled:=checkbox2.Checked; // <---- Handled für Runterdrehen 
 dec(i);
 edit1.text:=inttostr(i);
end;
 
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
 Handled:=checkbox1.Checked; // <---- Handled für Hochdrehen 
 inc(i);
 edit1.text:=inttostr(i);
end;
 
end.       
 

In der Delphi-Hilfe war folgendes zu finden .

Code: Alles auswählen

Der Typ TMouseWheelUpDownEvent wird in den Ereignissen OnMouseWheelUp und OnMouseWheelDown verwendet.
 
Unit
 
Controls
 
type TMouseWheelUpDownEvent = procedure(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean) of object;
 
Beschreibung
 
Sender ist das Objekt, das die Mausereignisse abfängt.
 
Shift ist der Status der Alt-, Strg-, Umschalt- und Maustaste.
 
MousePos ist die Position des Mauszeigers.
 
Handled gibt an, ob das Steuerelement das Ereignis bearbeitet hat. Wenn Sie Handled den Wert False zuweisen, wird das Ereignis vom übergeordneten Objekt des Steuerelements behandelt.
 

Der letzte Satz scheint das Geheimnis :
Die Application als übergeordneten Objekt der Form bekommt 2,3 oder wer weis wie viele Mausradbotschaten pro Mausrad-Raster geliefert und ruft jedes mal die MouseWheelUpDown-Routine auf.
Setzt man nun handled:=True , wir der Application mitgeteilt , das man den Mausrad-Dreher verstanden hat und verhindert dann einen weiteren Aufruf für diesen einen Mausrad-Raster.

Die olle Delphi6-Hilfe ist echt super , so was wünsch ich mir für LAZ auch.
Kann man die Delphi-Hilfe irgend wie ans LAZ koppeln ?

Gruß

Frank

[lzuser]

Danke für deine ausführliche Erklärung. Das war schon mal sehr hilfreich.
Handled:=true bewirkt, dass das Ereignis nur 1 mal ausgelöst wird.
aber:
Meine Konstruktion ist Image in Scrollbox auf Formular. Alle haben das MouseWheel. So dachte ich nach deinen Ausführungen es kämen so die 3 Auslöser zustande. Wenn ich aber das Image direkt auf das Formular platziere, wird auch ohne Handled:=true das Ereignis nur einmal ausgelöst (Delta=120).
(Bei sehr schneller Drehung mit mehreren Rastern auch Delta=240,360,...)
Folgerung: Die Scrollbox ist für die zusätzlichen 2 Auslöser verantwortlich (Delta=960 und nochmals 120 oder umgekehrt).
Interessieren täte mich schon, warum das so ist.

Auch aus der Delphi6-Hilfe: "WheelDelta zeigt an, wie oft das Rad gedreht wurde."
Was soll mir denn mein Zahlenwert 120 für ein Raster Drehung sagen?

Das Problem ist jedoch gelöst. Danke.