Скачать: CL | DM;

Рисунок в 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]

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

---

← →
Skier ©   (2002-07-17 12:27) [10]

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

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

---

← →
Игорь Шевченко ©   (2002-07-17 12:30) [11]

Song © (17.07.02 12:19)

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

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

С уважением,

---

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

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

---

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

Song © (17.07.02 12:55)

Со временем разберутся...может быть...

С уважением,

---

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

Скачать: CL | DM;



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