PureBoard

Code: Alles auswählen

OpenWindow(0,0,0,320,300,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  ListIconGadget(0,5,30,310,265,"0",21,#PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines) ;"ۥ"

  AddGadgetColumn(0, 1, "NOTIZEN", 200)
  AddGadgetColumn(0, 2, "Redord$", 20)

; ListIconGadget(0,5,30,310,265,"Name",250,#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)

ButtonGadget(1,5,5,100,20,"Mach An")
ButtonGadget(2,110,5,100,20,"Mach Aus")
ButtonGadget(4,230,5,40,20,"GR")
ButtonGadget(5,270,5,40,20,"KL")
CreateImage(0,16,16)

For i=1 To 80 : AddGadgetItem(0,-1,"Gadget Item #" + Str(i)) : Next

Repeat
  EventID = WaitWindowEvent()
  
  If EventID = #PB_Event_Gadget
    Select EventGadget()
      Case 1
        lastselect = GetGadgetState(0)
        exstyle = SendMessage_(GadgetID(0), #LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
        SendMessage_(GadgetID(0), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, exstyle | #LVS_EX_CHECKBOXES)
        SetGadgetState(0, lastselect)
        SetActiveGadget(0)
      Case 2
        lastselect = GetGadgetState(0)
        exstyle = SendMessage_(GadgetID(0), #LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
        SendMessage_(GadgetID(0),#LVM_SETEXTENDEDLISTVIEWSTYLE,0, exstyle & ~ #LVS_EX_CHECKBOXES)
        SetGadgetState(0, lastselect)
        SetActiveGadget(0)
        
      Case 4
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 62)
      Case 5
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 120)
        
    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow

Code: Alles auswählen

      Case 4
        SetGadgetItemAttribute(0, 1, #PB_ListIcon_ColumnWidth, 62); <= Egal was man Einträgt, es ändert sich nur die Spalte 0
      Case 5
        SetGadgetItemAttribute(0, 1, #PB_ListIcon_ColumnWidth, 120)

Code: Alles auswählen

OpenWindow(0,0,0,320,300,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  ListIconGadget(0,5,30,310,265,"0",21,#PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines) ;"ۥ"

  AddGadgetColumn(0, 1, "NOTIZEN", 200)
  AddGadgetColumn(0, 2, "Redord$", 20)

; ListIconGadget(0,5,30,310,265,"Name",250,#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)

ButtonGadget(1,5,5,100,20,"Mach An")
ButtonGadget(2,110,5,100,20,"Mach Aus")
ButtonGadget(4,230,5,40,20,"GR")
ButtonGadget(5,270,5,40,20,"KL")
CreateImage(0,16,16)

For i=1 To 80 : AddGadgetItem(0,-1,"Gadget Item #" + Str(i)) : Next

Repeat
  EventID = WaitWindowEvent()
  
  If EventID = #PB_Event_Gadget
    Select EventGadget()
      Case 1
        lastselect = GetGadgetState(0)
        exstyle = SendMessage_(GadgetID(0), #LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
        SendMessage_(GadgetID(0), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, exstyle | #LVS_EX_CHECKBOXES)
        SetGadgetState(0, lastselect)
        SetActiveGadget(0)
      Case 2
        lastselect = GetGadgetState(0)
        exstyle = SendMessage_(GadgetID(0), #LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
        SendMessage_(GadgetID(0),#LVM_SETEXTENDEDLISTVIEWSTYLE,0, exstyle & ~ #LVS_EX_CHECKBOXES)
        SetGadgetState(0, lastselect)
        SetActiveGadget(0)
      Case 4
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 120,0)
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 120,1)
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 120,2) 
      Case 5
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 62,0)
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 62,1)
        SetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth, 62,2)       
    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow