DB-ADO
03-04-2005, 19:21:25
Hola amigos. Estoy trabajando en Delphi 6 y necesito que alguien me diga como hago para dibujar (no asignar) una imagen dentro de un DBGrid.
Es parecido al truco 184 de Truco Mania
Pero este es solo para un StringGrid:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (Row=2) and (Col=3) then
with StringGrid1.Canvas do
Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
end;
Espero que puedan ayudarme.
Saludos
Es parecido al truco 184 de Truco Mania
Pero este es solo para un StringGrid:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (Row=2) and (Col=3) then
with StringGrid1.Canvas do
Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
end;
Espero que puedan ayudarme.
Saludos