[Hwgui-developers] Strange behavior dialog with STYLE DS_CENTER

[Itamar M. L. J. L. <ita...@gm...>]

It was difficult to create a sample.
But I found and isolate the problem
This problem only occurs if I use clause STYLE  DS_CENTER


#include "hwgui.ch"

Function main

LOCAL oFormMain
INIT WINDOW oFormMain MAIN AT 0,0 SIZE 800,600

oFormMain:bActivate := {|| fInit(oFormMain) }
oFormMain:Activate()


Function fInit(oFormMain)
LOCAL oDlg,oGet,cGet:=" ", cPhantom
//hwg_msginfo("ok") if I active this not occurs problem same I use
DS_CENTER!!

INIT DIALOG oDlg AT 0,0 SIZE 400,300 STYLE DS_CENTER

   @ 010,090 say "None:" SIZE 65,15
   @ 010,110 get oGet VAR cGet PICTURE "!" SIZE 100,30 Valid
{||fFunc_A(cGet)}  //Press "E" now DIALOG show twice

   @ 030,120 get oPhantom var cPhantom size 0,0

oDlg:Activate()

Function fFunc_A(cGet)

If cGet == "E"
   hwg_MsgStop("Error")
   return .F.
Else
   hwg_EndDialog()
ENDIF
return .T.