There is a problem with Tfolderx and Additem
In folder 1 the button prompt is correctly horizontal
In folder 2 (created with additem) the button prompt is vertical
- Code: Select all Expand view
- #include "fivewin.ch"
Function Main()
Local oDlg ,oFld
DEFINE DIALOG oDlg FROM 1,1 TO 400, 800 TITLE "Test" PIXEL
@ 1, 1 FOLDEREX oFld PIXEL SIZE 250, 60 TAB HEIGHT 50 RIGHT ;
PROMPT "Fld 1 "
ACTIVATE DIALOG oDlg CENTERED ON init (Bottoni(oFld))
Return nil
Function Bottoni(oFld)
Local f := 1
Local nRow := 1 , nCol := 1 , n := 3 ,aBtn := array(15) , y := 1
oFld:AddItem( 'Fld 2' )
FOR f := 1 TO len(oFld:aPrompts)
nCol := 5
FOR n := 1 TO 3
@ nRow, nCol BUTTON aBtn[y] ;
PROMPT alltrim(str(y)) ;
SIZE 50,50 ;
PIXEL OF oFld:aDialogs[f] UPDATE
y++
nCol += 60
NEXT
NEXT
Return nil
Regards MAurizio