TreeGadget: Checkbox [x] für ausgewählte Items hinzufügen
Verfasst: 15.01.2010 17:32
Hallo,
ich möchte an einem TreeGadget welches ohne #PB_Tree_CheckBoxes erstellt wurde, nachträglich für ausgewählte Items Checkboxen [x] hinzufügen.
Dazu habe ich hier im Forum schon was ähliches gefunden (nur genau umgekehrt - dieser Code entfernt Checkboxen für ausgewählte Items).
Bin auf MSDN nicht (durch die Struktur(en)) durchgestiegen
, was ich hier ändern muß um das gewünschte Verhalten (setzen von Checkboxen) zu steuern.
Vielleicht kann mir da ja mal einer der "API-Gurus" weiterhelfen ?
Thanks for Help
ich möchte an einem TreeGadget welches ohne #PB_Tree_CheckBoxes erstellt wurde, nachträglich für ausgewählte Items Checkboxen [x] hinzufügen.
Dazu habe ich hier im Forum schon was ähliches gefunden (nur genau umgekehrt - dieser Code entfernt Checkboxen für ausgewählte Items).
Bin auf MSDN nicht (durch die Struktur(en)) durchgestiegen
, was ich hier ändern muß um das gewünschte Verhalten (setzen von Checkboxen) zu steuern.Vielleicht kann mir da ja mal einer der "API-Gurus" weiterhelfen ?
Thanks for Help
Code: Alles auswählen
Procedure TreeGadget_SetStateImageMask(Gadget,Item,fCheck)
tvItem.TV_ITEM
tvItem\mask = #TVIF_HANDLE | #TVIF_STATE
tvItem\hItem = GadgetItemID(Gadget,Item)
tvItem\stateMask = #TVIS_STATEIMAGEMASK;
tvItem\state = fCheck << 12
SendMessage_(GadgetID(Gadget), #TVM_SETITEM,0,@tvItem);
EndProcedure
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
TreeGadget(1,10,10,480,230,#PB_Tree_CheckBoxes)
For a=1 To 10
AddGadgetItem(1,-1,"Item "+Str(a),0,0)
Next
TreeGadget_SetStateImageMask(1,4,16)
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
