Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как загрузить картинку в DBGrid!!!! Как сделать... 
:(
    Опции темы
Dron84
Дата 8.12.2005, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
У меня в таблице есть булевое поле, при открытии базы происходит инициализация поля на прай, если он есть то переписыаем поле с False на True, а в приложении в DBGrid'е в первом столбце толна отображаться иконка в тех полях, которым было присвоено значение True, но иконка не отображается... Как сделать?
PM MAIL   Вверх
bas
Дата 8.12.2005, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: 1
Всего: 2
Что можно поместить в DBGrid
PM MAIL   Вверх
Dron84
Дата 8.12.2005, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
bas
у меня открывается пустая страница по этой ссылке smile
PM MAIL   Вверх
sexton
Дата 9.12.2005, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: нет
Всего: 9
Dron84 в EhLib есть такая фича - назначение различных картинок в ячейку по значению boolean поля


--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
Dron84
Дата 9.12.2005, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
sexton
я знаю, но у меня нет возможности использовать EhLib... smile
PM MAIL   Вверх
offline
Дата 9.12.2005, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7
а теперь откроется?

http://www.citforum.ru/programming/advice/advice04.shtml
PM MAIL   Вверх
Dron84
Дата 9.12.2005, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
kirilllius
я делаю так
Код

var
 Price: TBitMap;
begin
     Price := TBitMap.Create;
     Price.Transparent := true;
     if FileExists(GetEXEPath + 'List.bmp') then
       Price.LoadFromFile(GetEXEPath + 'List.bmp');
end;



далее в OnDrawColumnCell пишу
Код

procedure TOrgAlphabet.OrgListDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column = OrgList.Columns[0]) and
     (data.TOrgan.FieldByName('PriceList').AsBoolean) then
       begin
         OrgList.Canvas.Draw(Rect.TopLeft.x, Rect.TopLeft.y, MainForm.Price);
         OrgList.Cursor := crHandPoint;
       end;
end;


но картинки нет smile
в чём весь прикол, в D5 картинка отображается нормально, специально сейчас проверил, а в D7 её нет smile

но картинки нет

PM MAIL   Вверх
Dron84
Дата 12.12.2005, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
Народ, подскажите, что можно сделать, please!!!!
PM MAIL   Вверх
offline
Дата 12.12.2005, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7
а у тебя стоит Update на D7 может из за него проблема?
PM MAIL   Вверх
Dron84
Дата 12.12.2005, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
Цитата
а у тебя стоит Update на D7 может из за него проблема?

стоит, последний, какой только был....

А у тебя стоит обновление?
PM MAIL   Вверх
offline
Дата 12.12.2005, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7
да, стоит, а без него проблем куча была
PM MAIL   Вверх
Dron84
Дата 12.12.2005, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
да я знаю, слушай, попробуй мой код у себя на машине, может у тебя будет работать...
ну так то по сути, в коде ошибок нет...
а в чём проблема не могу понять... smile
PM MAIL   Вверх
offline
Дата 12.12.2005, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7
глянем
PM MAIL   Вверх
Dron84
Дата 12.12.2005, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
я в начале думал на размеры картинки, но ничего так и не решилось smile
PM MAIL   Вверх
offline
Дата 12.12.2005, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7
я сделал следующее и у меня все работает

Код

 if (Column.FieldName = 'Изображение')
  then begin
   DBGrid1.Canvas.Draw(Rect.TopLeft.x, Rect.TopLeft.y, Image1.Picture.Bitmap);//Image1.Picture.Bitmap здесь битмап объект
   DBGrid1.Cursor := crHandPoint;
  end;
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0968 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.