VPF::Измениние размера окна (реальный размер)

mgkit

Дата 21.3.2010, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 15.4.2009

Репутация: нет
Всего: нет

Привет всем. С помощью Api функции можно изменять размер окна в самой программе.

Код


conts
  NewSize: TCoord = (x: 4000; y: 8000);
...

  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), NewSize);

Размер действительно увеличивается, но в самой программе (т.е. ползунками можно раздвинуть окно до макс.). Так же можно раздвинуть за уголки. Вот собственно вопрос. Как сделать так, что бы раздвигать за уголки не пришлось, а с помощью программного кода установить размер самого окна консоли.

Rennigth

Дата 21.3.2010, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

mgkit,
Для примера:

Код


var
  lSTDHandle: Cardinal;
  lBufInfo:   _CONSOLE_SCREEN_BUFFER_INFO;
  lsRect: _SMALL_RECT;
begin
  ZeroMemory(@lBufInfo, SizeOf(_CONSOLE_SCREEN_BUFFER_INFO));
  lSTDHandle := GetStdHandle(STD_OUTPUT_HANDLE);
  if lSTDHandle <> INVALID_HANDLE_VALUE then
  begin
    if GetConsoleScreenBufferInfo(lSTDHandle, lBufInfo) then
    begin
      Readln;
      lsRect:= lBufInfo.srWindow;
      lsRect.Bottom := lsRect.Bottom - 10; // уменьшаем на 10 строк
      SetConsoleWindowInfo(lSTDHandle, True, lsRect);
    end;
  end;
  Readln;
end.

ConsoleScreenBufferInfo это не размер окна. Нужно использовать SetConsoleWindowInfo.
Но есть один ньюанс, буффер должен быть обязательно больше размера нужного тебе размера окна, в обратном случае SetConsoleWindowInfo несработает.

--------------------

(* Honesta mors turpi vita potior *)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »