Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подгрузка картинок в DBGrid на лету / 4 сообщений из 4, страница 1 из 1
11.02.2002, 13:26
    #32022672
ivans
ivans
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгрузка картинок в DBGrid на лету
Ситуация следующая (Delphi 5.0, MS SQL 7.0):
Грид компонента от DevExpress : TdxDBGrid
Всё дело в том, что мне не нужно хранить в базе само изображение,
и хранится только абсолютный путь к нему.
Но при этом при открытии грида нужно чтобы показывались изображение в каждой строчке и его параметры. Всё, кроме самого изображения хранится в БД. Вот я и хочу брать значение пути и подгружать картинку на лету. Проблема с полем, в которое её надо грузить. Может кто сталкивался уже?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2002, 15:41
    #32023013
Vipe
Vipe
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгрузка картинок в DBGrid на лету
А разве сами картинки в базе нельзя хранить???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2002, 04:25
    #32023203
dmitry
dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгрузка картинок в DBGrid на лету
Я делал на обычном DBGrid. Там есть событие DrawParamCell, по моему (Делфей нет под рукой), картинки помещаются в ImageList, а он уже может сам рисовать на указанной канве. В этом событии и остается только указать координаты текущей клетки и номер картинки. Если не совсем понятно, оставь мыло - сброшу пример.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2002, 11:41
    #32023381
Малышенко
Малышенко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгрузка картинок в DBGrid на лету
procedure TFmProd.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Im1: TBitmap;
begin
Im1:=TBitmap.Create;
if (Column.FieldName='index1' ) then begin // в какое поле ложить
with DBGrid1.Canvas do begin
Brush.Color:=clWhite;
FillRect(Rect);
im1.loadfromfile(Путь к твоему рисунку, хранящийся в базе данный, у меня работает);
Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
end;
end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подгрузка картинок в DBGrid на лету / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]