home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
brokcode.zip
/
KW33CORR.EXE
/
KW33CORR.TXT
< prev
Wrap
Text File
|
1991-07-16
|
1KB
|
48 lines
Correction to CTJ #3-3 Designer Forum Article
-----------------------------------------------
The Designer Forum article code by Kenneth Weiss in the May/June issue
(#3-3, page 21) contains an assumption that the number of records will
always be equal to or larger than the scroll rows available. The
reliance on the COUNT variable to tell us the maximum value of NDX in
the scrolling area is this bad assumption. Accordingly, the [Down_Key],
[End_Key], [Tab_Key/Right_Key] and the [Shft_Tab]/[Left_Key] will not
work properly when the number of records is less than the number of
rows in the scroll area (ie, the COUNT variable).
Below is the corrected code. Instead of the COUNT variable, this code
uses the value returned by RECORDS(TABLE) to tell us the maximum
number of rows actually being used. A corrected copy of DYNAMIC.MDL
is included on this month's code disk.
OF DOWN_KEY
IF NDX = RECORDS(TABLE)
DO SET_NEXT
DO FILL_NEXT
IF FOUND
SCROLL(ROW,COL,ROWS,COLS,ROWS(?POINT))
GET(TABLE,RECORDS(TABLE))
DO FILL_SCREEN
.
ELSE
NDX += 1
.
OF END_KEY
NDX = RECORDS(TABLE)
OF TAB_KEY
OROF RIGHT_KEY
IF NDX < RECORDS(TABLE) THEN NDX += 1.
OF SHFT_TAB
OROF LEFT_KEY
IF NDX = 1
NDX = RECORDS(TABLE)
ELSE
NDX -= 1
.
.