Редактор привязок и TStringGrid

Вопросы программирования и использования среды Lazarus.

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

Ответить
krab
постоялец
Сообщения: 108
Зарегистрирован: 17.02.2010 17:23:08

Редактор привязок и TStringGrid

Сообщение krab »

На форме расположена таблица StringGrid1 с максимум 10 строками с информацией. Если настроить привязку границ StringGrid1 к границам формы, при разворачивании формы в таблице будет огромное незаполненное пространство.

Как сделать, чтобы размеры формы можно было увеличивать до тех пор, пока в незаполненное пустое место в таблице не превышает примерно 3-4 строки, а уменьшать до тех пор, пока видно хотя бы 2-3 строки с информацией?

При этом геометрические размеры таблицы и, соответственно, формы (при таких условиях, как описанные), зависят от настроек в Windows размеров и начертаний шрифтов.

Пример формы:
Изображение
azatsh
новенький
Сообщения: 33
Зарегистрирован: 20.07.2010 10:14:04

Сообщение azatsh »

Используй событие формы OnResize
ставишь условие что если размеры формы не соответствуют заданному интервалу то возвращаешь предыдущее значение размеров
krab
постоялец
Сообщения: 108
Зарегистрирован: 17.02.2010 17:23:08

Сообщение krab »

azatsh писал(а):Используй событие формы OnResize
ставишь условие что если размеры формы не соответствуют заданному интервалу то возвращаешь предыдущее значение размеров

при этом не будет рывков, увеличение размера и прекращение изменения будет плавным?
azatsh
новенький
Сообщения: 33
Зарегистрирован: 20.07.2010 10:14:04

Сообщение azatsh »

проверил вот так вот

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

 if form1.Height>200 then form1.Height:=200;
  if form1.Width>200 then form1.Width:=200;

работает нормально
Ответить