Añadir barra gráfica a una columna StringGrid
Al usar Delphi 2010 y un componente TStringGrid, actualmente muestro cinco filds de una consulta de base de datos.
Aquí hay un ejemplo simplificado de lo que estoy haciendo
// configurar la cuadrícula
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;
// mostrar los datos en la cuadrícula // nota, no estoy mostrando mi creación, ejecución o destrucción de la consulta
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;
Una de las columnas ("Cinco") debe mostrar una barra horizontal azul marino en la columna. También debe mostrar algún texto centrado en la barra. No tengo ninguna experiencia utilizando el dibujo personalizado. ¿Qué propiedades configuro para dibujar solo una columna y usar el dibujo predeterminado para las otras columnas?