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

* SetKeyBoardDriver now returns true if driver set - merged

Browse Source
This commit is contained in:
michael 2001-10-03 20:08:36 +00:00
parent 6f692d0faf
commit 2ea2c2115f
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/keyboard.inc
View File

@ -113,11 +113,12 @@ begin
PollKeyEvent:=0; PollKeyEvent:=0;
end; end;
Procedure SetKeyboardDriver (Const Driver : TKeyboardDriver); Function SetKeyboardDriver (Const Driver : TKeyboardDriver) : Boolean;
begin begin
If Not KeyBoardInitialized then If Not KeyBoardInitialized then
CurrentKeyBoardDriver:=Driver; CurrentKeyBoardDriver:=Driver;
SetKeyboardDriver:=Not KeyBoardInitialized;
end; end;
Procedure GetKeyboardDriver (Var Driver : TKeyboardDriver); Procedure GetKeyboardDriver (Var Driver : TKeyboardDriver);
@ -292,7 +293,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2001-09-30 21:08:58 peter Revision 1.4 2001-10-03 20:08:36 michael
* SetKeyBoardDriver now returns true if driver set - merged
Revision 1.3 2001/09/30 21:08:58 peter
* merged fixes * merged fixes
Revision 1.2 2001/09/21 21:33:36 michael Revision 1.2 2001/09/21 21:33:36 michael

7
rtl/inc/keybrdh.inc
View File

@ -177,7 +177,7 @@ function GetKeyEventShiftState(KeyEvent: TKeyEvent): Byte;
function IsFunctionKey(KeyEvent: TKeyEvent): Boolean; function IsFunctionKey(KeyEvent: TKeyEvent): Boolean;
{ Returns true if the given key was a function key or not } { Returns true if the given key was a function key or not }
Procedure SetKeyboardDriver (Const Driver : TKeyboardDriver); Function SetKeyboardDriver (Const Driver : TKeyboardDriver) : Boolean;
{ Sets the keyboard driver to use } { Sets the keyboard driver to use }
Procedure GetKeyboardDriver (Var Driver : TKeyboardDriver); Procedure GetKeyboardDriver (Var Driver : TKeyboardDriver);
@ -193,7 +193,10 @@ Function KeyEventToString(KeyEvent : TKeyEvent) : String;
{ {
$Log$ $Log$
Revision 1.2 2001-09-21 21:33:36 michael Revision 1.3 2001-10-03 20:08:36 michael
* SetKeyBoardDriver now returns true if driver set - merged
Revision 1.2 2001/09/21 21:33:36 michael
+ Merged driver support from fixbranch + Merged driver support from fixbranch
Revision 1.1.2.2 2001/09/21 21:20:43 michael Revision 1.1.2.2 2001/09/21 21:20:43 michael