Problem with clause 'DESIG' in new version FWH 8.04
Posted: Thu Apr 17, 2008 3:16 pm
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
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