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

Вниз

Закрепление областей в DBGrid   Найти похожие ветки 

← →
ivc_vetal   (2006-01-12 16:20) [0]

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

---

← →
Ega23 ©   (2006-01-12 16:25) [1]


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;


Это?

---

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

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

---

← →
Ega23 ©   (2006-01-12 16:58) [3]

Незачто

---

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

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

Наверх

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