formato celda en stringrid

[albelg]

hola colegas del club. Necesito me ayuden en esto si es posible. Lo q quiero es darle un color x a una celda especifica dentro del stringrid.
Hasta ahora con:

stringgrid1.color:=clred

pongo todo el stringrid en rojo pero necesito q solo sea a una celda especifica. gracias de antemano

[Caminante]

Hola

Busca en los foros por drawcolumncell


Saludos

[ecfisa]

Hola abelg.

Como bien te indica Caminante, el evento que debes usar es OnDrawCell.

Por otro lado, la clase TStringGrid posee la propiedad vectorial Objects que permite asociar un Objeto a cada celda, lo que la hace el candidato ideal para almacenar los colores de cada una de ellas.

Ejemplo:

...
implementation

var
ColRow: TPoint;

// Inicializar
procedure TForm1.FormCreate(Sender: TObject);
var
sg : TStringGrid;
c, r: Integer;
begin
sg := StringGrid1;
for r := sg.FixedRows to sg.RowCount-1 do
for c := sg.FixedCols to sg.ColCount - 1 do
begin
sg.Cells[c,r] := Format('Cell[%d,%d]',[c, r]);
sg.Objects[c,r] := TObject(sg.Color);
end;
end;

// Pintar celdas
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
sg: TStringGrid;
begin
sg := TStringGrid(Sender);
if (ACol >= sg.FixedCols) and (ARow >= sg.FixedRows) then
begin
sg.Canvas.Brush.Color := TColor(sg.Objects[ACol, ARow]);
sg.Canvas.FillRect(Rect);
sg.Canvas.TextOut(Rect.Left, Rect.Top+2, sg.Cells[ACol, ARow]);
end;
end;

// Celda actual bajo el mouse
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
TStringGrid(Sender).MouseToCell(X,Y, ColRow.X, ColRow.Y);
end;

// Seleccionar color
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
sg: TStringGrid;
begin
sg := TStringGrid(Sender);
if (ColRow.X >= sg.FixedCols) and (ColRow.Y >= sg.FixedRows) then
if ColorDialog1.Execute then
sg.Objects[sg.Col,sg.Row] := TObject(ColorDialog1.Color);
end;


Muestra:
http://s8.postimg.org/ndbj8ymfp/abelg.gif

Saludos :)

[albelg]

ok, muchas gracias a los dos