[bb] PanelWindow by skidracer [ 1+ years ago ]

[BlitzBot]

Title : PanelWindow
Author : skidracer
Posted : 1+ years ago

Description : demonstrates a backdrop panel for changing background color of a window

Code :

Code (blitzbasic) Select Expand

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...