Форум: "Начинающим";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];
ВнизРазрешение экрана Найти похожие ветки
← →
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]Ладно. Всем спасибо.
← →
Anatoly Podgoretsky © (2008-11-06 16:09) [8]> Palladin (06.11.2008 14:11:03) [3]
Тут новый монитор нужен, магия не поможет.
← →
Правильный$Вася (2008-11-06 18:50) [9]
> Тут новый монитор нужен
резиновый?
← →
Anatoly Podgoretsky © (2008-11-06 19:27) [10]> Правильный$Вася (06.11.2008 18:50:09) [9]
Конечно, что бы в будущем новый не покупать.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.028 c