Code: Alles auswählen
OpenWindow(0, 0, 0, 600, 400, "SplitterGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TextGadget (0, 10, 10, 100, 16, "ListIcon Standard", #PB_Text_Center)
ListIconGadget(1, 10, 35, 300, 70, "Column 1", 100)
TextGadget (2, 10, 125, 120, 16, "ListIcon with Checkbox", #PB_Text_Center)
ListIconGadget(3, 10, 150, 300, 70, "Column 1", 100, #PB_ListIcon_CheckBoxes)
ButtonGadget (4, 10, 230, 100, 20, "Add Gadget")
ButtonGadget(5, 0, 0, 0, 0, "Button 5")
ButtonGadget(6, 0, 0, 0, 0, "Button 6")
SplitterGadget(7, 400,35, 160, 125, 5, 6, #PB_Splitter_Separator)
ContainerGadget(8,400,160,160,160)
ButtonGadget(9, 0, 10, 80, 25, "Button 9")
ButtonGadget(10,0, 45, 80, 25, "Button 10")
CloseGadgetList()
If PanelGadget(11, 10, 260, 580, 130)
AddGadgetItem(11, -1, "Allgemein")
ButtonGadget(12, 10, 10, 100, 20, "Button 12", 0)
ButtonGadget(13, 120, 10, 100, 20, "Button 13", 0)
ButtonGadget(14, 230, 10, 100, 20, "Button 14", 0)
AddGadgetItem(11, -1, "Erweitert")
ButtonGadget(15, 10, 40, 100, 20, "Button 15", 0)
ButtonGadget(16, 120, 40, 100, 20, "Button 16", 0)
ButtonGadget(17, 230, 40, 100, 20, "Button 17", 0)
AddGadgetItem(11, -1, "mit Scrollarea")
ScrollAreaGadget(18, 5, 5, 590, 90, 580, 85)
ButtonGadget(19, 10, 25, 100, 20, "Button 19", 0)
ButtonGadget(20, 120, 25, 100, 20, "Button 20", 0)
ButtonGadget(21, 230, 25, 100, 20, "Button 21", 0)
CloseGadgetList()
AddGadgetItem(11, -1, "mit Verschachtelungen")
ContainerGadget(22, 10, 10, 550, 90, #PB_Container_Flat)
ScrollAreaGadget(23, 10, 10, 530, 70, 520, 60, #PB_ScrollArea_Flat)
ButtonGadget(24, 10, 10, 100, 20, "Button 24", 0)
ButtonGadget(25, 120, 10, 100, 20, "Button 25", 0)
ButtonGadget(26, 230, 10, 100, 20, "Button 26", 0)
CloseGadgetList()
CloseGadgetList()
CloseGadgetList()
EndIf
Repeat
ev=WaitWindowEvent()
Select ev
Case #WM_MOUSEMOVE
GetCursorPos_ (@p.POINT)
ScreenToClient_ (WindowID(0), @p)
hGad = ChildWindowFromPoint_ (WindowID(0), p\y<< 32+p\x)
If hGad = WindowID(0)
Debug "No Gadget"
Else
gadget = GetProp_(hGad, "PB_ID")
If GadgetType(gadget) = #PB_GadgetType_Splitter Or GadgetType(gadget) = #PB_GadgetType_Container
GetCursorPos_ (@p.POINT)
ScreenToClient_ (GadgetID(gadget), @p)
hGad = ChildWindowFromPoint_ (GadgetID(gadget), p\y<< 32+p\x)
ElseIf GadgetType(gadget) = #PB_GadgetType_Panel
GetCursorPos_ (@p.POINT)
ScreenToClient_ (GadgetID(gadget), @p)
hGad = ChildWindowFromPoint_ (GadgetID(gadget), p\y<< 32+p\x)
For a=1 To GetGadgetState(gadget)
hGad = GetWindow_(hGad, #GW_HWNDNEXT)
Next
hGad3 = hGad
Repeat
hGad2 = GetWindow_(hGad, #GW_CHILD)
If hGad2 = 0
hGad = GetParent_(hGad)
Break
Else
hGad = hGad2
EndIf
ForEver
GetCursorPos_ (@p.POINT)
ScreenToClient_ (hGad, @p)
hGad = ChildWindowFromPoint_ (hGad, p\y<< 32+p\x)
EndIf
gadget = GetProp_(hGad, "PB_ID")
If gadget <> 0
Debug "Gadget : " + Str(gadget)
EndIf
EndIf
Case #PB_Event_CloseWindow
Q = 1
EndSelect
Until Q = 1