Dodaj pasek graficzny do col. StringGrid
Korzystając z Delphi 2010 i komponentu TStringGrid, aktualnie wyświetlam pięć fildów z zapytania do bazy danych.
Oto uproszczony przykład tego, co robię
// ustaw siatkę
procedure TGriddata.FormCreate(Sender: TObject);
begin
grdMain.Rows[0].commatext:='"One","Two","Three","Four","Five"';
grdMain.ColWidths[0]:= 50;
grdMain.ColWidths[1]:= 175;
grdMain.ColWidths[2]:= 175;
grdMain.ColWidths[3]:= 100;
grdMain.ColWidths[4]:= 300;
end;
// wyświetl dane w siatce // uwaga, nie pokazuję mojego utworzenia, wykonania lub zniszczenia zapytania
procedure TGriddata.load;
begin
...
grdMain.Cells[0,row]:= FieldByName('one').AsString;
grdMain.Cells[1,row]:= FieldByName('two').AsString;
grdMain.Cells[2,row]:= FieldByName('three').AsString;
grdMain.Cells[3,row]:= FieldByName('four').AsString;
//draw progress bar here
...
end;
Jedna z kolumn („Pięć”) musi wyświetlać granatowy poziomy pasek w kol. Powinien także wyświetlać tekst wyśrodkowany na pasku. Nie korzystam z rysunku niestandardowego. Jakie właściwości ustawiam tylko na niestandardowe rysowanie jednej kolumny i używanie domyślnego rysunku dla innych kolumn?