PureBasic Forums - English

Code: Select all

AddScreenGadgetItem(#ScreenGadget, Position, Text$) ; Adds an item to a gadget (ListView, ComboBox etc.)
ButtonImageScreenGadget(#ScreenGadget, x, y, Width, Height, ImageID [, Flags]) ; Creates a button image gadget in the current screen or screen window.
ButtonScreenGadget(#ScreenGadget, x, y, Width, Height, Text$ [, Flags]) ; Creates a button gadget in the current screen or screen window.
CheckBoxScreenGadget(#ScreenGadget, x, y, Width, Height, Text$ [, Flags]) ; Creates a checkbox gadget in the current screen or screen window.
CloseScreenGadgetList(#ScreenGadget [, GadgetItem]) ; Closes the current screen gadget list and go back to the previous one.
CloseScreenWindow(#ScreenWindow) ; Closes the specified screen window.
ComboBoxScreenGadget(#ScreenGadget, x, y, Width, Height [, Flags]) ; Creates a combobox gadget in the current screen or screen window.
ContainerScreenGadget(#ScreenGadget, x, y, Width, Height, [, Flags]) ; Creates a container gadget in the current screen or screen window.
DisableScreenGadget(#ScreenGadget) ; Disables or enables the #ScreenGadget.
DisableScreenWindow(#ScreenWindow, State) ; Disable or enable all user input in the window.
EditorScreenGadget(#ScreenGadget, x, y, Width, Height [, Flags]) ; Creates an editor gadget in the current screen or screen window.
EventScreenGadget() ; Returns the screen gadget number (#ScreenGagdet) which triggered the event.
FreeScreenGadget(#ScreenGadget) ; Frees the specified screen gadget
GetScreenGadgetState(#ScreenGadget) ; Gets the state of the #ScreenGadget.
GetScreenGadgetText(#ScreenGadget) ; Gets the text of the #ScreenGadget.
HideScreenGadget(#ScreenGadget) ; Hides or shows the specified screen gadget.
HideScreenWindow(#ScreenWindow, State) ; Hide or show the specified #ScreenWindow.
ImageScreenGadget(#ScreenGadget, x, y, Width, Height, ImageID [, Flags]) ; Creates a image gadget in the current screen or screen window.
InitScreenGadgets() ; Intialize the screen gadget library for the current screen.
IsScreenGadget(#ScreenGadget) ; Tests if the given screen gadget is a valid screen gadget object.
ListViewScreenGadget(#ScreenGadget, x, y, Width, Height [, Flags]) ; Creates a listview gadget in the current screen or screen window.
OpenScreenGadgetList(#ScreenGadget [, GadgetItem]) ; Makes the #ScreenGadget the current screen gadget list.
OpenScreenWindow(#ScreenWindow, x, y, Width, Height [Title$ [, Flags]]) ; Open a new window on the current screen.
OptionScreenGadget(#ScreenGadget, x, y, Width, Height, Text$) ; Creates an option gadget in the current screen or screen window.
PanelScreenGadget(#ScreenGadget, x, y, Width, Height) ; Create a panel gadget in the current screen or screen window.
ProgressBarScreenGadget(#ScreenGadget, x, y, Width, Height, Min, Max [, Flags]) ; Creates a progressbar gadget in the current screen or screen window.
RemoveScreenGadgetItem(#ScreenGadget, Position, Text$) ; Removes the item at the specified position from the #ScreenGadget.
RenderScreenGadgets() ; Renders the screen window and gadgets on the current screen.
ResizeScreenGadget(#ScreenGadget, x, y, Width, Height) ; Moves and resizes the specified #ScreenGadget to the given position and dimensions.
ResizeScreenWindow(#ScreenWindow, x, y, Width, Height) ; Moves and resizes the specified #ScreenWindow to the given position and dimensions.
ScreenEventType() ; After ScreenWindowEvent(), use this function to determine of which type the event is.
ScreenGadgetHeight(#ScreenGadget) ; Returns the height of the #ScreenGadget, in pixels. 
ScreenGadgetSkin(SkinPart, #Image [, FreePrevious]) ; Set an image for a specific skin part. 
ScreenGadgetType(#ScreenGadget) ; Returns the type of the specified #ScreenGadget.
ScreenGadgetWidth(#ScreenGadget) ; Returns the width of the #ScreenGadget, in pixels.
ScreenGadgetX(#ScreenGadget) ; Returns the X position of the #ScreenGadget, in pixels.
ScreenGadgetY(#ScreenGadget) ; Returns the Y position of the #ScreenGadget, in pixels.
ScreenWindowAnimation(#ScreenWindow, Way, Duration, [, Fading [, Zoom, [x, [y, [, Angle]]]]) ; Setup an animation to open the window.
ScreenWindowEvent() ; Check if an event has occurred on any of the opened screen windows.
ScrollAreaScreenGadget(#ScreenGadget, x, y, Width, Height, ScrollAreaWidth, ScrollAreaHeight, ScrollStep [, Flags]) ; Creates a scrollarea gadget in the current screen or screen window.
ScrollBarScreenGadget(#ScreenGadget, x, y, Width, Height, Min, Max, PageLength [, Flags]) ; Creates a scrollbar gadget in the current screen or screen window.
SetScreenGadgetFont(#ScreenGadget, FontID) ; Changes the font which will be used by newly created gadgets.
SetScreenGadgetState(#ScreenGadget, State) ; Changes the state of the #ScreenGadget.
SetScreenGadgetText(#ScreenGadget, Text$) ; Changes the text of the #ScreenGadget.
SplitterScreenGadget(#ScreenGadget, x, y, Width, Height, #ScreenGadget1, #ScreenGadget2 [, Flags]) ; Creates a splitter gadget in the current screen or screen window.
StringScreenGadget(#ScreenGadget, x, y, Width, Height, Text$ [, Flags]) ; Creates a string gadget in the current screen or screen window.
TextScreenGadget(#ScreenGadget, x, y, Width, Height, Text$ [, Flags]) ; Creates a text gadget in the current screen or screen window.
TrackBarScreenGadget(#ScreenGadget, x, y, Width, Height, Min, Max [, Flags]) ; Creates a trackbar gadget in the current screen or screen window.

Code: Select all

StringScreenGadget(40,180,460,250,34,"blablabla blabla bla",0)

Code: Select all

SetScreenGadgetFont(40, LoadFont(100, "Arial", 24))

Code: Select all

#HelloWindow = 0
#QuitButton = 0

InitSprite()
InitKeyboard():InitMouse()

ExamineDesktops():dx=DesktopWidth(0)*0.8:dy=DesktopHeight(0)*0.8

OpenWindow(0, 0, 0, DesktopUnscaledX(dx),DesktopUnscaledY(dy), "[Escape] to quit", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, dx, dy, 0, 0, 0)

; Create the Screen UI
InitScreenGadgets()

TextScreenGadget(#PB_Any, 50, 0,500, 24, "The screen is a container, you can put gadgets without windows")

OpenScreenWindow(#HelloWindow, 100, 100, 300, 100, "Screen UI")
ScreenWindowAnimation(#HelloWindow, 0, 1000, 1, 0, -1, 0, -1)

TextScreenGadget(#PB_Any, 10, 25, 300, 24, "Hello World !")
ButtonScreenGadget(#QuitButton, 70, 60, 160, 32, "Quit")
;
OpenScreenWindow(2, 300, 200, 700, 300, "win2")
ListViewScreenGadget(10,20,20,200,100,0):For i=0 To 25:AddScreenGadgetItem(10,-1, "item number "+i+" wwwwwwww "):Next:SetScreenGadgetState(10,3)
ListViewScreenGadget(11,350,20,200,100,0):For i=0 To 25:AddScreenGadgetItem(11,-1, "item number "+i+" iiiiiii"):Next:SetScreenGadgetState(11,5)
SplitterScreenGadget(12,20,20,500,100,10,11,#PB_Splitter_Vertical):SetScreenGadgetState(12,250)
TextScreenGadget(13, 10, 240, 300, 24, "0")
ButtonScreenGadget(14, 10, 260, 160, 32, "BUG LEFT !")
ButtonScreenGadget(15, 200, 260, 160, 32, "BUG RIGHT !")
;
Repeat
  ; Top Window
  While WindowEvent() : Wend
  
  ClearScreen(RGB(0,0,0))
  
  ExamineMouse()
  ExamineKeyboard()
  
  ; Handle the screen UI events
  If ScreenWindowEvent()= #PB_Event_Gadget
    ga= EventScreenGadget()
    SetScreenGadgetText(13,Str(ga))
    Select ga ;EventScreenGadget()
      Case 14
        SetScreenGadgetState(12,0)
      Case 15
        SetScreenGadgetState(12,500)
      Case #QuitButton
        End
    EndSelect
  EndIf
  
  RenderScreenGadgets()
  
  FlipBuffers()
Until KeyboardReleased(#PB_Key_Escape) Or MouseButton(3)