bir adet ShellListView
bir adet ShellCombobox
bir adet image1 nesneleri bulunamaktadır.
Kod: Tümünü seç
procedure TForm1.ShellListView1Click(Sender: TObject);
var
Dosya_Yolu, uzantisi : string;
uzunluk, uzanti_yeri : integer;
begin
if ShellListView1.SelCount = 1 then
begin
Dosya_Yolu := ShellListView1.Folders[ShellListView1.Itemindex].PathName;
uzunluk := length(Dosya_Yolu);
uzanti_yeri := uzunluk-2;
uzantisi := copy(Dosya_Yolu,uzanti_yeri,3);
if (uzantisi = 'jpg') or (uzantisi = 'bmp') then
begin
ShowMessage (Dosya_yolu);
image1.Picture.LoadFromFile(dosya_Yolu);
end;
end;
end;
fakat image ye yüklerken burda
Raised exception class EInvalidGraphic with message 'Unknown picture file extension (.jpg)' diye bir hata alıyorum nerde
ne yanlış yapıyorum.