Full screen should NEVER lost its focus while it is on top view

[Psychophanta]

Code: Select all

ExamineDesktops()
pantallacompleta.b=1:bitplanes.a=DesktopDepth(0):FRX.u=DesktopWidth(0):FRY.u=DesktopHeight(0):RX.u=800:RY.u=600
InitEngine3D(#PB_Engine3D_NoLog,#PB_Compiler_Home+"Compilers\Engine3d.dll")
InitSprite():InitKeyboard():InitMouse()
OpenScreen(FRX,FRY,bitplanes,"",#PB_Screen_WaitSynchronization)
CreateLight(0,$EEEEEE,4,4,2,#PB_Light_Point)
CreateCamera(0,0,0,100,100)
MoveCamera(0,0,-1,5,#PB_Absolute)
CreateMaterial(0,0,$aaeecc)
CreateCube(0,1)
CreateEntity(0,MeshID(0),MaterialID(0))
OpenConsole()
cerrada.a=0
While cerrada=0
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_Escape):cerrada=1:EndIf
  RenderWorld()
  FlipBuffers()
Wend
CloseConsole()

OpenConsole() makes full 3D screen to lost focus, and it ignores the keyboard.
EDIT:
With "lost focus" i mean lost focus AND remains blocking any other view on the screen, i.e., remains on FULL top of any other graphic elements on screen.

[Caronte3D]

Workaround (mouse click):

Code: Select all

ExamineDesktops()
pantallacompleta.b=1:bitplanes.a=DesktopDepth(0):FRX.u=DesktopWidth(0):FRY.u=DesktopHeight(0):RX.u=800:RY.u=600
InitEngine3D(#PB_Engine3D_NoLog,#PB_Compiler_Home+"Compilers\Engine3d.dll")
InitSprite():InitKeyboard():InitMouse()
OpenScreen(FRX,FRY,bitplanes,"",#PB_Screen_WaitSynchronization)
CreateLight(0,$EEEEEE,4,4,2,#PB_Light_Point)
CreateCamera(0,0,0,100,100)
MoveCamera(0,0,-1,5,#PB_Absolute)
CreateMaterial(0,0,$aaeecc)
CreateCube(0,1)
CreateEntity(0,MeshID(0),MaterialID(0))
OpenConsole()
mouse_event_(2,0,0,0,0)
mouse_event_(4,0,0,0,0)
cerrada.a=0
While cerrada=0
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_Escape):cerrada=1:EndIf
  RenderWorld()
  FlipBuffers()
Wend
CloseConsole()

[Fred]

Of course it can loose focus, you can also alt-tab it.

[Psychophanta]

Of course it can loose focus, you can also alt-tab it.

Ok, I refer lost focus while remains on top of any other screen view. (I Proceed to fix description in the first post).