Panelgadget flache multiline Items
Verfasst: 05.12.2005 17:48
Da mir das PanelGadget mit seinen Items nicht so gefallen hat habe ich mal eben im PSDK ne runde gelesen und dabei sind flache multiline items in einem PanelGadget rausgekommen.
Gruß,
Nico
Code: Alles auswählen
#TCS_BUTTONS = $0100
#TCS_FLATBUTTONS = $0008
#TCS_MULTILINE = $200
OpenWindow(0,0,0,400,400,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"flat multiline panle items")
CreateGadgetList(WindowID())
PanelGadget(0,0,0,395,395)
For I = 0 To 10
AddGadgetItem(0,I,"Item "+Str(I))
Next
style = GetWindowLong_(GadgetID(0),#GWL_STYLE)
style|#TCS_BUTTONS|#TCS_FLATBUTTONS|#TCS_MULTILINE
SetWindowLong_(GadgetID(0),#GWL_STYLE,style)
font = LoadFont(0, "Arial", 10, #PB_Font_Bold)
SendMessage_(GadgetID(0), #WM_SETFONT, font, 1)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
Nico