Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Вниз

Jpeg->StringGrid   Найти похожие ветки 

← →
MBo   (2002-02-05 07:56) [4]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var jp:tjpegimage;
begin
if (acol=1) and (arow=1) then begin
jp:=Tjpegimage.Create;
jp.LoadFromFile("e:\5.jpg");
StringGrid1.ColWidths[1]:=jp.Width;
StringGrid1.RowHeights[1]:=jp.height;
StringGrid1.Canvas.Draw(rect.Left,rect.Top, jp);
jp.Free;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c