EnableExplicit Define a Global ListCB Procedure ListCB(hWnd, Message, wParam, lParam) Protected *HD_NOTIFY.HD_NOTIFY Protected Result = CallWindowProc_(ListCB, hWnd, Message, wParam, lParam) Select Message Case #WM_NOTIFY *HD_NOTIFY = lParam If *HD_NOTIFY\hdr\code = #HDN_ITEMCHANGED Debug "Breite der Spalte " + Str(*HD_NOTIFY\iItem+1) + " wird geändert..." EndIf EndSelect ProcedureReturn Result EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0), "Spalte 1", 150, 0) AddGadgetColumn(1, 1, "Spalte 2", 150) AddGadgetColumn(1, 2, "Spalte 3", 150) For a=1 To 10 AddGadgetItem(1, -1, "Eintrag " + Str(a), 0, 0) Next ListCB = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @ListCB()) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf