PureBasic Forums - English

Posted: **Tue Jul 16, 2013 7:45 pm**

Fred wrote:Changed.

Did you change more screen stuff for PB5.20 beta 6?

Now DesktopDepth() returns 32 in my example:

EnableExplicit

ExamineDesktops()
Define.i dw = DesktopWidth(0)
Define.i dh = DesktopHeight(0)
Define.i dd = DesktopDepth(0)

Debug dw
Debug dh
Debug dd

;dd = 32

If InitSprite()=0 Or InitKeyboard()=0 Or OpenScreen(dw, dh, dd, "TestScreen")=0
  MessageRequester("ERROR","Failed To 'InitSprite/InitKeyboard/OpenScreen'")
  End
EndIf

Define start = ElapsedMilliseconds()

Repeat
   ClearScreen(RGB(255,255,0))
      
   FlipBuffers()
   ExamineKeyboard()

   If KeyboardPushed(#PB_Key_Escape) : End : EndIf
   
   If ElapsedMilliseconds() - start > 10000
       End
   EndIf
   
ForEver

...but I can't end the screen with Escape key anymore (worked before).

Posted: **Wed Jul 17, 2013 8:51 am**

Should be fixed for the next beta.

PureBasic Forums - English

DesktopDepth with OpenScreen

Re: DesktopDepth with OpenScreen

Re: DesktopDepth with OpenScreen