ListViewGadget - Hintergrundfarbe ändern?

[hiltwin]

Ist das irgendwie möglich - und wenn ja, wie?

Ich hab dazu nix gefunden ....


Frdl. Gruss
Hiltwin

P.S.: Der Hintergrund soll dann nicht weiss, sondern im grau wie die restliche Windowsfläche erscheinen ... ;o)

[Kiffi]

vielleicht ist die PureCOLOR library von Gnozal was für Dich: http://people.freenet.de/gnozal/

Grüße ... Kiffi

[FGK]

Hi Hiltwin,

hab das aus nem alten Archiv ausgegraben - probiers damit

Gruß

FGK

Code: Alles auswählen

ListViewTextColor = RGB(255,255,255)
ListViewBackColor = RGB(180,180,180)

ListViewBackBrush = CreateSolidBrush_(ListViewBackColor)

hwnd = OpenWindow(0,100,100,400,400,#PB_Window_SystemMenu,"Colored ListView")
CreateGadgetList(hwnd)
ListViewGadget(0,10,10,380,380)

For a = 1 To 1000
  AddGadgetItem(0,-1,"ListView Line "+Str(a))
Next a

Procedure myWinCallback(Window, message, wParam, lParam)
  Shared ListViewTextColor, ListViewBackBrush  ; <<<--- TextColor and Backbrush SHARED or GLOBAL
  result = #PB_ProcessPureBasicEvents
  If message = #WM_CTLCOLORLISTBOX
    SetBkMode_(wParam, #TRANSPARENT)
    SetTextColor_(wParam, ListViewTextColor)
    result = ListViewBackBrush
  EndIf
  ProcedureReturn result
EndProcedure
SetWindowCallback(@myWinCallback())

While WaitWindowEvent() <> #PB_EventCloseWindow : Wend

DeleteObject_(ListViewBackBrush)

[hiltwin]

... wieder eine klasse lösungsumsetzung.

muss mich allerdings noch nen bisschen einarbeiten, wie ich das in meinen code integriert bekomm ;o)