Release Userdefined Screen

[ShortyII]

My problem is the following:
I create a window in this window i define a browse.
Now when i execute my procudere Reset it dosn't close my window.

WHY ?????



Do WINDOWDEFINE
Do myRESET


PROCEDURE myWINDOWDEFINE
DEFINE WINDOW qobrowse FROM 0,0 TO 42.5,144.5;
FONT "Arial", 11 ;
NOFLOAT ;
NOCLOSE ;
NOMINIMIZE ;
SYSTEM

BROWSE ;
WINDOW qoBrowse ;
NOMENU ;
TITLE "[Order browser] | "
RETURN

PROCEDURE myRESET
IF WEXIST('qobrowse')
tTitle = WTITLE()
RELEASE WINDOWS &tTitle
RELEASE WINDOW "view"
RELEASE WINDOW "qobrowse"
RELEASE WINDOW qobrowse
RELEASE WINDOW
RELEASE WINDOWS "view"
RELEASE WINDOWS "qobrowse"
RELEASE WINDOWS qobrowse
RELEASE WINDOWS
ENDIF
RETURN

 

[Mike Gagnon]

ShortyII

[ol][li]This style of programming stopped being used about 15 years ago (FPD DOS), unless you intended to post this question in forum182. If you are using VFP you might consider using forms and grids.[/li]
[li]Your call "Do WINDOWDEFINE" is calling a function that does not exist, it appears to be a typo.[/li]
[li]Depending how you close your BROWSE, it most likely releases your DEFINE window.[/li]
[li]As far as I know the command is RELEASE WINDOW qobrowse no quotes, no "S" at window.[/li][ol].




Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ShortyII]

I know this it not the newest way to create a screen mgagnon but in the situation i'm right now this is the onley option that works the way it needs.

your tip to use this statement RELEASE WINDOW qobrowse didn't and if you see the procedure myReset there are the options i already tryed.

Maybe you or some one else have another option ?

The strange thing is that it works fine in Fox2.6A but not in 8.
PLEASE HELP ME

 

[ramani]

Hi
This works in my computer...

When you press ESC to come out of the window, the window gets released. I tried it in a PRG.


USE data\acmas
Do myWINDOWDEFINE
Do myRESET


PROCEDURE myWINDOWDEFINE
DEFINE WINDOW qobrowse FROM 0,0 TO 42.5,144.5;
FONT "Arial", 11 ;
NOFLOAT ;
NOCLOSE ;
NOMINIMIZE ;
SYSTEM

BROWSE ;
WINDOW qoBrowse ;
NOMENU ;
TITLE "[Order browser] | "
RETURN

PROCEDURE myRESET
IF WEXIST('qobrowse')
RELEASE WINDOW qobrowse
ENDIF
RETURN

ramani
(Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[ShortyII]

THanx ramani
But you have to push ESC before the browse get closed.
I tryed to force the ESC by using KEYBARD '{ESC}'
But then he dosn't do a ESC and close the browse

 

[ShortyII]

I have found the problem.
In my title bar i used the following characters []
There for it didn't work.

Thanx for your support.