Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: 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 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
14-1118726011
Ega23
2005-06-14 09:13
2005.07.11
С днём рождения! 14 июня


1-1119452828
Суслик
2005-06-22 19:07
2005.07.11
Фокус при выводе диалоговых окон в MDI приложениях


10-1094817786
r_nikola
2004-09-10 16:03
2005.07.11
Глюки с NumberFormat для даты в Excel (понимает только по-русски)


14-1117815608
Андрей Жук
2005-06-03 20:20
2005.07.11
О геноциде


14-1118087134
тихий вовочка
2005-06-06 23:45
2005.07.11
На сколько процентов вы используете Delphi?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский