powered by simpleCommunicator - 2.0.35     © 2025 Programmizd 02
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подгрузка картинок в DBGrid на лету
4 сообщений из 4, страница 1 из 1
Подгрузка картинок в DBGrid на лету
    #32022672
ivans
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ситуация следующая (Delphi 5.0, MS SQL 7.0):
Грид компонента от DevExpress : TdxDBGrid
Всё дело в том, что мне не нужно хранить в базе само изображение,
и хранится только абсолютный путь к нему.
Но при этом при открытии грида нужно чтобы показывались изображение в каждой строчке и его параметры. Всё, кроме самого изображения хранится в БД. Вот я и хочу брать значение пути и подгружать картинку на лету. Проблема с полем, в которое её надо грузить. Может кто сталкивался уже?
...
Рейтинг: 0 / 0
Подгрузка картинок в DBGrid на лету
    #32023013
Vipe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А разве сами картинки в базе нельзя хранить???
...
Рейтинг: 0 / 0
Подгрузка картинок в DBGrid на лету
    #32023203
dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я делал на обычном DBGrid. Там есть событие DrawParamCell, по моему (Делфей нет под рукой), картинки помещаются в ImageList, а он уже может сам рисовать на указанной канве. В этом событии и остается только указать координаты текущей клетки и номер картинки. Если не совсем понятно, оставь мыло - сброшу пример.
...
Рейтинг: 0 / 0
Подгрузка картинок в DBGrid на лету
    #32023381
Малышенко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подгрузка картинок в DBGrid на лету
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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