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

Таблица с картинками!   Найти похожие ветки 

← →
serko   (2005-06-16 14:05) [0]

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

---

← →
Алхимик ©   (2005-06-16 14:16) [1]

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

---

← →
serko   (2005-06-16 14:22) [2]

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

---

← →
Алхимик ©   (2005-06-16 14:41) [3]

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;

---

← →
Алхимик ©   (2005-06-16 14:52) [4]

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

---

← →
serko   (2005-06-16 14:57) [5]

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

---

← →
evvcom ©   (2005-06-16 15:03) [6]

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

---

← →
Алхимик ©   (2005-06-16 15:05) [7]

>  [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;

---

← →
Алхимик ©   (2005-06-16 15:08) [8]

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

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

---

← →
evvcom ©   (2005-06-16 15:10) [9]

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

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

---

← →
serko   (2005-06-16 15:14) [10]

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

---

← →
Алхимик ©   (2005-06-16 15:22) [11]

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

---

← →
Crazy_Diman ©   (2005-06-21 15:31) [12]

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

---

← →
serko   (2005-06-22 23:43) [13]

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

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

---

← →
serko   (2005-06-23 01:33) [14]

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

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

---

← →
evvcom ©   (2005-06-23 01:36) [15]

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

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

---

← →
serko   (2005-06-23 12:36) [16]

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

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

---

← →
Crazy_Diman ©   (2005-06-23 13:03) [17]

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

---

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

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



Память: 0.48 MB
Время: 0.026 c