jpeg

[mihali4]

Сообщение от All517

просматривать связанные с текущей записью картинки

А DBImage чем не устраивает?

[Stilet]

А DBImage чем не устраивает?

Не всегда целесообразно гадить базу картинками

[Andrei]

Сообщение от All517

я так поняла что Image отображает одну картинку, а их много.
он клик тоже не пойдет - я перемещаюсь по строкам ДБГрида без кликов

Тогда, как написал Nemon, тодько на событие AfterScroll в своем датасете.

[Stilet]

All517, В Delphi World есть пример загрузки JPEG. Посмотри здесь:
http://delphiworld.narod.ru/dw.html

[All517]

Сообщение от Andrei

Тогда, как написал Nemon, тодько на событие AfterScroll в своем датасете.

так он показывает одни и те же картинки на любой записи..
тем более что кие картинки должны показываться определяется сектом...

[Andrei]

Сообщение от All517

так он показывает одни и те же картинки на любой записи..

Странно... конструкция-то элементарная...

1) Image1.Picture.LoadFromFile('c:/myfile.jpg'); - показывает файл с именем 'c:/myfile.jpg'

2) Берем имя файла из твоей БД и подставляем вместо 'c:/myfile.jpg'. Это будет выглядеть примерно так:

Image1.Picture.LoadFromFile(ADOQuer y1['ImgFileName']);

, где ImgFileName - это строковое поле твоей БД, в котором храняться имена файлов.

3) Теперь всю эту конструкцию помещаем в обрабтчик на событие, реагирующее на перемещение по записям ADOQuery. В хелпе читаем, что этим событием является AfterScroll:

AfterScroll event (TDataSet)

Occurs after an application scrolls from one record to another.

Delphi syntax:

property AfterScroll: TDataSetNotifyEvent;

C++ syntax:

__property TDataSetNotifyEvent AfterScroll = {read=FAfterScroll, write=FAfterScroll};

Description

Write an AfterScroll event handler to take specific action immediately after an application scrolls to another record as a result of a call to the First, Last, MoveBy, Next, Prior, FindKey, FindFirst, FindNext, FindLast, FindPrior, and Locate methods. AfterScroll is called after all other events triggered by these methods and any other methods that switch from record to record in the dataset.

В нашем случае это будет выглядеть так:

procedure TForm1.ADOQuery1AfterScroll(DataSet : TDataSet);
begin
Image1.Picture.LoadFromFile(ADOQuer y1['ImgFileName'].value);
end;

Все...

Если картинка не изменяется, значит либо ты не переходишь на другую запись в твоей БД, либо значения записей совпадают, тоесть ты смотришь один и тот же файл.