Felipe Monteiro de Carvalho schreef:
Attached patch solves this.
thanks,
@@ -250,15 +255,10 @@
vwsTrayIcon.OnMouseDown(vwsTrayIcon, mbLeft, [], Round(event^.X),
Round(event^.Y));
2: if Assigned(vwsTrayIcon.OnMouseUp) then
- vwsTrayIcon.OnMouseDown(vwsTrayIcon, mbMiddle, [], Round(event^.X),
Round(event^.Y));
+ vwsTrayIcon.OnMouseDown(vwsTrayIcon, mbMiddle, [], Round(event^.X),
Round(event^.Y));
- 3:
- begin
- if Assigned(vwsTrayIcon.OnMouseUp) then
- vwsTrayIcon.OnMouseDown(vwsTrayIcon, mbRight, [], Round(event^.X),
Round(event^.Y));
- if Assigned(vwsTrayIcon.PopUpMenu) then
- vwsTrayIcon.PopUpMenu.PopUp(Mouse.CursorPos.X, Mouse.CursorPos.Y);
- end;
+ 3: if Assigned(vwsTrayIcon.OnMouseUp) then
+ vwsTrayIcon.OnMouseDown(vwsTrayIcon, mbRight, [], Round(event^.X),
Round(event^.Y));
Is this correct? testing for OnMouseUp, but calling OnMouseDown? See also a couple
of lines above.
end;
end;
end;
Vincent
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
