READ CYCLE VFP7 vs VFP8
From: Guy BONEMME (guy.bonemme_nospam__at_skynet.be)
Date: 06/08/04
- Next message: Gary Martin: "Data Environments Fox 8.0"
- Previous message: Sietse Wijnker: "Re: Data environment"
- Next in thread: Lee Mitchell: "RE: READ CYCLE VFP7 vs VFP8"
- Reply: Lee Mitchell: "RE: READ CYCLE VFP7 vs VFP8"
- Reply: Dan Freeman: "Re: READ CYCLE VFP7 vs VFP8"
- Messages sorted by: [ date ] [ thread ]
Date: Tue, 8 Jun 2004 13:52:41 +0200
Hi,
We use a an ancient routine messagebox() for many years
in several programs vfp6 and vfp7 that we found easy and
comfortable for maintenance.
Testing the same program with vfp8, I experience problem
at the READ CYCLE instruction.
The message Window is displayed correctly
with button colors etc. untill the READ CYCLE is reached.
Then the content inside the window disapear,
Moving the mouse cursor where a button exist, display this button,
and disapear again whent the curcor is moved out.
The text label inside the windows doesn't appear anymore.
One click on one of the button and the procedure continue
as normal.
Here below is the code concerned:
Does any one know what is the difference between vfp7 and 8
on this instruction/?
IF NOT EMPTY(cvalfunc) AND TYPE([CVALFUNC]) == [C]
READ CYCLE ;
WHEN chk_menu() ;
MODAL OBJECT ndefault ;
VALID EVAL(cvalfunc+IIF(![()] $ cvalfunc, [()], []))
ELSE
READ CYCLE ;
WHEN chk_menu() ;
MODAL OBJECT ndefault
ENDIF
IF BETWEEN(nchoice, 1, nbuttons)
retval = IIF(TYPE('nnumeric') == [N] AND nnumeric == 1, ;
nchoice, aprompt[nchoice])
ENDIF
RELEASE WINDOW wmsgbox
ENDIF
Thanks
Guy Bonemme
- Next message: Gary Martin: "Data Environments Fox 8.0"
- Previous message: Sietse Wijnker: "Re: Data environment"
- Next in thread: Lee Mitchell: "RE: READ CYCLE VFP7 vs VFP8"
- Reply: Lee Mitchell: "RE: READ CYCLE VFP7 vs VFP8"
- Reply: Dan Freeman: "Re: READ CYCLE VFP7 vs VFP8"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|