Cześć wybaczcie mi że wracam do tematu.
funkcja działa jak najbardziej ale w jednym wypadku nie.
procedure TForm2.ListBoxJPEGClick(Sender: TObject);
begin
LabeledEditJPEG.Text := ListBoxJPEG.Items[ListBoxJPEG.ItemIndex];
showpicture(self.Image1, (extractfilename(ListBoxJPEG.Items[ListBoxJPEG.ItemIndex])));
end;
Mam problem bo nie raz muszę dodać puste indeksy bo nie wszędzie mam grafiki.
i jak kliknę na pusty indeks ok
ale jak tylko dodam jakiś plik z grafiką:
1:[pusty indeks]
2:plik.jpg
Plik jpg się otwiera jest ok
Ale gdy ponownie kliknę na pusty indeks to jakoś przechwytuje ścieżkę z pliku jpg
wywala komunikat system nie może odnaleźć określonej ścieżki
dodatkowo widać w komunikacie: że do ścieżki pliku jpg dopisuje jeszcze \Picture\zastępczy obrazek.png
ścieżka do pliku\Picture\zastępczy obrazek.png.
Dlaczego przechwytuje ścieżkę z pliku jpg zamiast wyświetlić po prostu zastępczy obrazek gdy klikamy w pusty indeks
Nawet jak w drugim Listboxie mam pliki mp3 to przechwyci mi z nich ścieżkę jak tylko jakiś dodam.
Ale tak tylko się dzieje jak klikam w pusty indeks a mam już dodany jakiś plik ze ścieżką.
Bo normalnie działa prawidłowo.
function showpicture(aImage: timage; APath: string): string;
begin
result := imgOK;
if not FileExists(APath) then
APath := 'Picture\zastępczy obrazek.png';
try
aImage.picture.loadfromfile(APath);
except
raise Exception.Create('Jakaś dupa się stała');
end;
end;