paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix Alt+'9' recognition in GetAltChar function

Browse Source
This commit is contained in:
pierre 2002-09-13 22:24:30 +00:00
parent 933d28f62b
commit 6944b08646
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/drivers.pas
View File

@ -1003,7 +1003,7 @@ VAR I: Sw_Integer;
BEGIN
GetAltChar := #0; { Preset fail return }
If (Lo(KeyCode) = 0) Then Begin { Extended key }
If (Hi(KeyCode) < 128) Then Begin { Key between 0-127 }
If (Hi(KeyCode) <= $83) Then Begin { Highest value in list }
I := 0; { Start at first }
While (I < 128) AND (Hi(KeyCode) <> AltCodes[I])
Do Inc(I); { Search for match }
@ -1674,7 +1674,10 @@ BEGIN
END.
{
$Log$
Revision 1.33 2002-09-13 09:21:15 pierre
Revision 1.34 2002-09-13 22:24:30 pierre
* fix Alt+'9' recognition in GetAltChar function
Revision 1.33 2002/09/13 09:21:15 pierre
* don't call InitVideo in DetectVideo procedure
Revision 1.32 2002/09/09 08:04:05 pierre

7
fvision/drivers.pas
View File

@ -1003,7 +1003,7 @@ VAR I: Sw_Integer;
BEGIN
GetAltChar := #0; { Preset fail return }
If (Lo(KeyCode) = 0) Then Begin { Extended key }
If (Hi(KeyCode) < 128) Then Begin { Key between 0-127 }
If (Hi(KeyCode) <= $83) Then Begin { Highest value in list }
I := 0; { Start at first }
While (I < 128) AND (Hi(KeyCode) <> AltCodes[I])
Do Inc(I); { Search for match }
@ -1674,7 +1674,10 @@ BEGIN
END.
{
$Log$
Revision 1.33 2002-09-13 09:21:15 pierre
Revision 1.34 2002-09-13 22:24:30 pierre
* fix Alt+'9' recognition in GetAltChar function
Revision 1.33 2002/09/13 09:21:15 pierre
* don't call InitVideo in DetectVideo procedure
Revision 1.32 2002/09/09 08:04:05 pierre