¿Como Dibujar en un TDrawGrid/TStringGrid?

[pokexperto1]

Como puedo hacer para dibujar en un drawgrid/stringgrid, he buscado por internet pero no he encontrado nada que funcione... Quiero que al hacer click en una celda esa celda se coloree...Como lo hago

[Casimiro Noteví]

Por favor, no olvides poner un título descriptivo a tus preguntas.
Y recuerda leer nuestra guía de estilo
Y en relación a tu duda, es quizás (con alguna variante) una de las más repetidas, con una simple búsqueda por los foros encontrarás respuestas para ella.

[[nlsgarcia]]

pokexperto1,

Empezado por pokexperto1

...¿Como Dibujar en un TDrawGrid/TStringGrid?...

Revisa esta información:

1- DrawGrid - ¿para que sirve?

2- Dibujar imagen con ImageList en StringGrid

Espero sea útil

Nelson.

[Neftali [Germán.Estévez]]

Empezado por pokexperto1

...he buscado por internet pero no he encontrado nada que funcione...

¿Puedes poner algún código de los que has probado?
No es algo que tenga mucha complicación, así que talvez lo estás enfocando mal.

[ecfisa]

Hola pokexperto1.

Empezado por pokexperto1

... Quiero que al hacer click en una celda esa celda se coloree...Como lo hago

Un ejemplo con TStringGrid:

Código Delphi [-]
...
implementation

var
  PaintColor : TColor = clRed;

procedure TForm1.FormCreate(Sender: TObject);
var
  c, f: Integer;
begin
  with StringGrid1 do
  begin
    Options := Options + [goEditing];
    for c := FixedCols to ColCount-1 do
      for f := FixedRows to RowCount-1 do
      begin
        Objects[c, f]:= TObject(clWhite); // color por defecto
        Cells[c, f]  := IntToStr(c+f);   // algo de texto
      end;
  end;
end;

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

// Botón izquierdo pinta, derecho cambia el color
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ACol, ARow: Integer;
begin
  with TStringGrid(Sender) do
  begin
    MouseToCell(X, Y, ACol, ARow);
    case Button of
      mbLeft : Objects[ACol, ARow] := TObject(PaintColor);
      mbRight: if ColorDialog1.Execute then PaintColor := ColorDialog1.Color;
    end;
  end;
end;

Muestra:


Saludos

[[nlsgarcia]]

Daniel,

Empezado por ecfisa

...Un ejemplo con TStringGrid...

Nelson.