Bitmap в ячейке StringGrid

Автор: Марина Прядко

Работаем с событием OnDrawCell. В примере в ячейку[3,2] вставляем рисунок из файла c:\books.bmp

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Pic:TBitmap;
begin
  if (ARow=3) and (ACol=2) then
  begin
    Pic:=TBitmap.Create;
    try
      Pic.LoadFromFile('c:\books.bmp');
      StringGrid1.Canvas.Draw(Rect.Left, Rect.Top, Pic);
    finally
      pic.Free;
    end;
  end;
end;
 
faq/delphi/ui/bitmap_in_stringgrid_cell.txt · Последние изменения: 2006/06/16 09:19 От seagirl
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki