Code: Select all
Enumeration 100 Step 100
#MAIN
#LEFT
EndEnumeration
Procedure ReSize()
wi=WindowWidth(#MAIN)
hi=WindowHeight(#MAIN)
ResizeGadget(#LEFT, 0, 0,550,hi)
ResizeGadget(#LEFT+1, 5, 5, 240,hi-10)
ResizeGadget(#LEFT+2, 250, 5, 240, hi-30)
EndProcedure
Procedure Start()
OpenWindow(#MAIN, 0, 0, 0,0, "example",#PB_Window_Background)
wi=WindowWidth(#MAIN)
hi=WindowHeight(#MAIN)
ContainerGadget(#LEFT,0,0,550, hi, #PB_Container_BorderLess)
TextGadget(#LEFT+1, 5,5,240,hi-10,"",#PB_Text_Border)
FrameGadget(#LEFT+2, 250, 5, 240, hi-30,"",#PB_Frame_Single)
CloseGadgetList()
EndProcedure
Start()
BindEvent(#PB_Event_SizeWindow, @ ReSize())