FiveTech Software tech support forums

Hi everybody!

I look for test functions. (Can't find its in help.)

Is any functions like IsWindowActive () or IsWIndowDefined() ?

A make my fist aplication and test simple dialog box. If dialog box is opened, and I try open it on second case , dialoog box not showed, but activ in backgrownd (when I close main window I loook it for one second ).

So I need test when oDlg is active.

For example in "test06.prg", is work, but if I use this code in another applications and open dialog box not from menu but from button, if dialogBox lost focus it is not visible, but active ...



Regards Andrej.

Andrej,

Here you have a working example:

This way is good if If I use 2 buttons, that use one function.

But if I use One button for show Dialog , and click on Main window or Button that start dialog - dialog go to backend, and I can't show it.
Dialog not like "Dialog", it is normal window:( . But, if I run "tutor06" application dialog is run normally ... In "tutor10" dialog is not run in modal mode.

What I make worst ?

FindWindow( ) is not help me.

It is a code :


// Dialog Test

#include "fwce.ch"
#include "dll.ch"




function Main()
Local oWnd


DEFINE FONT oFontS NAME 'Arial' SIZE 0, -10
DEFINE WINDOW oWnd TITLE "RFID_OMME"

@ 5, 0 BUTTON "Test Button" ;
SIZE 204, 26 ;
FONT oFontS;
ACTION ShowDialog()

ACTIVATE WINDOW oWnd
oFontS:End()
oDld:End()
oWnd:End()
return nil

//-------------------------------------------------------------------------//
STATIC FUNCTION ShowDialog()
//-------------------------------------------------------------------------//


local oDlg
LOCAL cText := 'Try click on MainWindow, please'

if FindWindow( 0, "Test" ) != 0
MsgInfo( "Application already working" )
return nil
endif

DEFINE DIALOG oDlg TITLE "Test" SIZE 200, 200
@ 1, 1 SAY cText SIZE 70, 20

ACTIVATE DIALOG oDlg CENTERED
oDlg:End()

RETURN NIL

Andrej,

Please make these changes in your code:

@ 5, 0 BUTTON "Test Button" ;
SIZE 204, 26 ;
FONT oFontS;
ACTION ShowDialog( oWnd )

...

STATIC FUNCTION ShowDialog( oWnd )

...

DEFINE DIALOG oDlg TITLE "Test" SIZE 200, 200 OF oWnd

My First Application is ready .

Regards
Andrej.

Very good!