ListIcon Checkbox

[Velindos]

Hallo Leute,
habe noch ein Problem, kann jetzt die Spaltenbreite nicht mehr verstellten, hat jemand einen Tip?

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

Gruss ... Velindos

[Pure_Beginner]

Hallo Velindos,

wo genau ist das Problem, der Code läuft bei mir anscheinend Fehlerfrei, oder hab ich was übersehen ?

Grüße
Christian

[Velindos]

Hallo,
versuch einmal folgendes Einzutragen:

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)

Gruss ... Velindos

[Pure_Beginner]

Hallo Velindos,

tut mir leid das ich so spät Antworte, war die ganze Woche unterwegs.

versuch es so:

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

und schau dir in der Hilfe die genaue Beschreibung des Befehls an.

Hoffentlich nicht zu spät.

Schönen Sonntag
Christian

[Velindos]

Hallo,
Danke für deinen Vorschlag, habe den Eintrag mit der Spalte vertauscht! Funkt jetzt!

Gruss ... Velindos