OnMouseUp unter Windows und Linux

[MmVisual]

Lazarus ist nicht gleich Lazarus, so durfte ich feststellen. Unter Linux werden die Events anders aufgerufen als unter Windows.

Das betrifft das Mouse-Event
OnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Unter Windows ist bei Klick mit der rechten Maustaste das:
Button = mbRight
Shift = []

Unter Linux ist bei Klick mit der rechten Maustaste das:
Button = mbRight
Shift = [ssRight]

Wiso erhalte ich unter Linux was anderes als unter Windows?

Gruß Markus

[corpsman]

Da ich kein Windows habe kann ich es nicht testen...

Aber sollte dem wirklich so sein, würde ich dieses Verhalten als Bug einstufen, da könntest du einen entsprechenden Report schreiben.

[af0815]

Hast du ein kleines Beispielprogramm ?

[carli]

Das betrifft das Mouse-Event
OnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Unter Windows ist bei Klick mit der rechten Maustaste das:
Button = mbRight
Shift = []

Unter Linux ist bei Klick mit der rechten Maustaste das:
Button = mbRight
Shift = [ssRight]

Wiso erhalte ich unter Linux was anderes als unter Windows?

Gruß Markus

Aus dem Grund sollte man [ssShift, ssCtrl, ssAlt]*Shift gegen [] prüfen und nicht Shift.

[MmVisual]

Hier ein Beispiel, mein gesamter Code hat etwa 20000 Zeilen.

Code: Alles auswählen

procedure TfrmMain.grdMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var i: Integer;
  it: TMenuItem;
  q: TDataSet;
  p: TPoint;
begin
  stBar.Panels[1].Text := 'grdMouseUp'; // Debug-Ausgabe damit ich wusste warum/wann der unter Linux ein Exit macht
  If Not (Sender Is TDBGrid) Then Exit;
  stBar.Panels[1].Text := 'grdMouseUp1';
  If Not (Button = mbRight) Then Exit;
  stBar.Panels[1].Text := 'grdMouseUp2';
  If (Not (Shift = [])) And (Not (Shift = [ssRight])) Then Exit; // Doppelte Shift-Abfrage wegen Linux/Windows
  stBar.Panels[1].Text := 'grdMouseUp3';
  If Not Assigned(TDBGrid(Sender).DataSource) Then Exit;
  stBar.Panels[1].Text := 'grdMouseUp4';
  q := TDBGrid(Sender).DataSource.DataSet;
  If Not Assigned(q) Then Exit;
  stBar.Panels[1].Text := 'grdMouseUp5';
  If Not q.Active Then Exit;
  stBar.Panels[1].Text := 'grdMouseUp6';
  If q.Fields.Count <= 0 Then Exit;
  stBar.Panels[1].Text := 'grdMouseUp7';
  If Not (grdBauteil.MouseToGridZone(X, Y) = gzFixedCols) Then Exit;
  stBar.Panels[1].Text := 'grdMouseUp8';
  ErrMessagesAdd('grdMouseUp');
  // Rechtsklick auf Titelleiste
  popTbl.Items.Clear;
  For i := 0 To q.Fields.Count - 1 Do
  Begin
    it := TMenuItem.Create(Self);
    it.Caption := q.Fields[i].DisplayLabel;
    it.Checked := q.Fields[i].Visible;
    it.Tag := Integer(q.Fields[i]);
    it.OnClick := @mnTbl;
    popTbl.Items.Add(it);
  end;
  p.x := X;
  p.Y := Y;
  p := TDBGrid(Sender).ClientToScreen(p);
  popTbl.PopUp(p.x, p.y);
  ErrMessagesRemove();
end;

(Bei einem TSpeedButton ist es das gleiche.)

>> Aus dem Grund sollte man [ssShift, ssCtrl, ssAlt]*Shift gegen [] prüfen und nicht Shift.
Wiso soll ich etwas multiplizieren?

[Socke]

>> Aus dem Grund sollte man [ssShift, ssCtrl, ssAlt]*Shift gegen [] prüfen und nicht Shift.
Wiso soll ich etwas multiplizieren?

Hast du schon einmal Zeichenketten addiert? Man kann sie aneinanderhängen, daher ist 'a'+'b' auch ein anderer Operator als 1+2.
http://www.freepascal.org/docs-html/ref ... 180009.8.5

[MmVisual]

Wieder was gelernt

Dann könnte ich es so machen:

Code: Alles auswählen

If Not ((Shift >< [ssRight]) = []) Then Exit;

[carli]

Wieder was gelernt

Dann könnte ich es so machen:

Code: Alles auswählen

If Not ((Shift >< [ssRight]) = []) Then Exit;

Solange keine weiteren Modifier dazukommen (num lock wird z.B. auch betrachtet)

das mit dem * ist schon die genauere Version, da du damit den Zustand von allen Modifiern vergleichst, die du betrachtest

[MmVisual]

Ja, stimmt. Mein Vorschlag geht nicht, denn wenn in Shift kein ssRight drin ist, dann wird da eines rein gemacht.

Es muss so aussehen:

Code: Alles auswählen

If Not ((Shift - [ssRight]) = []) Then Exit;

ssNum und ssCaps sind nicht in Shift enthalten, auch nicht wenn diese gedrückt sind.