Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c