Left arrow & right arrow keys

[Bob @ MidCity Office]

Don
Here's a little code that uses the arrows: left and right to display screens
of record. The up & down scroll throught the records as usual and
D,H,U,X,F,B work as usual.

Bob Simcoe


::end:
@entsel::cls("21"):
::show("21","5") "Screen "<@sn:
::show("21","26") "Enter Selection >":
::show("21","65") "Record" <@rn:
::showctr("22") "\kl-PrevScr, \kr-NextScr, \ku-PrevRec, \kd-NextRec":
::showctr("23") "\r D \r-Delete, \r H \r-Hardcopy, \r U \r-Update, \r X
\r-Exit, \r F \r-Print Form, \r B \r-Browse":
::show ("21","44") "":
::dd(1,*,g) = waitkey:
:@sk eq "clft"       'move to previous screen:display (@sn - "1"):
:@sk eq "crgt"       'move to next screen:display (@sn + "1"):
:@sk eq "crup"       'move to previous record:dd = "" ; pushkey "[crup]" ;
end:
:@sk eq "cdwn"       'move to next record:dd = "" ; pushkey "[cdwn]" ; end:
:dd eq "D"                       'delete:dd = "" ; pushkey "D" ; end:
:dd eq "H"                       'hardcopy:dd = "" ; pushkey "H" ; end:
:dd eq "U"                       'update:dd = "" ; pushkey "U" ; end:
:dd eq "X"                       'exit:dd = "" ; pushkey "X" ; end:
:dd eq "F"                       'form:dd = "" ; pushkey "F" ; end:
:dd eq "B"                       'browse:dd = "" ; pushkey "B" ; end:
::goto @entsel: 

> -----Original Message-----
> From: 
> filepro-list-bounces+bob=midcityoffice.com at lists.celestial.com
>  
> [mailto:filepro-list-bounces+bob=midcityoffice.com at lists.celes
> tial.com] On Behalf Of Don Coleman
> Sent: Monday, November 10, 2008 11:30 AM
> To: filepro-list at lists.celestial.com
> Subject: Left arrow & right arrow keys
> 
> Can I use the left arrow and right arrow keys to trigger @KEY 
> processing?
> If so, what am I looking for (key)?
> 
> Don Coleman
> Donald G. Coleman, Consultant
> 402 Andrew Circle
> Indiana, PA 15701
> dcoleman at dgcreact.com
> (724) 349-6302
> 
> 
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list
>