ScrollPanel - Win32

Archives Forums/MaxGUI Bug Reports/ScrollPanel - Win32

degac (Posted 2010) [#1]

I just found a little 'bug' in the ScrollPanel gadget. This is the original source example, I just replaced CreateButton with CreateLabel... Strict Import MaxGUI.Drivers Import MaxGUI.ProxyGadgets AppTitle = "Scroll Panel Example" SeedRnd MilliSecs() Global wndMain:TGadget = CreateWindow(AppTitle,100,100,400,300,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE|WINDOW_CENTER|WINDOW_CLIENTCOORDS|WINDOW_STATUS) ' Create a scroll-panel Global scrlMain:TScrollPanel = CreateScrollPanel( 0, 0, ClientWidth(wndMain), ClientHeight(wndMain)-30, wndMain, SCROLLPANEL_SUNKEN ) SetGadgetLayout scrlMain,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED ' Retrieve the panel that is scrolled Local tmpClient:TGadget = ScrollPanelClient(scrlMain) ' Draw some buttons on the scroll-panel Local tmpButton:TGadget For Local i:Int = 1 To 50 tmpButton = CreateLabel( "Button " + i, 0, (i-1)*35, ClientWidth(scrlMain)-20, 30, tmpClient,label_FRAME ) SetGadgetTextColor tmpButton,Rand(0,255),Rand(0,255),Rand(0,255) SetGadgetLayout tmpButton,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_CENTERED Next ' Resize the scrollable region tight around the buttons FitScrollPanelClient( scrlMain, SCROLLPANEL_SIZETOKIDS ) ' Add some buttons for testing the ScrollScrollPanel function. Global btnTopLeft:TGadget = CreateButton( "Top Left", 0, ClientHeight(wndMain)-30, ClientWidth(wndMain)/4, 30, wndMain, BUTTON_PUSH ) SetGadgetLayout( btnTopLeft, EDGE_ALIGNED, EDGE_RELATIVE, EDGE_CENTERED, EDGE_ALIGNED ) SetGadgetToolTip( btnTopLeft, "ScrollScrollPanel( scrlMain, SCROLLPANEL_LEFT, SCROLLPANEL_TOP )" ) Global btnTopRight:TGadget = CreateButton( "Top Right", ClientWidth(wndMain)/4, ClientHeight(wndMain)-30, ClientWidth(wndMain)/4, 30, wndMain, BUTTON_PUSH ) SetGadgetLayout( btnTopRight, EDGE_RELATIVE, EDGE_RELATIVE, EDGE_CENTERED, EDGE_ALIGNED ) SetGadgetToolTip( btnTopRight, "ScrollScrollPanel( scrlMain, SCROLLPANEL_RIGHT, SCROLLPANEL_TOP )" ) Global btnBottomLeft:TGadget = CreateButton( "Bottom Left", 2*ClientWidth(wndMain)/4, ClientHeight(wndMain)-30, ClientWidth(wndMain)/4, 30, wndMain, BUTTON_PUSH ) SetGadgetLayout( btnBottomLeft, EDGE_RELATIVE, EDGE_RELATIVE, EDGE_CENTERED, EDGE_ALIGNED ) SetGadgetToolTip( btnBottomLeft, "ScrollScrollPanel( scrlMain, SCROLLPANEL_LEFT, SCROLLPANEL_BOTTOM )" ) Global btnBottomRight:TGadget = CreateButton( "Bottom Right", 3*ClientWidth(wndMain)/4, ClientHeight(wndMain)-30, ClientWidth(wndMain)/4, 30, wndMain, BUTTON_PUSH ) SetGadgetLayout( btnBottomRight, EDGE_RELATIVE, EDGE_ALIGNED, EDGE_CENTERED, EDGE_ALIGNED ) SetGadgetToolTip( btnBottomRight, "ScrollScrollPanel( scrlMain, SCROLLPANEL_RIGHT, SCROLLPANEL_BOTTOM )" ) Repeat Select WaitEvent() Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE;End Case EVENT_GADGETACTION Select EventSource() Case btnTopLeft ScrollScrollPanel( scrlMain, SCROLLPANEL_LEFT, SCROLLPANEL_TOP ) Case btnTopRight ScrollScrollPanel( scrlMain, SCROLLPANEL_RIGHT, SCROLLPANEL_TOP ) Case btnBottomLeft ScrollScrollPanel( scrlMain, SCROLLPANEL_LEFT, SCROLLPANEL_BOTTOM ) Case btnBottomRight ScrollScrollPanel( scrlMain, SCROLLPANEL_RIGHT, SCROLLPANEL_BOTTOM ) EndSelect EndSelect SetStatusText wndMain, "ScrollPanelX(): " + ScrollPanelX( scrlMain ) + ", ScrollPanelY():" + ScrollPanelY( scrlMain ) Forever Here a screenshot of the 'error' when you 'scroll up & down' the panel.. Last edited 2010

jsp (Posted 2010) [#2]

I saw a similar effect with group panels and sliders when initially created or updated when outside the visible area.

Grisu (Posted 2011) [#3]

Sorry to bring this old thread up. :( I have the same issues here with the latest version of MAXGUI. It's not only connected to the scrollpanel. The black boxes also show up when you set Pixmaps to PushButtons without using a manifest file: There has to be somthing wrong with the transparency masks. Any updates on this? System: Win7 (64 Bit) + ATI graphics card Last edited 2011

Trinosis (Posted 2012) [#4]

I'm having the same issue with labels on a scroll panel. I'm using the latest version of Blitzmax and Maxgui. The issue seems to be the text background color defaults to black. I can get around the problem using SetGadgetColor(my_label , r , g , b , True) But then that raises the issue of geting the correct background color the label is drawn on. I can hard code this color, but i don't want to because i'm using the default windows appearance, which will probably be different for different operating systems. So hard coding a color for my system, may be different for someone elses. Another solution is to use RedrawGadget(my_scrollpanel) But there is a delay before the scroll panel is redrawn, so i get brief flashes of black. Does anyone have fix for this ? Thanks in advance.

jsp (Posted 2012) [#5]

As mentioned above I saw this when the gadget was initially outside. Is the gadget also outside in your form? If yes you could make the ScrollPanel hidden and bigger and setup all gadgets on top and then shrink it to the size you need and show it. Another workaround could be: LookupGuiColor( colorindex, red:Byte Var, green:Byte Var, blue:Byte Var ) which can retrieve the background color.

Trinosis (Posted 2012) [#6]

Hi jsp. Thanks for the info. I didn't know about LookupGuiColor, i'll give that a try. Most of the text appears normal upon creation, but i do get the odd bit of text on black background without scrolling the panel. Upon scrolling the panel, text that scrolls off screen and then back on appears with this black background.