Resending because of some changes in my results.
I am having a tough time using the keyboard unit under Linux. Please tell me
whats wrong with this code:
( var section cut out)
Begin
InitKeyBoard;
Repeat
K:=pollKeyEvent;
if k <>0
then
begin
k:=getkeyevent;
k:=translatekeyevent(k);
if isfunctionkey(k)
then
case k Of
kbdF1 :
Begin
End;
kbdF3 : ;//DoSpot;
kbdF4 : ;//DoId;
kbdF2 :Begin
End;
kbdF9 : ;//GetUpdate(PromoString,PromoPrompt);
kbdF10 :;// GetUpdate(WeatherString,WeatherPrompt);
end
else if not isfunctionkey(k)
then
case getkeyeventchar(k) of
'1'..'8' :
Begin
End;
'c':
Begin
End;
'd':
Begin
End;
'N','n': GetNext;
End; {of case}
End;
Until quit;
End;
I have chopped out a lot of the code; The only keys I get or those in the
getkeyeventchar section, i.e. '1'..'8' etc.
Cheers
Frank
---
Change the world one loan at a time - visit Kiva.org to find out how
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
