• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 371
  • Last Modified:

how to put picture to on cell in drawgrid?

I can not put my picture to one cell in drawgrid?
0
tanad
Asked:
tanad
1 Solution
 
viktornetCommented:
Here is a simple example that draws a bimtpa in the first col,row
--------
implementation

{$R *.DFM}
var
  BMP : TBitmap;
procedure TForm1.DGDrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (col = 1)and(row = 1) then
    DG.Canvas.Draw(Rect.Left + 2, Rect.Top + 2, Bmp);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Bmp := TBitmap.Create;
  bmp.loadfromfile('E:\My Bmps\checked.bmp');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  bmp.free;
end;
--------------
Regards,
Viktor Ivanov
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now