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

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

Работа с колонками dbgrid [D6, Win2k]

denis24 ©   (2004-06-18 18:19:00) 

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

---

HSolo   (2004-06-21 14:09:00) [1]

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

---

Amoeba   (2004-06-21 13:46:00) [2]

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

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

---

GanibalLector   (2004-06-18 21:17:00) [3]

Удаление колонки в 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;

---

Наверх