Форум: "Базы";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
ВнизРабота с колонками 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
← →
HSolo © (2004-06-21 14:09) [3]http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=168
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c