| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBGrid

Ihtiandr ©   (2003-01-31 14:54:00) 

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

---

alehan   (2003-01-31 17:52:00) [1]

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

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;

---

Archon Kazansky   (2003-01-31 16:13:00) [2]

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

OnResize

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

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

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

---

Ihtiandr   (2003-01-31 15:48:00) [3]

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

---

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

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

---

Archon Kazansky   (2003-01-31 15:21:00) [5]

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

---

Ihtiandr   (2003-01-31 15:11:00) [6]

как?

---

Archon Kazansky   (2003-01-31 15:06:00) [7]

Можна.

---

Наверх