XProfan

DEF GetTreeItem(1) sendmessage(@&(1),$110A,$0009,TVitem#)
DEF SetTreeItem(2) sendmessage(@&(1),$110B,$0009,@&(2))
DEF TreeHitTest(2) sendmessage(@&(1),4369,0,@&(2))
DEF GetTreeCount(1) Sendmessage(@&(1),$1105,0,0)
DEF TreeExpand(2) sendmessage(@&(1),$1102,$0002,@&(2))
DEF TreeColapse(2) sendmessage(@&(1),$1102,$0001,@&(2))

TreeView32-Control mit Imagelist (P)FairWare, FreeWare...
Für Profan² 6.0, 32 Bit
(c) 1998 Richard Maurukas
----------------------------------------------------------------
DEF GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
DEF LoadIcon(2) ! "USER32","LoadIconA" "&#","&"
DEF LoadBitmap(2) ! "USER32","LoadBitmapA"
DEF ImageList_Create(5) !"COMCTL32","ImageList_Create"
DEF ImageList_AddIcon(2) !"COMCTL32","ImageList_AddIcon"
DEF ImageList_Destroy(1) !"COMCTL32","ImageList_Destroy"
Declare hImageList&,hIcon&,Iconname#,Executehandle&
Declare Imagelist&,HIcon#
dim Iconname#,25
dim Hicon#,24
declare TVItem#
declare Treeview&
declare TVitemtext#
declare TVInsert#
dim Tvitem#,40
dim TVInsert#,48
dim TVitemtext#,255
Let Imagelist&=ImageList_Create(16,16,$0001,3,3) Imagelist erzeugen
Let ExecuteHandle&=GetModuleHandle(0)  Handle des laufenden Programms
Icon 0
String Iconname#,0="EDITOR"       Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
Icon 1
String Iconname#,0="A"            Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
Icon 2
String Iconname#,0="GESICHT"
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)

PROC TVITEM

    TVITEM und TVINSERT-Struktur-------------------------------
    String TVitemtext#,0=@$(4)      Der Text im Label
    long TVInsert#,0=@&(1)          TVins-Parent
    long Tvinsert#,4=@&(2)         TVins-Insert After
    long TVInsert#,8=$0027          mask IF_TEXT,IF_IMAGE,If_SelectedImage
    long TVInsert#,12=0            Htreeitem
    long TVInsert#,16=0             State
    long TVInsert#,20=0             StateMAsk
    long TVInsert#,24=Tvitemtext#   Adress of Label
    long TVInsert#,28=len(@$(4))   len of Label(länge GeDimt in Tvitemtext#)
    long TVInsert#,32=@&(2) 0      Image          z.B Ordner
    long TVInsert#,36=@&(3) 0      Selected Image z.B geöffneter Ordner
    long TVinsert#,40=0             cChildren
    long TVInsert#,44=0             Lparam
    -----------------------------------------------

ENDPROC

Declare TRoot&,TRoot1&,troot3&
Declare infotext&,ende%,Edithandle&
Window 0,0-350,440
Windowtitle "TreeViewControl32, (c) Richard Maurukas"
settruecolor 1
cls rgb(192,192,192)
let Infotext&=createtext(%Hwnd,"",40,0,250,20)
Let TreeView&=@control("SysTreeView32","",$5080002F,40,20,250,340,%Hwnd,200,%Hinstance)
sendmessage(TreeView&,$1109,0,Imagelist&) Associate the image list with the tree
TVITEM 0,0,1,"Richard Maurukas"
Let TRoot&= sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in Root 0
TVITEM TRoot&,1,1,"präsentiert"
let TRoot1&=sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in TRoot&
TVITEM TRoot&,0,0,"das TreeView32 Control"
let TRoot1&=sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in TRoot&
TVITEM TRoot1&,1,1,"für Profan² Ver. 6.0 32 Bit"
sendmessage(Treeview&,$1100,0,TVInsert#)              Insertitem in TRoot1&
TVitem 0,1,0,"Roland G. Hülsmann"
let Troot3&=sendmessage(Treeview&,$1100,0,TVInsert#)  Insertitem in Root
TVitem Troot3&,2,2,"Entwickler von Profan²"
sendmessage(Treeview&,$1100,0,TVInsert#)              Insertitem in Troot3&
USefont "Times New Roman",18,0,1,1,0
sendmessage(Treeview&,$030,%Font,0)
settext infotext&,add$("Anzahl der Items im Control: ",
str$(Sendmessage(Treeview&,$1105,0,0))) TVM_Getcount
sendmessage(Treeview&,$1102,$0002,Troot&)     TV_Expand, Expand
sendmessage(Treeview&,$1102,$0002,Troot3&)    TV_Expand, Expand
sendmessage(Treeview&,$1102,$0001,Troot&)    TV_Expand, Colapse

Whilenot equ(Ende%,1)

    waitinput
    Das Selektierte Itemhandle im Treeview ermitteln
    TVM-Getnextitem=$110A, TVN_Caret=$0009, Eine Adresse=TVitem#
    Let Edithandle&= sendmessage(Treeview&,$110A,$0009,TVitem#)
    Settext infotext&,""
    Das ermittelte Handle mit dem erhaltenen Handle
    aus der Insertitem Message vergleichen und anzeigen.
    case equ(Troot&,Edithandle&):
    Settext infotext&,"Selected Text: Richard Maurukas"
    case equ(Troot1&,Edithandle&):
    Settext infotext&,"Selected Text: das TreeView32 Control"
    case equ(Troot3&,Edithandle&):
    Settext infotext&,"Selected Text: Roland G. Hülsmann"

wend

Dispose TVitemtext#
dispose TVInsert#
dispose TVitem#
ImageList_Destroy(hImagelist&)
Dispose Hicon#