Help me convert this to 4.0

Brice Manuel · Post by **Brice Manuel** » Sat Apr 07, 2007 4:54 am

Could somebody more knowledgable than me, please help me convert the following code so it is compatible with 4.0?

sm.SMALL_RECT 
cinfo.CONSOLE_SCREEN_BUFFER_INFO 

newX = 40 
newY = 25 
co = (newY * 65536) + (newX) 

OpenConsole() 
  handle=GetStdHandle_(#STD_OUTPUT_HANDLE) 
  If handle 
    GetConsoleScreenBufferInfo_(handle,cinfo) 
    oldY = cinfo\dwSize / 65536 
    oldX = cinfo\dwSize & $FFFF 
    
    If(oldX * oldY) > (newX * newY) 
      sm\left = 0 
      sm\top = 0 
      sm\right = newX-1 
      sm\bottom = newY-1 
      SetConsoleWindowInfo_(handle,1,sm)  
      SetConsoleScreenBufferSize_(handle,co) 
      Else  
      SetConsoleScreenBufferSize_(handle,co)  
      sm\left = 0 
      sm\top = 0 
      sm\right = newX-1 
      sm\bottom = newY-1 
      SetConsoleWindowInfo_(handle,1,sm) 
    EndIf  
  EndIf 
  
  PrintN("New console size: "+Str(newX)+"x"+Str(newY)) 
  PrintN("Press any key to close") 
  Input() 
CloseConsole() 
End

JCV · Post by **JCV** » Sat Apr 07, 2007 5:15 am

Whats wrong? I can compile on v4.02 without errors.

Brice Manuel · Post by **Brice Manuel** » Sat Apr 07, 2007 5:47 am

*sighs* very little sleep this week and not thinking too clearly.

Wasn't working because I was coding in 4.0 b4 for Linux :roll:

Rebooted to XP and it works fine.

Feel free to whack me with the idiot stick