mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 17:58:20 +02:00
Removed writeln
git-svn-id: trunk@47725 -
This commit is contained in:
parent
18e29b0217
commit
87ec2ec359
@ -2137,7 +2137,6 @@ begin
|
|||||||
EventXY := Point(TruncToInt(Event^.X), TruncToInt(Event^.Y));
|
EventXY := Point(TruncToInt(Event^.X), TruncToInt(Event^.Y));
|
||||||
ShiftState := GTKEventStateToShiftState(Event^.State);
|
ShiftState := GTKEventStateToShiftState(Event^.State);
|
||||||
|
|
||||||
writeln('gtk2 button down : ', event^.button);
|
|
||||||
if ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper] <> LastModifierKeys
|
if ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper] <> LastModifierKeys
|
||||||
then begin
|
then begin
|
||||||
LastModifierKeys := ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper];
|
LastModifierKeys := ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper];
|
||||||
|
Loading…
Reference in New Issue
Block a user