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 Expand view
#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
