Текущий архив: 2003.02.17;
Скачать: CL | DM;

Вниз

DBGrid   Найти похожие ветки 

← →
Ihtiandr   (2003-01-31 14:54) [0]

Можна сделать так чтобы при растягивании окна столбцы в dbGride
увеличивались пропорционально.

---

← →
Archon Kazansky   (2003-01-31 15:06) [1]

Можна.

---

← →
Ihtiandr   (2003-01-31 15:11) [2]

как?

---

← →
Archon Kazansky   (2003-01-31 15:21) [3]

Всем дай да дай,
возьми да накопай.

---

← →
REA   (2003-01-31 15:23) [4]

Запоминаешь размер. На растягивании определяешь коэффициент удлиннения и умножаешь на него ширину каждого столбца.

---

← →
Ihtiandr   (2003-01-31 15:48) [5]

Какое событие происходит при растягивании формы?
Как определить коэффициент удлиннения?

---

← →
Archon Kazansky   (2003-01-31 16:13) [6]

>Какое событие происходит при растягивании формы?

OnResize

>Как определить коэффициент удлиннения?

коэффициент = новый размер / старый размер

Извини за предыдущие постинги.
Устал наверное.

---

← →
alehan   (2003-01-31 17:52) [7]

Вот эта штука меняет ширину самого широкого столбца

procedure TForm1.tabGridResize(Sender: TObject);
var i, maxWidth, maxWidthID, allWidth : integer;
begin
maxWidth:=0;
maxWidthID:=0;
allWidth:=0;
for i:=0 to grd.Columns.Count-1 do
with grd.Columns[i] do
begin
if not Visible then
continue;
if (Width>maxWidth) then
begin
maxWidth:=Width;
maxWidthID:=i;
end;
allWidth:=allWidth+Width;
end;
maxWidth:=maxWidth+grd.Width-allWidth-32;
if maxWidth>25 then
grd.Columns[maxWidthID].Width:=maxWidth;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.17;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.01 c