Test Functions in FWPPC , exists or no?

[xVar]

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.

[Antonio Linares]

Andrej,

Here you have a working example:

Code: Select all  Expand view  RUN

#include "FWCE.ch"

function Main()

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

   DEFINE DIALOG oDlg TITLE "Test" SIZE 200, 200

   ACTIVATE DIALOG oDlg CENTERED

return nil


[xVar]

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

[Antonio Linares]

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

[xVar]

My First Application is ready .

Regards
Andrej.

[Antonio Linares]

Very good!