Работа с колонками dbgrid

← →
denis24 (2004-06-18 18:19) [0]

Как програмно добавлять и удалять колонки в гриде.
И как вместо значения булевых полей в колонке поставить галочку чтоли...?

← →
GanibalLector © (2004-06-18 21:17) [1]

Удаление колонки в StringGrid
Procedure GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);
Var Column: Integer;
begin
If DelColumn <= StrGrid.ColCount then
Begin
For Column := DelColumn To StrGrid.ColCount-1 do
StrGrid.Cols[Column-1].Assign(StrGrid.Cols[Column]);
StrGrid.ColCount := StrGrid.ColCount-1;
End;
end;

procedure RemoveColumn(SG : TStringGrid; ColNumber : integer);
var Column : integer;
begin
ColNumber := abs(ColNumber);

if ColNumber <= SG.ColCount then begin
for Column := ColNumber to SG.ColCount - 2 do begin
SG.Cols[Column].Assign(SG.Cols[Column + 1]);
SG.Colwidths[Column] := SG.Colwidths[Column + 1];
end;
SG.ColCount := SG.ColCount - 1;
end;
end;

Добавление колонки в StringGrid
Procedure GridAddColumn(StrGrid: TStringGrid; NewColumn: Integer);
Var Column: Integer;
begin
StrGrid.ColCount := StrGrid.ColCount+1;
For Column := StrGrid.ColCount-1 downto NewColumn do
StrGrid.Cols[Column].Assign(StrGrid.Cols[Column-1]);
StrGrid.Cols[NewColumn-1].Text := "";
end;

procedure AddColumn(SG : TStringGrid; AtColNumber : integer;
ColWidth : integer = 0);
var Column : integer;
Wdth : integer;
begin
AtColNumber := abs(AtColNumber);
SG.ColCount := SG.ColCount + 1;
if abs(ColWidth) = 0 then
Wdth := SG.DefaultColWidth
else
Wdth := ColWidth;

if AtColNumber <= SG.ColCount then begin
for Column := SG.ColCount - 1 downto AtColNumber + 1 do begin
SG.Cols[Column].Assign(SG.Cols[Column - 1]);
SG.Colwidths[Column] := SG.Colwidths[Column - 1];
end;

SG.Cols[AtColNumber].Text := "";
SG.Colwidths[AtColNumber] := Wdth;
end;
end;

← →
Amoeba © (2004-06-21 13:46) [2]

> как вместо значения булевых полей в колонке поставить галочку
>

Используй DbGridEh из библиотеки EhLib

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=168

Работа с колонками dbgrid Найти похожие ветки