PureBasic Forums - English

Code: Select all

Global Window_0

Global Button_0, Button_0_1, Tree_0, Panel_0, Scrollbar_0, Scrollbar_1

Declare ResizeGadgetsWindow_0()

Procedure InitWindow_0()
  Protected WindowWidth, WindowHeight
  Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
  WindowWidth = WindowWidth(Window_0)
  WindowHeight = WindowHeight(Window_0)
  Button_0 = ButtonGadget(#PB_Any, WindowWidth - 100, WindowHeight - 30, 90, 25, "Save")
  Button_0_1 = ButtonGadget(#PB_Any, WindowWidth - 200, WindowHeight - 30, 90, 25, "Cancel")
  Tree_0 = TreeGadget(#PB_Any, 10, 10, 210, WindowHeight - 50)
  Panel_0 = PanelGadget(#PB_Any, 230, 10, WindowWidth - 240, WindowHeight - 50)
  AddGadgetItem(Panel_0, -1, "Tab 1")
  Scrollbar_0 = ScrollBarGadget(#PB_Any, 10, GetGadgetAttribute(Panel_0,#PB_Panel_ItemHeight) - 23, GetGadgetAttribute(Panel_0,#PB_Panel_ItemWidth) - 20, 20, 0, 0, 0)
  Scrollbar_1 = ScrollBarGadget(#PB_Any, GetGadgetAttribute(Panel_0,#PB_Panel_ItemWidth) - 20, 0, 20, GetGadgetAttribute(Panel_0,#PB_Panel_ItemHeight) - 30, 0, 0, 0, #PB_ScrollBar_Vertical)
  CloseGadgetList()
EndProcedure

Procedure ResizeGadgetsWindow_0()
  Protected WindowWidth, WindowHeight
  WindowWidth = WindowWidth(Window_0)
  WindowHeight = WindowHeight(Window_0)
  ResizeGadget(Button_0, WindowWidth - 100, WindowHeight - 30, 90, 25)
  ResizeGadget(Button_0_1, WindowWidth - 200, WindowHeight - 30, 90, 25)
  ResizeGadget(Tree_0, 10, 10, 210, WindowHeight - 50)
  ResizeGadget(Panel_0, 230, 10, WindowWidth - 240, WindowHeight - 50)
  ResizeGadget(Scrollbar_0, 10, GetGadgetAttribute(Panel_0,#PB_Panel_ItemHeight) - 23, GetGadgetAttribute(Panel_0,#PB_Panel_ItemWidth) - 20, 20)
  ResizeGadget(Scrollbar_1, GetGadgetAttribute(Panel_0,#PB_Panel_ItemWidth) - 20, 0, 20, GetGadgetAttribute(Panel_0,#PB_Panel_ItemHeight) - 30)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
EndProcedure

InitWindow_0()

Repeat
  event = WaitWindowEvent()
  
  If event = #PB_Event_SizeWindow
    ResizeGadgetsWindow_0()
  EndIf
  
Until event = #PB_Event_CloseWindow

Code: Select all

; Form Designer for Purebasic - 5.0
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.

Global Window_0

Global Image_0

Global Img_0

UsePNGImageDecoder()

Img_0 = LoadImage(#PB_Any,"C:\aqua-ball-green.png")

Procedure InitWindow_0()
  Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "", #PB_Window_SystemMenu)
  Image_0 = ImageGadget(#PB_Any, 80, 40, 128, 128, ImageID(Img_0))
EndProcedure


Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
EndProcedure

Code: Select all

; Form Designer for Purebasic - 5.0
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.

Global Window_0

Global Image_0, Image_0

Global Img_0, Img_1

UsePNGImageDecoder()

Img_0 = LoadImage(#PB_Any,"C:\aqua-ball-green.png")
Img_1 = LoadImage(#PB_Any,"C:\Golf ball.png")

Procedure InitWindow_0()
  Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "", #PB_Window_SystemMenu)
  Image_0 = ImageGadget(#PB_Any, 80, 40, 128, 128, ImageID(Img_0))
  Image_0 = ImageGadget(#PB_Any, 230, 110, 64, 64, ImageID(Img_1))
EndProcedure


Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
EndProcedure

Code: Select all

Img_0 = LoadImage(#PB_Any,"C:\aqua-ball-green.png")
Img_1 = LoadImage(#PB_Any,"C:\Golf ball.png")