PureBoard

Code: Alles auswählen

InitSprite() 
InitKeyboard() 

x_size = 1024
y_size = 768

; 
w_main_h = OpenWindow(0,10,10,x_size,y_size,"not working", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget) 

OpenWindowedScreen(w_main_h,0,0,x_size,y_size,0,0,0,#PB_Screen_WaitSynchronization) 

Repeat 
  ; 
  ClearScreen(0) 
  ; 
  
  x = (x+1) % x_size 
  y = (y+1) % y_size 
  
  
   
  StartDrawing(ScreenOutput()) 
    Box(0,y,x_size,20,RGB(255,0,0)) 
    Box(x,0,20,y_size,RGB(128,128,128)) 
  StopDrawing() 
  ; 
  FlipBuffers() 
  ; 
  event = WindowEvent() 
  ; 
  
  Select event
   
          Case #PB_Event_Gadget 
      quit = 1 

    Case #PB_Event_SizeWindow 
  ;richtiger Event?

  EndSelect
      
  
Until event = #PB_Event_CloseWindow 
; 
CloseScreen() 
CloseWindow(0)

Code: Alles auswählen

SetWindowPos_(FindWindowEx_(WindowID(0),0,"Static",0), 0, 0, 0, WindowWidth(0), WindowHeight(0), #SWP_SHOWWINDOW | #SWP_NOZORDER | #SWP_FRAMECHANGED)