ich will in einem ListIconGadget ein Image anzeigen. Geht das auch in einer anderen als der ersten Spalte? Weiß gerade nicht so genau nach was ich suchen soll.
Code: Alles auswählen
mainwindow.l = OpenWindow(#PB_Any, 0, 0, 190, 80, "Test", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
If mainwindow
mainlisticon.l = ListIconGadget(#PB_Any, 10, 10, 170, 60, "1", 50)
If mainlisticon
AddGadgetColumn(mainlisticon, 1, "2", 50)
AddGadgetColumn(mainlisticon, 2, "3", 50)
EndIf
EndIf
Img1.l = CreateImage(#PB_Any, 16, 16, 32)
If Img1
If StartDrawing(ImageOutput(Img1))
Box(0, 0, 16, 16, RGB(255, 255, 255))
DrawingMode(#PB_2DDrawing_Outlined)
Circle(8, 8, 7, RGB(0, 0, 0))
DrawingMode(#PB_2DDrawing_Default)
Circle(5, 5, 1, RGB(0, 0, 0))
Circle(11, 5, 1, RGB(0, 0, 0))
LineXY(8, 5, 8, 10, RGB(0, 0, 0))
LineXY(5, 12, 11, 12, RGB(0, 0, 0))
StopDrawing()
EndIf
EndIf
Img2.l = CreateImage(#PB_Any, 16, 16, 32)
If Img2
If StartDrawing(ImageOutput(Img2))
Box(0, 0, 16, 16, RGB(255, 255, 255))
DrawingMode(#PB_2DDrawing_Outlined)
Circle(8, 8, 7, RGB(0, 0, 0))
Circle(5, 5, 1, RGB(0, 0, 0))
Circle(11, 5, 1, RGB(0, 0, 0))
LineXY(8, 5, 8, 10, RGB(0, 0, 0))
LineXY(5, 12, 11, 12, RGB(0, 0, 0))
StopDrawing()
EndIf
EndIf
AddGadgetItem(mainlisticon, -1, "1" + Chr(10) + "2" + Chr(10) + "3", ImageID(Img1))
AddGadgetItem(mainlisticon, -1, "1" + Chr(10) + "2" + Chr(10) + "3", ImageID(Img2))
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
End
