Текущий архив: 2003.12.23;
Скачать: CL | DM;

Вниз

Картинки в TStringGrid   Найти похожие ветки 

← →
Walrus   (2003-12-11 09:01) [0]

Утро доброе! Вот собственно вопрос: можно ли вставить в ячейку картинку? Если можно, то как?

---

← →
Dmitriy O. ©   (2003-12-11 09:11) [1]

А вроде для картинок предназначен дравгрид.

---

← →
alex_***   (2003-12-11 09:17) [2]

OnDrawCell еще никто не отменял

---

← →
VAleksey ©   (2003-12-11 09:26) [3]

Ну, например так:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Var Bmp1:TBitMap;
begin
with Sender as TDrawGrid do
begin
Canvas.FillRect(Rect);
if gdFocused in State then
Canvas.DrawFocusRect(Rect);
end;
Bmp1:=TBitMap.Create;
ImageList1.GetBitmap(0,Bmp1);
if (ACol = 1) and (ARow = 1) then
begin
if Assigned(Bmp1) then
StringGrid1.Canvas.StretchDraw(Rect,Bmp1);
end;
Bmp1.Free;
end;

---

← →
alex_***   (2003-12-11 09:28) [4]

Кстати, ImageList может сразу отрисовываться на Canvas"e. Без промежуточных выгрузок в bmp

---

← →
Anatoly Podgoretsky ©   (2003-12-11 09:35) [5]

В справке есть пример.

---

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

Текущий архив: 2003.12.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c