|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Delphi 7. как решить проблему с подгрузкой картинок
Доброго времени суток. Писал прогу и возникла проблема которую не могу решить уже 6 дней! Короче есть лист бокс с элементами (фильмы), при нажатии на элемент должны меняться постер и фон (image1 и image2), для реализации написал вот ето:
Код:
if FileExists('source\backgrounds\'+ListBox1.Items[ListBox1.ItemIndex]+'.jpg') and FileExists('source\posters\'+ListBox1.Items[ListBox1.ItemIndex]+'.jpg') then begin img3.Picture.LoadFromFile('source\backgrounds\'+ListBox1.Items[ListBox1.ItemIndex]+'.jpg'); img4.Picture.LoadFromFile('source\posters\'+ListBox1.Items[ListBox1.ItemIndex]+'.jpg'); end else ShowMessage('файл не найден'); end; может кто-то знает как это решить другим способом, подскажите пожалуйста оч надо! Последний раз редактировалось lmikle, 16.03.2012 в 20:58. |
#2
|
|||
|
|||
Сделай полный путь:
Код:
var AFileName : Stirng; begin AFileName := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'source\posters\' + ListBox1.Items[ListBox1.ItemIndex]+'.jpg'; If Not FileExists(AFileName) Then ShowMessage('File not found: ' + AFileName) Else img4.Picture.LoadFromFile(AFileName); |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
BOOGud (17.03.2012)
|