Resize console app

tja, så lad da gå

Var så lidt

Hej Jonas,
sidder desværre på skolen, uden min bærbar og derfor uden Delphi ... så eksempler må evt. lige vente til senere

Men ... fandt det her på msdn

"To change the size or location of a screen buffer's window, use the SetConsoleWindowInfo function. This function fails if the specified window-corner coordinates exceed the limits of the console screen buffer or the screen. Changing the window size of the active screen buffer changes the size of the console window displayed on the screen."

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/console_handles.asp

umidelbart er vi ude i noget alla

oki.. let renskrivning skulle der til, men det virker

var
  handle: hwnd;
  rect:SMALL_RECT;
begin
  rect.Left:= 100;
  rect.top:= 100;
  rect.right:= 100;
  rect.bottom:= 100;
  handle:= GetStdHandle(STD_OUTPUT_HANDLE);
  if SetConsoleWindowInfo(Handle,true,rect) = true then
  begin
    invalidateRect(handle,NIL,false);
    writeLn('SetConsoleWindowInfo succeded');
  end else WriteLn('SetConsoleWindowInfo failed!');

Det er dog på ingen måde prøvet af

Kan du prøve at lave et eksempel når du har delphi foran dig igen? Det overstående kan jeg ikke få til at virke. Hvis jeg copy paster koden får jeg et meget bredt og ikke særligt højt vindue (selvom alt er sat til 100 ) og ændrer jeg i nogen af værdierne blev vinduet normal-størrelse, som om jeg ikke have gjort noget som helst.

Edit: ok fik læst det med limitations omkring størrelsen, så følgende virker

var
  Handle: hwnd;
  Rect: SMALL_RECT;
  ScreenInfo: CONSOLE_SCREEN_BUFFER_INFO;
  Coord: TCoord;
begin
  Handle:= GetStdHandle(STD_OUTPUT_HANDLE);
  GetConsoleScreenBufferInfo(handle,ScreenInfo);
  Rect:= ScreenInfo.srWindow;
  Rect.Left:= 0;
  Rect.Top:= 0;
  Rect.Right:= 86;
  Rect.Bottom:= 25;
  Coord.X:= 87;//Sæt ScreenBufferSize en større en det vi vil have
  Coord.Y:= 26;//Samme her..gør man det ikke, virker det ikke.
  SetConsoleScreenBufferSize(handle,Coord);
  SetConsoleWindowInfo(handle,true,Rect);
  InvalidateRect(handle,nil,false);
end;

Tak for hjælpen, det hjalp mig godt på vej. Post et svar hvis du vil have points.

Vaersgo