; German forum: ; Author: Danilo ; Date: 26. June 2002 hWnd = OpenWindow(1,10,10,300,300,#PB_Window_SystemMenu,"TEST") CreateGadgetList(hWnd) listview = ListViewGadget(3,10,10,280,280) For a = 1 To 10 AddGadgetItem(3,-1,"COOOOOOL") Next a ColorBrush = CreateSolidBrush_(RGB($00,$00 ,$00)) ; BACKGROUND ;--- Procedure mycallback(hWnd, Message, wParam, lParam) Shared ColorBrush RetValue = #PB_ProcessPureBasicEvents Select Message Case #WM_CTLCOLORLISTBOX SetTextColor_(wParam,RGB($FF,$FF,$00)) ; FOREGROUND SetBkMode_(wParam, #TRANSPARENT) RetValue = ColorBrush EndSelect ProcedureReturn RetValue EndProcedure SetWindowCallback(@mycallback()) ;--- Repeat : Until WaitWindowEvent() = #PB_EventCloseWindow ;--- DeleteObject_(ColorBrush) ; ExecutableFormat= ; FirstLine=1 ; EnableXP ; EOF