Ciao a tutti
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
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
#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