Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

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

Наверх





Память: 0.47 MB
Время: 0.041 c
5-1088080715
Tor
2004-06-24 16:38
2005.07.11
Панель с кнопками


1-1118819243
dmitry501
2005-06-15 11:07
2005.07.11
Произвольное изменение региональных настроек


1-1119384911
NightHunter
2005-06-22 00:15
2005.07.11
Как соеденить WEB-документ и приложение в Делфи


11-1101815204
Алексей
2004-11-30 14:46
2005.07.11
Ошибки в MCK и что с ними делать?


1-1118389417
ruslan_as
2005-06-10 11:43
2005.07.11
Как сделать скриншот из всего, что находиться в ScrollBox1





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский