Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.12.2011, 21:27
Kaktuz Kaktuz вне форума
Начинающий
 
Регистрация: 30.10.2011
Сообщения: 149
Репутация: 10
По умолчанию Таблица

Как-то видел один пример (скриншот) где по сути дела использовался StringGrid1 или DrawGrid1 в ячейки которого совершалась загрузка выбранного изображения. Вроде того: выбрал изображение, клацнул по ячейке и в нее загрузилось изображение.
Это вообще возможно? Если да, то помогите пожалуйста с кодом на примере.
Ответить с цитированием
  #2  
Старый 21.12.2011, 21:39
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Цитата:
Сообщение от Kaktuz
выбрал изображение, клацнул по ячейке и в нее загрузилось изображение
Где выбрал?
Ответить с цитированием
  #3  
Старый 21.12.2011, 21:41
Kaktuz Kaktuz вне форума
Начинающий
 
Регистрация: 30.10.2011
Сообщения: 149
Репутация: 10
По умолчанию

Цитата:
Сообщение от AlexSku
Где выбрал?
Ну... Допустим грузишь адрес изображения в переменную, а затем уже в ячейку которую выбираешь.
Ответить с цитированием
  #4  
Старый 21.12.2011, 21:53
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Можно в оба компонента загрузить, но в DrawGrid проще, он под это заточен. Используй событие OnDawCell.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 21.12.2011, 21:58
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

У Grid'а убираешь DefaultDrawing (т.е. False) и рисуешь на канве в обработчике OnDrawCell.
Ответить с цитированием
  #6  
Старый 21.12.2011, 22:05
Kaktuz Kaktuz вне форума
Начинающий
 
Регистрация: 30.10.2011
Сообщения: 149
Репутация: 10
По умолчанию

Случайно нашел подобный код:
Код:
BitMap := TBitmap.Create;
BitMap.LoadFromFile('Bitmap.bmp');
DrawGrid1.Canvas.CopyRect(DrawGrid1.CellRect(1, 1), BitMap.Canvas, Rect(0, 0, 32, 32));
Но он работает только от кнопки. Помещаю его в OnDawCell и выдает ошибку.
Ответить с цитированием
  #7  
Старый 21.12.2011, 22:27
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Примерно так:
Код:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with Sender as TDrawGrid do
    ImageList.Draw(Canvas, ACol, ARow, Index);
end;
где Index - порядковый номер картинки в TImageList-е.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 21.12.2011 в 23:27.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter