ListIconGadget, Image nicht in erster Spalte
Verfasst: 11.07.2013 01:57
Hallo zusammen,
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.
Gruß Rene
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