Se un controllo ad es. 'TGET' ha come padre un controllo
di tipo 'FOLDER' o 'GROUP' (Classe TMDICHILD anziche'
TMDIFRAME) le sue coordinate sono errate.
Il rettangolo generato dalla funzione CtrlDrawFocus che
circonda il controllo da spostare o ridimensionare e'
fuori posto.
Il problema si manifesta sia in Vista che in XP.
Saluti
Maurizio Menabue
- 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
