PureBasic Forums - English

OpenWindow(0,0,0,320,240,"test",#PB_Window_SystemMenu)
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow

ppnl wrote: Mon Mar 14, 2022 6:13 amJust past the code I pasted above in four different tabs and then run them one after the other.

idle wrote: Thu Mar 17, 2022 4:01 am ok I was going to ask if this this looks ok and reports the correct values for Width and if Resolutions = 1
Try PB6.00 it's only in beta for the c backend the fasm code is stable

Code: Select all

ExamineDesktops()  
Debug "width " + DesktopWidth(0)
Debug "height " + DesktopHeight(0)
Debug "Res x " + DesktopResolutionX()  
Debug "Res y " + DesktopResolutionY()

Dw = DesktopWidth(0)
Dh = DesktopHeight(0)
W=1500
H=1500

If InitSprite() = 0
  MessageRequester("Error", "Can't open screen & sprite environment!", 0)
  End
EndIf

#autoscale=0

#FLAGS = #PB_Window_SystemMenu |  #PB_Window_SizeGadget  | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered
If OpenWindow(0,0,0,W,H,"Windowed screen test ",#FLAGS)   
   If #autoscale 
     res = OpenWindowedScreen(WindowID(0),0,0,W,H,#autoscale,0,0)
   Else 
     res = OpenWindowedScreen(WindowID(0),0,0,DW,DH,#autoscale,0,0)
   EndIf 
   If res 
    CreateSprite(0, 50, 50) ; Create an empty sprite, will be whole black
    
    Repeat
      
      Repeat
        Event = WaitWindowEvent(10)
        If Not #autoscale 
           w = WindowWidth(0) 
        EndIf 
        If Event = #PB_Event_CloseWindow
          End
        EndIf
      Until Event = 0
      
      FlipBuffers()
      ClearScreen(RGB(0, 0, 200)) ; A blue background
           
      DisplaySprite(0, 10, 10)  ; Display our black box at the left-top corner
      DisplaySprite(0, W-60, 10); Display our black box at the right-top corner
      DisplaySprite(0, 10, H-150) 
      DisplaySprite(0,W-60,H-150) 
            
      out.s = Str(W)   
      If StartDrawing(ScreenOutput())
        DrawText((W>>1)-(TextWidth(out)>>1),100,out,RGB(0,255,0),RGB(0,0,255))
        StopDrawing() 
      EndIf   
    ForEver
    
  Else
    MessageRequester("Error", "Can't open windowed screen!", 0)
  EndIf
Else 
  MessageRequester("Error", "Can't open windowed!", 0)
EndIf 

idle wrote: Thu Mar 17, 2022 9:36 am Unless the problem can be identified it isn't going to get fixed. It's not a pb issue

tored wrote: Thu Mar 17, 2022 12:06 pm I can't get this to look right at all, as shown in the video with the red exploding and then imploding circle, for me it always look broken, the grey and black noise, regardless of tab I'm compiling from.

PureBasic 5.73 LTS (Windows - x64)
AMD Ryzen 5 PRO 4650GE with Radeon Graphics

darius676 wrote: Thu Mar 17, 2022 12:39 pm Do you use DPI settings in the Compiler Options and DesktopResolution when creating the window?

ppnl wrote: Fri Mar 18, 2022 10:13 pm So far there are two of us who see the problem. The only point of commonality that I see is the 20 series geforce graphics card. If anyone with a 20 series card does not see the problem please speak up. I have no idea how or if a graphics card can cause this but it is the only thing I have.

BarryG wrote: Fri Mar 18, 2022 11:52 pm Some graphics driver cards have features to override game resolutions automatically. I wonder if that's the case here?

But that doesn't explain why the exact same code in four different tabs can make the fourth tab run the code differently to the first three.