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

Вниз

Картинки в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c