Code archives/BlitzPlus Gui/PanelWindow
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
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