scrollarea : background color (fixed)

[eddy]

Code updated For 5.20+

For PB 4.XX

Code: Select all

Procedure ScrollAreaColor(ID, r, g, b)
   ScrollAreaChild=GetWindow_(GadgetID(ID), #GW_CHILD)
   ScrollAreaColor=CreateSolidBrush_(RGB(r, g, b))
   SetClassLong_(ScrollAreaChild, #GCL_HBRBACKGROUND, ScrollAreaColor)
   InvalidateRect_(ScrollAreaChild, #Null, #True)
EndProcedure

Enumeration
   #WIN
   #SCROLL
EndEnumeration

OpenWindow(#WIN, 0, 0, 500, 300, "", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget)
If 1;CreateGadgetList(WindowID(#WIN))
   ScrollAreaGadget(#SCROLL, 0, 0, WindowWidth(#WIN), WindowHeight(#WIN), 500, 500, 10, #PB_ScrollArea_Single)
   CloseGadgetList()
   ScrollAreaColor(#SCROLL, 255, 0, 0)
EndIf

Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
End

[fsw]

Eddy,
your code doesn't work on WinXP 8O

Here is the changed

Code: Select all

Procedure ScrollAreaColor(ID,r,g,b)
   ScrollAreaChild=GetParent_(GetWindow_(GadgetID(ID),#GW_CHILD))
   ScrollAreaColor=CreateSolidBrush_(RGB(r,g,b))
   SetClassLong_(ScrollAreaChild, #GCL_HBRBACKGROUND,ScrollAreaColor) 
   InvalidateRect_(ScrollAreaChild, #Null, #True)   
EndProcedure

Enumeration
   #WIN
   #SCROLL
EndEnumeration

OpenWindow(#WIN,0,0,500,300,#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered | #PB_Window_MaximizeGadget,"PB_Scrollbar")
If CreateGadgetList(WindowID())
   ScrollAreaGadget(#SCROLL,0,0,WindowWidth(),WindowHeight(),AreaX,AreaY,10,#PB_ScrollArea_Single)
   ScrollAreaColor(#SCROLL,255,0,0)
   CloseGadgetList()
EndIf

Repeat : Until WaitWindowEvent()=#PB_EventCloseWindow
End 

now it works here too (WinXP home)
Only added a GetParent to the GetWindow function.
Hope it works for you too - which OS are you using
BTW: Thanks for your tip

[eddy]

I forgot to set scrollarea size ( AreaX = 500 : AreaY = 500 )
That's why my example does not work.

It's fixed now. You don't need to use GetParent