| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Таблица с картинками! [D6, WinXP]

serko ©   (2005-06-16 14:05:00) 

Ув. Мастера подскажите как сделать чтобы в ячейках таблицы Stringgrid или Drawgrid (незнаю в каком лудше) были картинки, загружаемые из файла?
Все ответившим большое спасиба!

---

Crazy_Diman   (2005-06-23 13:03:00) [1]

Тот пример так делает, заходи в чат поговорим

---

serko   (2005-06-23 12:36:00) [2]

Гы, ну а как тогда если у меня картинки должны быть по порядку (картинки у меня называются 1.jpg, 2.jpg и т.д. т.е. 1-ая ячейка , 2 -ая и т.д.)?

И как сделать Stretch и Proportional для каждой картинки? Ато размеры картинки у меня больше чем ячейка!

---

evvcom   (2005-06-23 01:36:00) [3]

> Сначала [1,1], потом [1,2] и т.д.?

Типа того, только привязываться надо не к 1 и 2, а к ACol и ARow, так как может начаться этот цикл и не с первой строки, и не с первого столбца.

---

serko   (2005-06-23 01:33:00) [4]

>Алхимик ©   (16.06.05 15:22) [11]

т.е. так:
Сначала [1,1], потом [1,2] и т.д.?

---

serko   (2005-06-22 23:43:00) [5]

>> Crazy_Diman ©   (21.06.05 15:31) [12]

Чето при нажатии на кнопку выскакивает ошибка!

---

Crazy_Diman   (2005-06-21 15:31:00) [6]

http://program2006.narod.ru/sad.rar

---

Алхимик   (2005-06-16 15:22:00) [7]

Дык этот обработчик и выполнится для каждой ячейки.
А какая конкретно ячейка прорисовывается можно узнать анализируя
параметры ACol, ARow : Integer

---

serko   (2005-06-16 15:14:00) [8]

Спасибо!
А как же все это делать для каждой ячейки?

---

evvcom   (2005-06-16 15:10:00) [9]

> Алхимик ©   (16.06.05 15:05) [7]

Что-то ты сегодня щедрый... Вполне достаточно было:
procedure TCanvas.Draw(X, Y: Integer; Graphic: TGraphic);
TJpegImage = class( TGraphic);

---

Алхимик   (2005-06-16 15:08:00) [10]

> [6] evvcom ©   (16.06.05 15:03)
> А клавишу F1 жмакать могёшь?

Не парься - челу надо критическую массу набрать, потом чтение хелпа превратится в любимый вид досуга. :)

---

Алхимик   (2005-06-16 15:05:00) [11]

>  [5] serko   (16.06.05 14:57)
> А JPEG мона как-то?

Мона, мона.
uses ... , Jpeg;
...
jpg := TJpegImage.Create;
jpg.LoadFromFile('lalala.jpg');
...
procedure TForm1.DrawGrid1DrawCell(Sender : TObject; ACol, ARow : Integer;
 Rect : TRect; State : TGridDrawState);
begin
 with TDrawGrid(Sender) do
    Canvas.Draw(Rect.Left,Rect.Top, jpg);
end;

---

evvcom   (2005-06-16 15:03:00) [12]

А клавишу F1 жмакать могёшь?

---

serko   (2005-06-16 14:57:00) [13]

А JPEG мона как-то?

---

Алхимик   (2005-06-16 14:52:00) [14]

bmp - соответственно некий экземпляр типа TBitmap, созданый заранее и загруженный картинкой.

---

Алхимик   (2005-06-16 14:41:00) [15]

procedure TForm1.DrawGrid1DrawCell(Sender : TObject; ACol, ARow : Integer;
  Rect : TRect; State : TGridDrawState);
begin
  with TDrawGrid(Sender) do
     Canvas.Draw(Rect.Left,Rect.Top, bmp);
end;

---

serko   (2005-06-16 14:22:00) [16]

А примерчик можна? Пожалуйста!

---

Алхимик   (2005-06-16 14:16:00) [17]

В обработчике события OnDrawCell рисовать ручками.

---

Наверх