PureBasic Forums - English

Code: Select all

ButtonGadget(#g_button1,190,190,20,20,"1")
ButtonGadget(#g_button2,360,360,40,40,"2")
gs_addrule(#gs_gadget,#g_button2,#gs_below,#gs_gadget,#g_button1,0,0)

Code: Select all

gs_init()
;
Enumeration
  #w_main_nr
  #w_slave_nr
  #g_button1
  #g_button2
  #g_button3
EndEnumeration
;
Global event.i
;
OpenWindow(#w_main_nr,10,10,400,400,"gspot",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_SizeGadget)
OpenWindow(#w_slave_nr,10,10,220,220,"slave",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_SizeGadget)
;
UseGadgetList(WindowID(#w_main_nr))
ButtonGadget(#g_button1,190,190,20,20,"1")
ButtonGadget(#g_button2,360,360,40,40,"2")
gs_addrule(#gs_gadget,#g_button2,#gs_below,#gs_gadget,#g_button1,10,20)
gs_addrule(#gs_gadget,#g_button2,#gs_rightof,#gs_gadget,#g_button1,10,20)
gs_addrule(#gs_gadget,#g_button2,#gs_spandown,#gs_window,#w_main_nr,10,20)
gs_addrule(#gs_gadget,#g_button2,#gs_spanright,#gs_window,#w_main_nr,10,20)
gs_addrule(#gs_window,#w_slave_nr,#gs_aligntop,#gs_window,#w_main_nr)
gs_addrule(#gs_window,#w_slave_nr,#gs_rightof,#gs_window,#w_main_nr,10)
gs_addrule(#gs_window,#w_slave_nr,#gs_setsize,#gs_window,#w_main_nr)
;
Repeat
  event = WaitWindowEvent()
  Select event
  Case #PB_Event_SizeWindow, #PB_Event_MoveWindow
    ResizeGadget(#g_button1,WindowWidth(#w_main_nr)/2,WindowHeight(#w_main_nr)/2,#PB_Ignore,#PB_Ignore)
    gs_apply()
  EndSelect
Until event = #PB_Event_CloseWindow
;
gs_end()

Code: Select all

... code removed ... It'll be doing an Arnold... it'll be back! ...

Code: Select all

...
ImageGadget(#g_main_nr,0,ToolBarHeight(1),10,10,0)
CreateImage(#i_main_nr,10,10)
gs_rule(0,#gs_setsize,#gs_gadget,#g_main_nr,#gs_window,#w_main_nr)
gs_rule(0,#gs_setsize,#gs_image,#i_main_nr,#gs_gadget,#g_main_nr)
;
; add some 2d objects ie elements to look at
;
gs_linexy(0,100,100,100,200,RGB($FF,0,0))
gs_circle(0,200,150,50,RGB($FF,0,0),#PB_2DDrawing_Outlined)
gs_linexy(0,200,150,300,250,RGB(0,0,$FF))
gs_linexy(0,50,250,300,250,RGB(0,0,$FF))
;
; turn on autoscale, and define the viewpane (ie. what's used for sizing the output)
; all output goes onto the iamge #i_main_nr, so we'll use that
; and lets make sure we will set the viewport so that all elements are shown
;
gs_setviewpane(0,0,#gs_image,#i_main_nr)
gs_zoomall()
gs_autoscale = #True
...

...
  Case #PB_Event_MoveWindow, #PB_Event_SizeWindow, #PB_Event_MaximizeWindow, #PB_Event_RestoreWindow
    ;
    ; any window change should generate a call to gs_apply(), if gs_apply() detects a change
    ; that caused one of the defined rules to change an object, it will return a #true which can
    ; be used to trigger the redraw of all elements further down
    ;
    If gs_apply()
      refresh = #True
    EndIf
...

...

...
  If refresh = #True
    If IsWindow(gs_internalsviewer_windownr)
      gs_internalsviewer("")
    EndIf
    refresh = #False
    StartDrawing(ImageOutput(#i_main_nr))
      Box(0,0,ImageWidth(#i_main_nr),ImageHeight(#i_main_nr),0)
      gs_drawallelements()
    StopDrawing()
    SetGadgetState(#g_main_nr,ImageID(#i_main_nr))
  EndIf
...