NewsForumsCodeLogsGallerySpecsSearch

Code archives/BlitzPlus Gui/PanelWindow

This code has been declared by its author to be Public Domain code.

Download source code

PanelWindow by skidracer2003
demonstrates a backdrop panel for changing background color of a window 
Function PanelWindow(window)
	panel=CreatePanel(0,0,ClientWidth(window),ClientHeight(window),window)
	SetGadgetLayout panel,True,True,True,True
	Return panel
End Function

window = CreateWindow("Test Master",20,20,200,200) 
panel=PanelWindow(window)
SetPanelColor panel,20,40,200

i=CreateTextField(4,4,100,20,panel)

Repeat
	Select WaitEvent()
		Case $803 End	
	End Select
Forever

Comments

None.

Code Archives Forum