Verfasst: 16.01.2009 20:50
Hab' das hier jetzt nur überflogen aber so sollte es funktionieren (sofern nicht schon gelöst):Kiffi hat geschrieben:joh, dann warten wir mal auf Fluid Bytets-soft hat geschrieben:Hab aber jetzt keine Lust das genauer zu erörtern, findet sich bestimmt jemand
Code: Alles auswählen
OpenWindow(0,0,0,320,300,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(0,5,30,310,265,"Name",250)
ButtonGadget(1,5,5,100,20,"Mach An")
ButtonGadget(2,110,5,100,20,"Mach Aus")
For i=1 To 80 : AddGadgetItem(0,-1,"Gadget Item #" + Str(i)) : Next
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case 1
SendMessage_(GadgetID(0),#LVM_ENSUREVISIBLE,0,0)
SendMessage_(GadgetID(0),#LVM_SETEXTENDEDLISTVIEWSTYLE,0,#LVS_EX_CHECKBOXES)
Case 2
SendMessage_(GadgetID(0),#LVM_ENSUREVISIBLE,0,0)
SendMessage_(GadgetID(0),#LVM_SETEXTENDEDLISTVIEWSTYLE,0,0)
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow