![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Разрешение экрана [D7]
grey64 © (2008-11-06 13:41:00)Здравствуйте. Просмотрел всю ветку но на свой вопрос не нашел ответ, если проглядел - то ткните...
Вопрос. В моей программе есть StringGrid. Количество колонок непостоянно. Как сделать, чтобы при разворачивании во весь экран таблица была бы полностью видна на экранах с разным разрешением
Anatoly Podgoretsky (2008-11-06 19:27:00) [1]> Правильный$Вася (06.11.2008 18:50:09) [9]
Конечно, что бы в будущем новый не покупать.
Правильный$Вася (2008-11-06 18:50:00) [2]
> Тут новый монитор нужен
резиновый?
Anatoly Podgoretsky (2008-11-06 16:09:00) [3]> Palladin (06.11.2008 14:11:03) [3]
Тут новый монитор нужен, магия не поможет.
grey64 (2008-11-06 14:58:00) [4]Ладно. Всем спасибо.
Vlad Oshin (2008-11-06 14:41:00) [5]уже ответили в [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:27:00) [6]Ппрошу прощения, что путанно спрашиваю. В общем так: при разрешении экрана 1280 на 800, я получил требуемый результат - все колонки видны. При разрешении 1024 на 768 - последние колонки убегают
clickmaker (2008-11-06 14:15:00) [7]> Нужно чтобы они были видны. Все
ширина грида / количество колонок даст среднюю ширину колонки
а дальше - ColWidths[i]
либо подгоняй последнюю так, чтобы "закрывала" грид. В OnResize, к примеру
Palladin (2008-11-06 14:11:00) [8]тут магия нужна...
grey64 (2008-11-06 14:09:00) [9]Когда переношу программу на другой комп. со старым монитором, то последние колонки убегают за пределы экрана. Нужно чтобы они были видны. Все.
{RASkov} (2008-11-06 13:55:00) [10]Что-то не понятно что же нужно-то...
Тебе чего нехватает для полного счастья? :)