Hola compañeros!
Quiero al hacer dobleclick en cualquier celda de un stringgrid insertar una grafica, al hacer dobleclick, coloca la grafica, pero si lo vuelvo a hacer en otra celda, elimina la grafica y la coloca en la otra y lo que quiero es que permanezca esta hasta que le de nuevamente dobleclick y se cambie por otra o la elimine.
Cita:
procedure TForm1.sgPSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
Row := ARow;
Column := ACol;
end;
procedure TForm1.sgPDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ARow=Row) and (ACol=Column) then
with sgP.Canvas do
Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
end;
procedure TForm1.sgPDblClick(Sender: TObject);
begin
{Esto es para probar que inserta el dato y lo hace, pero la img la elimina}
sgP.Cells[Column, Row] := 'Col ' + IntToStr(Column) +
',Row ' + IntToStr(Row);
end;
|
Agradecería la ayuda que me pudieran aportar, he leido todos los mensajes referentes a stringgrid y no he visto nada de lo que necesito.