Рисунок в StringGrid

← →
Leny © (2002-07-17 10:16) [0]

Может кто знает, возможно ли в StringGrid вставить в определ.ячейку рисунок и как это делается.

← →
Катерина © (2002-07-17 10:22) [1]

Может быть воспользоваться TDrawGrid?

← →
Игорь Шевченко © (2002-07-17 10:26) [2]

TStringGrid.OnDrawCell - все, что угодно можно вставить

← →
Leny © (2002-07-17 10:45) [3]

Что-то у меня ничего не выходит. Не могу найти процедуру, которая вставляет рисунок
Т.е StringGrid.Cells[0,0]... - а дальше что?

← →
Виктор Щербаков © (2002-07-17 10:48) [4]

"вставляет рисунок" или что-то еще придется самой в обработчике события OnDrawCell.

← →
Игорь Шевченко © (2002-07-17 10:49) [5]

В help по TStringGrid есть описание события OnDrawCell.
В примере достаточно вместо Canvas.FillRect поставить Canvas.Draw (...ваш рисунок)

← →
Skier © (2002-07-17 11:35) [6]

>Leny
Приблизительно так :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var ABitmap : TBitmap; begin if (ACol = 1) and (ARow = 1) then begin //для ячейки [1,1] ABitmap := TBitmap.Create; try ABitmap.LoadFromFile("C:\###\alarm.bmp"); //здесь укажи свой //файл with Sender as TStringGrid do begin Canvas.Draw(Rect.Left + 2, Rect.Top + 2, ABitmap); Canvas.TextOut(Rect.Left + ABitmap.Width + 4, Rect.Top + 2, Cells[ACol, ARow]); end; //with finally ABitmap.Free; end; //try end; //if end;

← →
Song © (2002-07-17 12:01) [7]

2Skier © (17.07.02 11:35)
Вы видимо не читаете "Потрепаться" где обсуждаются темы о том, что чтобы дать человеку потреннироваться и научиться Дельфи, НЕ СЛЕДУЕТ давать готовых примеров, если уже и так всё расжовано!

← →
Skier © (2002-07-17 12:06) [8]

>Song
Во-первых это девушка, а девушкам завсегда приятно помочь.
А во-вторых : это что - наезд ! :))

← →
Song © (2002-07-17 12:19) [9]

Даже девушкам нужно тоже учиться, а не пользоваться готовым.

>Song
Если серьёзно : то я с тобой совершенно не согласен !
Учится как раз лучше на готовым примерах, анализировать
их и разбирать (к моему коду это не относится :) )

А вообще надо завязывать с трёпом, а то эту ветку отсюда
выкинут...

Song © (17.07.02 12:19)

Даже в help"е Delphi есть examples

А при поставке еще и Demos каталог появляется..

С уважением,

Да, только большинство людей, имеющих такие вопросы просто тупо вставляют их к себе в текст программы и забывают.. Какое там анализирование... разбор...

Рисунок в StringGrid Найти похожие ветки