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

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

Закрепление областей в DBGrid [D7, XP]

ivc_vetal ©   (2006-01-12 16:20:00) 

Как сделать закрепление областей в DBGgrid подобно Excel?

---

Ega23   (2006-01-12 16:58:00) [1]

Незачто

---

ivc_vetal   (2006-01-12 16:29:00) [2]

ага. Thanks!!! :)))

---

Ega23   (2006-01-12 16:25:00) [3]


function FreezeColumns(ActiveDbGrid:TRxDbGrid):boolean;
var i:integer;
ds:tdataset;
begin
result:=false;
 if NoConnectGlb then exit; //@@ 09-10-2001

try
if ActiveDbGrid=nil then exit;
 try  ds:=ActiveDbGrid.DataSource.dataset;  if ds<>nil then ds.disablecontrols; except end;
i:=ActiveDbGrid.Col ;
if ActiveDbGrid.fixedCols=0 then ActiveDbGrid.fixedCols:= ActiveDbGrid.Col
       else ActiveDbGrid.fixedCols:=0;
if i>ActiveDbGrid.fixedCols then ActiveDbGrid.Col:=i;
result:=(ActiveDbGrid.fixedCols<>0);
finally
 try if ds<>nil then ds.enablecontrols; except end
end;
end;


Это?

---

Наверх