From 6944b086463c3fdf18e3ff62161ea5489a028577 Mon Sep 17 00:00:00 2001 From: pierre Date: Fri, 13 Sep 2002 22:24:30 +0000 Subject: [PATCH] * fix Alt+'9' recognition in GetAltChar function --- fv/drivers.pas | 7 +++++-- fvision/drivers.pas | 7 +++++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/fv/drivers.pas b/fv/drivers.pas index d41d3b30d3..1d85fa2b89 100644 --- a/fv/drivers.pas +++ b/fv/drivers.pas @@ -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 diff --git a/fvision/drivers.pas b/fvision/drivers.pas index d41d3b30d3..1d85fa2b89 100644 --- a/fvision/drivers.pas +++ b/fvision/drivers.pas @@ -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