Timage в Delphi

[TaYgA]

Всем доброго времени суток, возник вопрос с загрузкой изображения профилем.... Как сделать, чтоб выбранное изображение в ListBox появлялось в TImage?!?! И если исходный размер изображения больше данного в TImage, как сделать чтоб Delphi уменьшало его до нужного не обрезая картинку?!?!

[Пепел Феникса]

1)Image.Picture.LoadFromFile(путь);
(в uses добавить jpeg для возможности открытия jpg файлов)
2)Image.Stretch:=true;
(и вероятно надо вам еще и Proporcional:=true(как то так св-во называется))
это можно сделать и в дизайн-тайме

[TaYgA]

Не получается Программа запускается, но при преходе на форму где должен выбираться рисунок запускается отладчик...

Uses 
    jpeg;
......................
  public
    { Public declarations }
    procedure OpenFile(const Filename: string);
...................................
procedure TOptions.OpenFile(const Filename: string);
begin
  try
    iAva.Picture.LoadFromFile(Filename);// указывает на эту строчку
  except
    on EInvalidGraphic do
      iAva.Picture.Graphic := nil;
  end;
end;

procedure TOptions.lbImageChange(Sender: TObject);
begin
  OpenFile(lbImage.Filename);
end;

[Пепел Феникса]

какую ошибку пишет?

[TaYgA]

Ошибку исправил, но всё равно картинка в TImage не добавляется... (Выбираю в listbox интересующее изображение, нажимаю на него, но в Timage оно не отображается)

[Пепел Феникса]

а путь к файлу то собственно полный?
проверьте через отладчик.

[raxp]

а че у меня работает? выкладывайте прожект...

[TaYgA]

Спасибо за помощь... Все ошибки испаравил, они были в других процедурах.....

[TaYgA]

Скажите пожалуйсто, а как сделать, чтоб в ListBox отображались файлы тоько jpeg формата?!?!

[Вавел из ГМТУ]

ListBox отображает то, что ты туда записываешь.... Ему без разницы что ты записал.
Проверяй расширение файла перед записью его в LB.