ClientWidth help from other OS's

BlitzMax Forums/BlitzMax GUI Programming/ClientWidth help from other OS's

Ok, Ok. Break it up you two! :P

@ Ked: Does this not work for you?

'Paste into a brand new unsaved file, in MaxIDE.

SuperStrict

Import MaxGUI.Drivers

AppTitle = "Label Background Test"

Global wndMain:TGadget = CreateWindow(AppTitle,100,100,400,300,Null,WINDOW_TITLEBAR|WINDOW_STATUS|WINDOW_CLIENTCOORDS|WINDOW_RESIZABLE)
	
	'Load panel and set a tiled pixmap
	Global pnlBackground:TGadget = CreatePanel(0,0,ClientWidth(wndMain),ClientHeight(wndMain),wndMain)
	SetGadgetLayout pnlBackground,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_ALIGNED
	Global pixBackground:TPixmap = LoadPixmap("../docs/src/bmax120.png")
	SetPanelPixmap(pnlBackground,pixBackground,PANELPIXMAP_TILE)
	
	'Then add a label to the panel to see if the background shows through.
	Global lblText:TGadget = CreateLabel("The quick brown fox jumped over the lazy dogs.",10,10,ClientWidth(pnlBackground)-20,ClientHeight(pnlBackground)-20,pnlBackground, LABEL_CENTER)
	SetGadgetLayout lblText,EDGE_ALIGNED,EDGE_ALIGNED,EDGE_CENTERED,EDGE_CENTERED
	SetGadgetTextColor(lblText,255,0,0)
	SetGadgetFont(lblText, LookupGuiFont(GUIFONT_SYSTEM, 36, FONT_BOLD))

AddHook EmitEventHook, eventHook

Repeat;WaitSystem();Forever

Function eventHook:Object( pID%, pData:Object, pContext:Object )
	
	Local pEvent:TEvent = TEvent(pData)
	If Not pEvent Then Return pData
	
	SetStatusText wndMain, pEvent.ToString()
	
	Select pEvent.id
		Case EVENT_APPTERMINATE, EVENT_WINDOWCLOSE;End
	EndSelect
	
EndFunction


I know it's not a pretty example, but the background is definitely visible through the label text: