Problem with clause 'DESIG' in new version FWH 8.04

[mauri.menabue]

Hi, all

when the control is placed in parent control as FOLDER or GROUP
the coordinated of control are wrong and rectangle generated
from function CtrlDrawFocus is out of position.
I enclose a little example.

Regards

Code: Select all

#include "fivewin.ch"
#include "folder.ch"

function Main()

   local oDlg
   local oFld

   DEFINE DIALOG oDlg ;
          TITLE "Test Folder Design" ;
          FROM 5, 5 TO 25, 49 

   @  1, 1 FOLDER oFld ;
           PROMPT "Pag. 1", "Pag. 2" ;
           OF     oDlg SIZE 160, 90

   ACTIVATE DIALOG oDlg CENTERED ON INIT Pagefold(oFld)

return nil

FUNCTION PageFold(oFld)
   
   LOCAL cVar1 := "Testing pag.1"
   LOCAL oGet1
   LOCAL cVar2 := "Testing pag.2"  
   LOCAL oGet2

   @ 1, 2 SAY "Lab.1  "       OF  oFld:aDialogs[ 1 ] 
   @ 1, 8 GET oGet1 VAR cVar1 OF  oFld:aDialogs[ 1 ]   SIZE 120, 20  
   
   @ 1, 2 SAY "Lab.2  "       OF  oFld:aDialogs[ 2 ] 
   @ 1, 8 GET oGet2 VAR cVar2 OF  oFld:aDialogs[ 2 ]   SIZE 120, 20  DESIGN

RETURN nil

[Antonio Linares]

Mauri,

Are you testing in XP or Vista ?

[mauri.menabue]

Hi, Antonio

The problem is identical in XP and in Vista.

Regards