Ich habe ein problem und keine Ahnung woran es liegt.
Könnte sich das mal jemand anschauen und mir einen Tipp wegen, was ich falsch gemacht habe?
Code: Alles auswählen
; PureBasic Visual Designer v3.90 build 1360
; TEMP
Dim Language$(1)
Language$(0) = "XX"
Language$(1) = "SL"
;- Window Constants
;
Enumeration
#WND_SL
EndEnumeration
;- Gadget Constants
;
Enumeration
#GD_BTN_SL_OK
#GD_LICON_SL_Title
#GD_LICON
EndEnumeration
#PO_Last_Image = 100
For x = 1 To 8
If CreateImage(#PO_Last_Image + x, 32, 32)
StartDrawing(ImageOutput())
Box(0, 0, 32, 32, $888888)
FrontColor($AA, $FF, $88)
Locate(10, 10)
DrawingMode(1)
DrawText(Str(x))
StopDrawing()
EndIf
Next
Procedure Show_SL()
If OpenWindow(#WND_SL, 216, 0, 200, 320, #PB_Window_BorderLess , "New window ( 0 )")
If CreateGadgetList(WindowID())
TextGadget(#GD_LICON_SL_Title, 10, 10, 180, 20, Language$(1), #PB_Text_Center)
ButtonGadget(#GD_BTN_SL_OK, 60, 290, 74, 23, "Quit")
ListIconGadget(#GD_LICON, 10, 35, 130, 250, Language$(0), 100, #PB_ListIcon_MultiSelect);, #PB_ListIcon_CheckBoxes)
;- Aussehen einstellen
ChangeListIconGadgetDisplay(#GD_LICON, 0) ; grosse Icons
; For x = 1 To 8
; AddGadgetItem(#GD_LICON_Ship_Selection_List, -1, Str(x), UseImage(#PO_Last_Image + x))
; Debug #PO_Last_Image + x
; Next
AddGadgetItem(#GD_LICON, -1, Str(1), UseImage(101))
AddGadgetItem(#GD_LICON, -1, Str(2), UseImage(102))
AddGadgetItem(#GD_LICON, -1, Str(3), UseImage(103))
AddGadgetItem(#GD_LICON, -1, Str(4), UseImage(104))
AddGadgetItem(#GD_LICON, -1, Str(5), UseImage(105))
AddGadgetItem(#GD_LICON, -1, Str(6), UseImage(106))
AddGadgetItem(#GD_LICON, -1, Str(7), UseImage(107))
AddGadgetItem(#GD_LICON, -1, Str(8), UseImage(108))
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
GadgetID = EventGadgetID()
If GadgetID = #GD_LICON
Debug GetGadgetState(#GD_LICON)
EndIf
EndIf
Until Event = #PB_EventCloseWindow Or GadgetID = #GD_BTN_SL_OK
EndIf
CloseWindow(#WND_SL)
EndIf
EndProcedure
Show_SL()
End
Vielen Dank im Voraus
