Разрешение экрана

← →
grey64 © (2008-11-06 13:41) [0]

Здравствуйте. Просмотрел всю ветку но на свой вопрос не нашел ответ, если проглядел - то ткните...
Вопрос. В моей программе есть StringGrid. Количество колонок непостоянно. Как сделать, чтобы при разворачивании во весь экран таблица была бы полностью видна на экранах с разным разрешением

← →
{RASkov} © (2008-11-06 13:55) [1]

Что-то не понятно что же нужно-то...
Тебе чего нехватает для полного счастья? :)

← →
grey64 © (2008-11-06 14:09) [2]

Когда переношу программу на другой комп. со старым монитором, то последние колонки убегают за пределы экрана. Нужно чтобы они были видны. Все.

← →
Palladin © (2008-11-06 14:11) [3]

тут магия нужна...

← →
clickmaker © (2008-11-06 14:15) [4]

> Нужно чтобы они были видны. Все

ширина грида / количество колонок даст среднюю ширину колонки
а дальше - ColWidths[i]
либо подгоняй последнюю так, чтобы "закрывала" грид. В OnResize, к примеру

← →
grey64 © (2008-11-06 14:27) [5]

Ппрошу прощения, что путанно спрашиваю. В общем так: при разрешении экрана 1280 на 800, я получил требуемый результат - все колонки видны. При разрешении 1024 на 768 - последние колонки убегают

← →
Vlad Oshin © (2008-11-06 14:41) [6]

уже ответили в [4]

procedure TForm1.FormResize(Sender: TObject);
const
InFormKoeff=5;
InGridKoeff=5;
var
i,n:integer;
begin
StringGrid1.Width := form1.Width - InFormKoeff;
n := round(StringGrid1.Width/StringGrid1.ColCount)- InGridKoeff;
for i := 0 to StringGrid1.ColCount - 1 do
begin
StringGrid1.ColWidths[i]:=n;
end;
end;

← →
grey64 © (2008-11-06 14:58) [7]

Ладно. Всем спасибо.

> Palladin (06.11.2008 14:11:03) [3]

Тут новый монитор нужен, магия не поможет.

← →
Правильный$Вася (2008-11-06 18:50) [9]

> Тут новый монитор нужен

резиновый?

> Правильный$Вася (06.11.2008 18:50:09) [9]

Конечно, что бы в будущем новый не покупать.

Разрешение экрана Найти похожие ветки