PureBoard

Code: Alles auswählen

id = 1
idLV=2

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(id,10,10,25,230,"",20,#LVS_NOCOLUMNHEADER)
  
  ListViewGadget(idLV, 35, 10, 50, 230)
  For i = 1 To 10
    AddGadgetItem(idLV, -1, "Color "+Str(i))
    AddGadgetItem(id, -1, "")
  Next
  
   SetGadgetItemColor(id, 0, #PB_Gadget_BackColor, RGB(255, 0, 0))
   SetGadgetItemColor(id, 1, #PB_Gadget_BackColor, RGB(0, 255, 0))
   SetGadgetItemColor(id, 2, #PB_Gadget_BackColor, RGB(0, 0, 255))
   SetGadgetItemColor(id, 3, #PB_Gadget_BackColor, RGB(255, 0, 255))
   
   SetGadgetItemColor(id, 4, #PB_Gadget_BackColor, RGB(170, 0, 0))
   SetGadgetItemColor(id, 5, #PB_Gadget_BackColor, RGB(0, 170, 0))
   SetGadgetItemColor(id, 6, #PB_Gadget_BackColor, RGB(0, 0, 170))
   SetGadgetItemColor(id, 7, #PB_Gadget_BackColor, RGB(170, 0, 170))
   SetGadgetItemColor(id, 8, #PB_Gadget_BackColor, RGB(0, 170, 170))
   SetGadgetItemColor(id, 9, #PB_Gadget_BackColor, RGB(170, 170, 0))
   SetGadgetItemColor(id, 10, #PB_Gadget_BackColor, RGB(85, 0, 0))
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Code: Alles auswählen

EnableExplicit

Define id = 1

CreateImage(1, 16, 16)
CreateImage(2, 16, 16)

If StartDrawing(ImageOutput(1))
  Box(0, 0, 16, 16, RGB(255, 0, 0))
  
  StopDrawing()
EndIf
If StartDrawing(ImageOutput(2))
  Box(0, 0, 16, 16, RGB(0, 255, 0))
  
  StopDrawing()
EndIf

;weitere Farbgrafiken hier erstellen...

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(id,10,10,65,230,"",0,#LVS_NOCOLUMNHEADER)
  SendMessage_(GadgetID(id),#LVM_SETCOLUMNWIDTH,0,#LVSCW_AUTOSIZE_USEHEADER)
  
  AddGadgetItem(id, -1, "Color 1", ImageID(1), 0)
  AddGadgetItem(id, -1, "Color 2", ImageID(2), 0)
 
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf