Window without Title

[J@ckWhiteIII]

Hey,
I just wanted to ask if it's possible to open a window with no title (I want to use a borderless window aswell and open a windowed screen after that, so I practically only have a screen). As I said, the window is going to be borderless and with no title bar and a windowed screen = only a small screen.

If anyone knows how to do this..reply please

[infratec]

Read the help about OpenWindow()

Hint: look at the Flags

[J@ckWhiteIII]

I just saw I accidentally clicked on the wrong flag....I had #PB_Window3D_BorderLess...Thanks for the hint. Embarrassing mistake, though...

[Kwai chang caine]

Code: Select all

OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_BorderLess)

Repeat : Delay(1) :Until GetAsyncKeyState_(#VK_ESCAPE)

Escape for end

[netmaestro]

If you're on Windows, here is a version dressed out a bit to allow for the user to move the window around on the screen, close or minimize it and just generally have an expected level of control over it.

Code: Select all

InitSprite()
OpenWindow(0, 200, 200, 195, 260, "PureBasic Window", #PB_Window_BorderLess|#PB_Window_Invisible)
OpenWindowedScreen(WindowID(0),0,0,195,260,0,0,0)

CreatePopupMenu(0)
MenuItem(10, "Minimize")
MenuItem(9, "Close")
MenuItem(8, "Cancel")

ClearScreen(#Blue) ; Creating the window invisible to begin with
FlipBuffers()      ; and then performing this step will prevent
HideWindow(0,0)    ; an annoying flicker when the window opens

quit=0
Repeat
  ev=WindowEvent()
  Select ev
    Case #WM_LBUTTONDOWN
      SendMessage_(WindowID(0),#WM_NCLBUTTONDOWN,#HTCAPTION,0)
    Case #WM_RBUTTONDOWN
      DisplayPopupMenu(0, WindowID(0))
    Case #PB_Event_Menu
      Select EventMenu()
        Case 10
          SetWindowState(0, #PB_Window_Minimize)
        Case 9
          quit=1
      EndSelect
  EndSelect
  ClearScreen(#Blue)
  FlipBuffers()
Until quit