Why does not work Resize for FrameGadget?

Just starting out? Need help? Post your questions and find answers here.
SamsonA
Posts: 7
Joined: Sat Nov 11, 2017 6:17 am

Why does not work Resize for FrameGadget?

Post by SamsonA »

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())
User avatar
Peter
Posts: 1086
Joined: Mon Feb 24, 2014 10:17 pm
Location: 127.0.0.1:9080
Contact:

Re: Why does not work Resize for FrameGadget?

Post by Peter »

Code: Select all

BindEvent(#PB_Event_SizeDesktop, @ ReSize())
Post Reply