topic-22972

Posts: 124

Joined: Mon Nov 14, 2005 10:15 AM

Code that used to work fails
Posted: Tue Nov 29, 2011 11:39 AM

Antonio, the folowing code used to work in a previous version and isn't working anymore.
The text and the title do not change and the dialog isn't centered.
Note the NOWAIT clause.

The previous version was 09.11 using xHarbour.com's Pelles C and now I am using Harbour 11.10 + MinGw.
I was unable to test with FW 11.10 version + xHarbour.com because my xHarbour.com's isn't FW 11.10 compatible.
Could you investigate if this is a problem with MinGw, FW version or my code ?
PRG :

Code (fw): Select all Collapse

#INCLUDE "fivewin.ch"
FUNCTION Main()
   LOCAL oDlgTeste, oTexto, cTexto
   DEFINE DIALOG oDlgTeste RESOURCE 18503 TITLE "Teste Title"
   REDEFINE SAY  oTexto VAR cTexto ID 101 OF oDlgTeste
   ACTIVATE DIALOG oDlgTeste CENTER NOWAIT

   cTexto := "Another text..."
   oTexto:SETTEXT( cTexto )

   MessageBox( 0, "Why dialog text didn't change ?", "Why title didn't change ?", 0 )
RETURN NIL

RC :

Code (fw): Select all Collapse

#include "winuser.h"
#include "winnt.h"
#include "commctrl.h"

18503 DIALOG DISCARDABLE 13, 22, 250, 100
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_VISIBLE
CAPTION "Teste..."
{
  CONTROL "Text", 101, "Static", SS_CENTER, 2, 9, 245, 15
}

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Code that used to work fails
Posted: Tue Nov 29, 2011 04:15 PM

I think, that will work with any FWH-version :

ACTIVATE DIALOG oDlgTeste CENTER NOWAIT ;
ON INIT ( oDlgTeste:cTitle := "New Text", ;
cTexto := "Another text...", oTexto:SETTEXT( cTexto ) )

You can force a Dialog-position ( ON INIT ) with :
oDlgTeste:Move( nTop, nLeft, DlgWidth, DlgHeight , .f. )
( possible Calculation of centered Position )

Best Regards
Uwe