Как изменить размер консольного окна?

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

Ответить
Плутон
новенький
Сообщения: 19
Зарегистрирован: 30.08.2011 09:39:38

Как изменить размер консольного окна?

Сообщение Плутон »

Доброе время суток, уважаемые форумчане! Как изменить размер окна консольного приложения в FreePascal?

Добавлено спустя 21 секунду:
P.S. Заранее благодарю!
Mr.Smart
долгожитель
Сообщения: 1796
Зарегистрирован: 29.03.2008 00:01:11
Откуда: из леса!

Сообщение Mr.Smart »

В смысле? В современных ОС ваше приложение выполняется в эмуляторе консоли! Изменить её не получиться! Хотя вот в Виндас можно установить размер шрифта - допустим 8x8.
Oleg_D
постоялец
Сообщения: 391
Зарегистрирован: 09.05.2011 11:28:36

Сообщение Oleg_D »

1. Настройте шрифт через свойства ярлыка
2. Настройте количество строк в окне через меню FP
Подробности в главе 4 книги "Песни о Паскале"
viewtopic.php?f=23&t=7029
Jargar
новенький
Сообщения: 21
Зарегистрирован: 06.11.2007 13:42:24

Сообщение Jargar »

Нужно в свойствах консольного окна уменшить размер буфера екрана. Там по умолчанию Высота 300
Плутон
новенький
Сообщения: 19
Зарегистрирован: 30.08.2011 09:39:38

Сообщение Плутон »

Вы меня не поняли! Я спрашиваю: какая есть функция для изменения консольного окна ПРИЛОЖЕНИЯ(КОТОРОЕ ПИШЕТ ПРОГРАММИСТ), написанного на Pascal.
Mr.Smart
долгожитель
Сообщения: 1796
Зарегистрирован: 29.03.2008 00:01:11
Откуда: из леса!

Сообщение Mr.Smart »

Плутон это ты нас не понял!
Ism
энтузиаст
Сообщения: 908
Зарегистрирован: 06.04.2007 17:36:08

Сообщение Ism »

Ребята, вы че ?

start /max cmd

ну и допилить параметры окна в ярлыке через свойства
Плутон
новенький
Сообщения: 19
Зарегистрирован: 30.08.2011 09:39:38

Сообщение Плутон »

А как это сделать программно?
Аватара пользователя
Brainenjii
энтузиаст
Сообщения: 1351
Зарегистрирован: 10.05.2007 00:04:46

Сообщение Brainenjii »

Код: Выделить всё

..
Uses
  .., process..
..
  Sleep(1000);
  With TProcess.Create(nil) Do
    Begin
      CommandLine := 'start /max "ParamStr(0)"';
      Execute;
      Free;
    End;
  Halt;
..

Можно так попробовать ^_^
Ism
энтузиаст
Сообщения: 908
Зарегистрирован: 06.04.2007 17:36:08

Сообщение Ism »

Плутон
новенький
Сообщения: 19
Зарегистрирован: 30.08.2011 09:39:38

Сообщение Плутон »

Спасибо!
Ответить