Hi All,
I have created Package using installshield wizard, but the only first login window of my project appears after just one sec screen remains and then disappears, i have used prg as my main file in project in which i have define menu, however my exe woks fine . what should i do.
Regards
Hemangi
Hi,
You forgot to put a READ EVENTS... in your main.prg
Greetz, Leo
my prg doesnt show any output when i put read events in start of prg.
is there any condition put read events how to use read events and what circumstances
Hi Hemangi,
If you use modeless forms, you have to put a read events in your main program..
Like :
do form forms\Myform
read events
wait window "Events cleared" timeout 8
The program "stops" to process your form and your input.
if you put a button on the form with in the click "Clear events" then you will see the wait window..
greetz, Leo
Hi Greetz,
Thanks for showing me way, however i have main prg file in which i have define menu and no " do form " is called i have simple display menus and in that i called forms. so where should i include read events in main prg so that as per my exe my deploy project also run fine,
Regard
Hemangi
Make a main.prg...
Make it your main
ACTIVATE MENU MyMenu
do form forms\Myform with varx
read events
greetz...
Hi greetz
i tried using read events after do form but still my exe dissappear after it ask for login name & password it doesn't show menu,
1) do i need to call read event every time i called do form
2) do i need to call read events after call to procedure like do myproc
3) is it compulsary to issue clear events only in that form
i am attaching my main file for you kind check pls suggest me something !
***this is my main prg**
DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )
PROCEDURE choice
PARAMETERS mprompt, mpopup
*WAIT WINDOW 'You chose ' + mprompt + ' from popup ' + mpopup NOWAIT
retval=0
DO case
CASE mprompt="PARTS"
DO FORM frmmast to retval
READ EVENTS
CASE mprompt="EXIT"
SET SYSMENU TO DEFAULT
CLEAR EVENTS
ENDCASE
SET SYSMENU TO DEFAULT
RETURN
Hi there,
Here some codechanges... and tips..
greetings, LEO
PROCEDURE choice
PARAMETERS mprompt, mpopup
*WAIT WINDOW 'You chose ' + mprompt + ' from popup ' + mpopup NOWAIT
retval=0
DO case
CASE mprompt="PARTS"
DO FORM frmmast to retval
READ EVENTS
CASE mprompt="EXIT"
SET SYSMENU TO DEFAULT
CLEAR EVENTS
ENDCASE
RETURN
*!****************************
*!* MAIN Program starts here
*!****************************
*!* Maybe start your modal login screen....
*!* Make more general settings...
*!* Or start modeless forms here
DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )
*!* See the help file look for "define popup" and see the example
*!* Activate popup custpop
READ EVENTS
*!*****************************************************
*!* MAIN Program ends here (after a clear events)
*!*****************************************************
SET SYSMENU TO DEFAULT
QUIT
Hey,
Thanks for your help, but i havent use any login screen its all through code "menu.prg" which is my main file in project, pls see where i have given read events is right or need to do any changes
I f you dont mind i have one request , can you have provide me your msn or yahoo chat id
and i have used sysmenu so no need to acti popu custpop
here is my whole menu.prg file which is my main file in project
PUBLIC llev,retval
llev=0
retval=0
*** Name this program MENU.PRG ***
SET SYSMENU SAVE
SET SYSMENU TO
SELECT 0
USE SYS(5)+CURDIR()+"\LOGIN" SHARED
SET ORDER TO NAME
DEFINE WINDOW tmp FROM 00,00 TO 20,50 FLOAT FONT 'BOOK ANTIQUA',12 COLOR SCHEME 11 TITLE 'LOGIN'
ACTIVATE WINDOW tmp
MOVE WINDOW tmp CENTER
STORE SPACE(15) TO m.userid,m.pass
@2,2 say "Enter User Name" get m.userid
@4,2 say "Enter Password " get m.pass
READ
DEACTIVATE WINDOW tmp
RELEASE WINDOWS tmp
SELECT login
IF SEEK(ALLTRIM(m.userid))
IF ALLTRIM(m.pass)==ALLTRIM(login.password)
llev=login.level
ELSE
llev=0
=MESSAGEBOX("login Un-successfull")
ENDIF
endif
IF llev<>0
READ EVENTS
DEFINE PAD custpad OF _MSYSMENU PROMPT '\<Masters' COLOR SCHEME 3 ;
KEY ALT+M, ''
ON PAD custpad OF _msysmenu ACTIVATE POPUP custpop
DEFINE PAD repopad OF _MSYSMENU PROMPT '\<Reports' COLOR SCHEME 3 ;
KEY ALT+R, ''
ON PAD repopad OF _msysmenu ACTIVATE POPUP repopop
DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )
DEFINE POPUP repopop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF repopop PROMPT '\<All details' ;
KEY ALT+V, ''
ON SELECTION POPUP repopop;
DO choice1 WITH PROMPT( ), POPUP( ),BAR()
ELSE
WAIT WINDOW "Your are not Authorised User"
ENDIF
PROCEDURE choice
PARAMETERS mprompt, mpopup
WAIT WINDOW 'You chose ' + mprompt + ' from popup ' + mpopup NOWAIT
retval=0
DO case
CASE mprompt="PARTS"
DO FORM frmmast to retval
READ EVENTS
CASE mprompt="EXIT"
SET SYSMENU TO DEFAULT
CLEAR EVENTS
ENDCASE
SET SYSMENU TO DEFAULT
RETURN
PROCEDURE choice1
PARAMETERS mprompt,mpopup,mbar
DO case
CASE mbar=1
DO excelrepo
endcase
RETURN
Hi Greetz,
when i put read evnets here my program get hang no output and VFP get hangs
DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )
*!* See the help file look for "define popup" and see the example
*!* Activate popup custpop
READ EVENTS
Regards
Hemangi