@Алекс Корм

есть DBGrid у него в свойствах Align стоит alClient сама область таблицы растягивается по экрану как надо но вот столбцы нет, как сделать чтобы столбцы также растягивались при увеличении экрана точнее формы по экрану?

у меня в DBGrid 5 столбцов: 0.код 1.имя 2.фамилия 3.отчество 4.должность, вот например как сделать чтобы столбец 1.имя менял свою ширину относительно экрана при развертывании формы на весь экран? а при свертывании в обратное положение формы также и столбец принимал свою изначальную ширину.

Добавлено через 1 час 19 минут
попробовал в onResize формы написать вот так

растягивается но не полностью на всю область DBGrid

если например ширина мною созданной формы равна 950рх все столбцы и вертикальный скрол занимают 100% область DBGrid, когда разворачиваю форму на размер экрана 1024х768 то получается пустота между столбцами и скролом примерно размер пустоты столько же сколько и сам скрол при этом столбец (1) чуть чуть растягивается, когда разворачиваю форму на размер экрана более 1024х768 то пустота между столбцами и скролом увеличивается столбец (1) чуть больше растягивается, как сделать чтобы независимо от размера экрана столбец (1) растягивается так чтобы все столбцы и вертикальный скрол все время занимали 100% области DBGrid?

0

@qwertehok

0

@Алекс Корм

то есть вообще нельзя так сделать? или нельзя так сделать с одним столбцом? надо делать сразу все 5 столбцов? какое есть решение?

0

@D1973

Алекс Корм, высчитываете пропорцию ширины каждого столбца Грида к ширине самого Грида - и применяете ее при событии FormResize

0

@Алекс Корм

сколько процентов составляет ширина столбца от ширины грида? если так то я подсчитал что столбец (имя) равен 57.37% от грида 950рх грид и 545рх столбец (имя) верно? и так для каждого столбца?

0

@D1973

Школьная задача:
GridWidth - 100%
Field[x]Width - x%
x = Round(Field[x]Width * 100 / GridWidth)
и. да, так для каждого столбца...

0

@Алекс Корм

так должно выглядеть?

мне кажется я неправильно сделал

0

@D1973

Алекс Корм, ну ведь программа Ваша: Вам и судить, правильно там "это" должно выглядеть или не правильно...

0

@Алекс Корм

в программе с таким кодом столбец сжался почти полностью, и при развертывании формы столбец становится еще меньше

или я в принципе все не верно делаю?

0

@TFullControl

Не совсем, но ход мыслей верный, несколько замечаний:
- нужно юзать DBGrid1.ClientWidth, а не DBGrid1.Width;
- нужно учитывать ширину гридлайнов (их сумма зависит от количества столбцов);
- округлять лучше через Trunc, иначе можно поймать момент когда грид за криентскую область вылезет, собственно из-за округления обычно косяки в несколько пикселей и вылазят, но побороть вполне реально.
Можно, я делал.

0

@Алекс Корм

написал вот так но не че не изменилось также столбец наоборот сузился и при развертывании на весь экран столбец становится еще меньше а не больше((

наверно неправильно подсчитан процент 57.37?

950рх грид

545рх столбец (1)

70рх столбец (0)

125рх столбец (2)

125рх столбец (3)

70рх столбец (4)

0

@Пытливый

Относительно недавно я публиковал код, решающий подобную задачу.

1

@Алекс Корм

поставил код из той темы теперь все столбцы стали одного размера и чуть вылазит последний столбец за область появился горизонтальный скрол, при развертывании они расширяются как надо на всю область но если свернуть обратно то они так и остаются расширенными, можно как то настроить код чтобы столбцы были разного размера какие я задам и не вылазили за область, и при свертывании сужались обратно?

0

@Пытливый

Интересно, что-то не замечал раньше такого, может что упустил тогда. Проверю...

0

@Алекс Корм

Скорее всего я что то не так сделал, надо было скопировать код не чего в нем не меняя и вставить его в событие DBGridDrawColumnCell а потом в опциях грида поставить dgColumnResize = False? так?

0

@Пытливый

Да, верно. Для грида создаете колонки, задаете ширину ручками для колонок которые не надо масштабировать и выставляете для этих колонок флаг ReadOnly в True.

Добавлено через 1 минуту
Насчет скрола горизонтального вы правы, он появился. В XE версии я его не видел, сейчас разбираюсь в чем подвох.

0

@Алекс Корм

Ок спасибо огромное! я использую Delphi 7.

0

@Пытливый

Ага, понял в чем дело! Моя недоработка. Я не использую в гриде индикатор и если его скрыть, то все работает как надо. Попробую подправить код с учетом индикатора, но что-то пока не вижу откуда взять его размеры.

0

@Алекс Корм

Ага понял про что вы говорите, я пытался подсчитать его размер когда вычислял пропорции для столбцов.

0

@Пытливый

В общем, как временный костыль можно добавить строчку:
после
Но задав так константой размер индикатора мы рискуем получить визуальный баг с другим скином или манифестом.
Пока я не нашел способа получить размер индикатора.

1