Cita:
Empezado por jose.ignacio.ve
hola yo tengo un stringgrid que esta pintado de verde todo.. quisiera saber como hacer para que cuando haga click en una celda cambie d color rojo...
|
Hola José.
Tomando en cuenta esa parte de tu mensaje, sería:
Código Delphi
[-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender) do
begin
if not (gdFixed in State) then
begin
if gdFocused in State then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clGreen;
Canvas.FillRect(Rect);
end;
Canvas.TextRect(Rect, ACol, ARow, Cells[ACol, ARow]);
end;
end;
Saludos.