paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 17:01:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added right mousebutton support

Browse Source 
* removed superverbose debug for snapshot release
* added Enter to rawkey table

git-svn-id: trunk@12821 -
This commit is contained in:
Károly Balogh 2009-02-28 12:12:19 +00:00
parent b95b1cc983
commit ca28c013af
2 changed files with 29 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
rtl/morphos/keyboard.pp
View File

@ -270,6 +270,7 @@ begin
lastShiftState:=0; lastShiftState:=0;
oldmousex:=-1; oldmousex:=-1;
oldmousey:=-1; oldmousey:=-1;
oldbutton:=0;
{* {*
KeyBoardLayout:=GetKeyboardLayout(0); KeyBoardLayout:=GetKeyboardLayout(0);
lastShiftState := 0; lastShiftState := 0;
@ -805,9 +806,10 @@ type
end; end;
const const
RCTABLE_MAXIDX = 16; RCTABLE_MAXIDX = 17;
rawCodeTable : array[0..RCTABLE_MAXIDX] of rawCodeEntry = rawCodeTable : array[0..RCTABLE_MAXIDX] of rawCodeEntry =
((rc: 71; n: $5200; s: $0500; c: $0400; a: $A200; ), // Insert ((rc: 68; n: $1C0D; s: $1C0D; c: $1C0A; a: $1C0D; ), // Enter // shift, alt?
(rc: 71; n: $5200; s: $0500; c: $0400; a: $A200; ), // Insert
(rc: 72; n: $4900; s: $4900; c: $8400; a: $9900; ), // PgUP // shift? (rc: 72; n: $4900; s: $4900; c: $8400; a: $9900; ), // PgUP // shift?
(rc: 73; n: $5100; s: $5100; c: $7600; a: $A100; ), // PgDOWN // shift? (rc: 73; n: $5100; s: $5100; c: $7600; a: $A100; ), // PgDOWN // shift?
@ -931,17 +933,31 @@ begin
me.y:=(iMsg^.MouseY - videoWindow^.BorderTop) div 16; me.y:=(iMsg^.MouseY - videoWindow^.BorderTop) div 16;
case iMsg^.code of case iMsg^.code of
SELECTDOWN: begin SELECTDOWN: begin
writeln('left button down!'); //writeln('left down!');
me.Action:=MouseActionDown; me.Action:=MouseActionDown;
me.Buttons:=MouseLeftButton; oldbuttons:=oldbuttons or MouseLeftButton;
oldbuttons:=MouseLeftButton; me.Buttons:=oldbuttons;
PutMouseEvent(me); PutMouseEvent(me);
end; end;
SELECTUP: begin SELECTUP: begin
writeln('left button up!'); //writeln('left up!');
me.Action:=MouseActionUp; me.Action:=MouseActionUp;
me.Buttons:=0; oldbuttons:=oldbuttons and (not MouseLeftButton);
oldbuttons:=0; me.Buttons:=oldbuttons;
PutMouseEvent(me);
end;
MENUDOWN: begin
//writeln('right down!');
me.Action:=MouseActionDown;
oldbuttons:=oldbuttons or MouseRightButton;
me.Buttons:=oldbuttons;
PutMouseEvent(me);
end;
MENUUP: begin
//writeln('right up!');
me.Action:=MouseActionUp;
oldbuttons:=oldbuttons and (not MouseRightButton);
me.Buttons:=oldbuttons;
PutMouseEvent(me); PutMouseEvent(me);
end; end;
end; end;
@ -954,7 +970,7 @@ begin
(mousex < video.ScreenWidth) and (mousey < video.ScreenHeight) and (mousex < video.ScreenWidth) and (mousey < video.ScreenHeight) and
((mousex <> oldmousex) or (mousey <> oldmousey)) ((mousex <> oldmousex) or (mousey <> oldmousey))
then begin then begin
// writeln('mousemove:',mousex,'/',mousey,' oldbutt:',oldbuttons); // //writeln('mousemove:',mousex,'/',mousey,' oldbutt:',oldbuttons);
me.Action:=MouseActionMove; me.Action:=MouseActionMove;
me.Buttons:=oldbuttons; me.Buttons:=oldbuttons;
me.X:=mousex; me.X:=mousex;
@ -965,7 +981,7 @@ begin
end; end;
end; end;
IDCMP_VANILLAKEY: begin IDCMP_VANILLAKEY: begin
writeln('vanilla keycode: ',iMsg^.code); //writeln('vanilla keycode: ',iMsg^.code);
KeyCode:=iMsg^.code; KeyCode:=iMsg^.code;
case (iMsg^.code) of case (iMsg^.code) of
09: KeyCode:=$0F09; // Tab 09: KeyCode:=$0F09; // Tab
@ -984,7 +1000,7 @@ begin
end; end;
end; end;
IDCMP_RAWKEY: begin IDCMP_RAWKEY: begin
writeln('raw keycode: ',iMsg^.code); //writeln('raw keycode: ',iMsg^.code);
case (iMsg^.code) of case (iMsg^.code) of
35: KeyCode:=$2100; // Alt-F 35: KeyCode:=$2100; // Alt-F

2
rtl/morphos/video.pp
View File

@ -82,7 +82,7 @@ begin
WA_Title,DWord(PChar('Free Pascal Video Output')), WA_Title,DWord(PChar('Free Pascal Video Output')),
WA_Flags,(WFLG_GIMMEZEROZERO Or WFLG_SMART_REFRESH Or WFLG_NOCAREREFRESH Or WA_Flags,(WFLG_GIMMEZEROZERO Or WFLG_SMART_REFRESH Or WFLG_NOCAREREFRESH Or
WFLG_ACTIVATE Or WFLG_DRAGBAR Or WFLG_DEPTHGADGET Or WFLG_REPORTMOUSE Or WFLG_ACTIVATE Or WFLG_DRAGBAR Or WFLG_DEPTHGADGET Or WFLG_REPORTMOUSE Or
WFLG_SIZEGADGET Or WFLG_SIZEBBOTTOM Or WFLG_SIZEGADGET Or WFLG_SIZEBBOTTOM Or WFLG_RMBTRAP Or
WFLG_CLOSEGADGET) WFLG_CLOSEGADGET)
]); ]);