Moderador: Moderadores
Código: Selecionar todos
#include "hwgui.ch"
Function DlgGet
Local oDlg, oFont := HFont():Add( "MS Sans Serif",0,-13 )
Local oTree, oSplit, oSay
INIT DIALOG oDlg TITLE "TreeView control sample" ;
AT 210,10 SIZE 430,300 ;
FONT oFont ;
ON INIT {||BuildTree(oDlg,oTree,oSay)}
@ 10,10 TREE oTree OF oDlg SIZE 200,280 ;
EDITABLE ;
BITMAP { "img\cl_fl.bmp","img\op_fl.bmp" } ;
ON SIZE {|o,x,y|o:Move(,,,y-20)}
@ 214,10 SAY oSay CAPTION "" SIZE 206,280 STYLE WS_BORDER ;
ON SIZE {|o,x,y|o:Move(,,x-oSplit:nLeft-oSplit:nWidth-10,y-20)}
@ 210,10 SPLITTER oSplit SIZE 4,260 ;
DIVIDE {oTree} FROM {oSay} ;
ON SIZE {|o,x,y|o:Move(,,,y-20)}
oSplit:bEndDrag := {||hwg_Redrawwindow( oSay:handle,RDW_ERASE+RDW_INVALIDATE+RDW_INTERNALPAINT+RDW_UPDATENOW)}
ACTIVATE DIALOG oDlg
oFont:Release()
Return Nil
Function BuildTree( oDlg,oTree,oSay )
Local oNode
INSERT NODE "First" TO oTree ON CLICK {||NodeOut(1,oSay)}
INSERT NODE "Second" TO oTree ON CLICK {||NodeOut(2,oSay)}
INSERT NODE oNode CAPTION "Third" TO oTree ON CLICK {||NodeOut(0,oSay)}
INSERT NODE "Third-1" TO oNode BITMAP {"img\book.bmp"} ON CLICK {||NodeOut(3,oSay)}
INSERT NODE "Third-2" TO oNode BITMAP {"img\book.bmp"} ON CLICK {||NodeOut(4,oSay)}
INSERT NODE "Forth" TO oTree ON CLICK {||NodeOut(5,oSay)}
oTree:bExpand := {||.T.}
Return Nil
Static Function NodeOut( n, oSay )
Local aText := { ;
"This is a sample application, which demonstrates using of TreeView control in HwGUI.", ;
"'Second' item is selected", ;
"'Third-1' item is selected", ;
"'Third-2' item is selected", ;
"'Forth' item is selected", ;
}
IF n == 0
oSay:SetValue("")
ELSE
oSay:SetValue(aText[n])
ENDIF
Return Nil
Código: Selecionar todos
-inc
\HB32\contrib\hbct\hbct.hbc
\HB32\contrib\hbtip\hbtip.hbc
\HB32\contrib\hbsqlit3\hbsqlit3.hbc
\HWGUI\HWGUI.hbc
\HB32\contrib\gtwvw\gtwvw.hbc
\HB32\contrib\hbwin\hbwin.hbc
Código: Selecionar todos
@hbmk.hbm
-oPROGRAMA
-compr
FONTES.PRG
ARQUIVO.RC