Marc
I have had good luck with this following code. Look at
the instructions where it says IS RUN BY for detailed
explanation, but I use by typing in the RUN box
F7or8.eep USING 15 F8 where 15 is the amount of rows
I want to move and F8 stands for forward cursor
direction. F7or8.eep USING 7 F7 would move you back 7
rows..
*(
--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=-
PROGRAM'S NAME: F7or8.eep
AUTHOR: Jim Limburg -- Tuftco Corporation
PURPOSE: To navigate from row to row in a
scrolling region
with an easy syntax call without
having to have a ton
of EEP's and .pla files.
IS RUN BY: Command Button's RUN command
This is called by using an EEP call
Syntax like:
F7or8.eep USING 15 F8
The above call is used in the push
buttons RUN command
by calling the EEP by name F7or8.eep
and then uses the
USING clause to pass two variables in
this case %1
being 15 and %2 being F8 thus
depending on the value
of the second variable determines
whether it will
navigate forward[F8] or backward[F7]
in the rows.
The first variable will tell it how
many times to
execute the loop thus how many rows to
move.
The variable vg_maxtomove is to be
used as a constant
to never let the loop to execute more
than the value
it's set to.
NOTES ABOUT USAGE: RBase Version must support the
NEXTROW and
PREVROW commands. These were
introduced in
version 6.x I think. So RB
version should be
6.x or later
With Version 6.5 or greater use
the
SET INTENSITY ON command and
this will produce
a nice looking effect.
MODIFICATION HISTORY:
Created: Novemeber 2000
--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=-
)
SET VAR vg_accumlowint INTEGER = 1
SET VAR vg_maxtomove INTEGER = 20
SET VAR vg_accumhighint = .%1
SET VAR vg_f7or8 = .%2
IF vg_f7or8 = 'F8' THEN
SET VAR vg_direction = 'NEXTROW'
ELSE
SET VAR vg_direction = 'PREVROW'
ENDIF
WHILE vg_accumlowint < .vg_accumhighint THEN
&vg_direction
SET VAR vg_accumlowint = (.vg_accumlowint + 1)
IF vg_accumlowint > .vg_maxtomove THEN
BREAK
ENDIF
ENDWHILE
CLEAR VAR vg_accumlowint, vg_accumlowint,
vg_maxtomove, vg_f7or8
RETURN
Jim Limburg
--- marc <[EMAIL PROTECTED]> wrote:
> Hi all
>
> I have a region that uses a EEP with about 15
> Nextrow
> commands to scroll down to the rows below the bottom
> of
> the screen that are not displayed.
>
> You can see the cursor go down about 3 rows then it
> starts
> going up back to the top row. If I trace the EEP
> and press
> F10 I can see the cursor go down one line at a time
> and stay
> at the bottom like it should.
>
> I had to change the EEP to run a playback file that
> uses a
> bunch of [F8] to get this EEP to work.
>
> The strange thing is I have a EEP that takes you
> back to the
> top row using about 15 Prevrrow commands and it
> works as expected.
>
> has anyone seen this, or am I just lucky?
>
> thanks
> marc
>
>
>
_________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at
> http://mail.yahoo.com
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO
> rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to
> [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE
> rbase-l
> ================================================
> TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
__________________________________________________
Do You Yahoo!?
Great stuff seeking new owners in Yahoo! Auctions!
http://auctions.yahoo.com
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
