Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
EnableExplicit
Define EventID
Define a
Global LVProc
Procedure LVProc(hWnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_PAINT
ShowScrollBar_(hWnd, #SB_VERT, #False)
EndSelect
ProcedureReturn CallWindowProc_(LVProc, hWnd, uMsg, wParam, lParam)
EndProcedure
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "Spalte", 450, 0)
For a=1 To 100
AddGadgetItem(1, -1, "Item " + Str(a), 0, 0)
Next
LVProc = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @LVProc())
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf
Code: Alles auswählen
EnableExplicit
Define EventID
Define a
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If ContainerGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), #PB_Container_BorderLess)
ListIconGadget(1, 0, 0, GadgetWidth(0)+20, GadgetHeight(0), "Spalte", 450, 0)
For a=1 To 100
AddGadgetItem(1, -1, "Item " + Str(a), 0, 0)
Next
CloseGadgetList()
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf
Code: Alles auswählen
EnableExplicit
Define EventID
Define a
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "Spalte", 450, 0)
For a=1 To 100
AddGadgetItem(1, -1, "Item " + Str(a), 0, 0)
Next
SetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE) | #WS_EX_LEFTSCROLLBAR)
SendMessage_(GadgetID(1), #WM_NCPAINT, 1, 0)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf