;Autor: Kiffi ;http://www.purebasic.fr/german/viewtopic.php?p=313853#p313853 EnableExplicit Define EventID Procedure SetFullRowSelect(LIG, Flag) Protected lstyle lstyle = SendMessage_(GadgetID(LIG), #LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0) If Flag lstyle | #LVS_EX_FULLROWSELECT Else lstyle ! #LVS_EX_FULLROWSELECT EndIf SendMessage_(GadgetID(LIG), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, lstyle) EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, "Spalte 1", 100, 0) AddGadgetColumn(1, 1, "Spalte 2", 100) AddGadgetItem(1, -1, "Item" + Chr(10) + "Item", 0, 0) ButtonGadget(2, WindowWidth(0)-420, WindowHeight(0)-30, 200, 20, "#PB_ListIcon_FullRowSelect hinzufügen", 0) ButtonGadget(3, WindowWidth(0)-210, WindowHeight(0)-30, 200, 20, "#PB_ListIcon_FullRowSelect entfernen", 0) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_Gadget Select EventGadget() Case 2 SetFullRowSelect(1, 1) Case 3 SetFullRowSelect(1, 0) EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0