Название загруженного в TImage изображения

← →
Garfunkel (2004-10-28 00:41) [0]

Кнопкой загружаем в Image изображение "mypic.jpg". Так вот как при нажатии другой кнопки должно проверяться (приблизительно)
if Image1.Picture="mypic.jpg" then do
something
else
Exit;
так вот это конечно не работает. А как правильно определить имя загруженного в Image файла.

← →
tormoz (2004-10-28 00:46) [1]

LoadFromFile

← →
Andy BitOff © (2004-10-28 00:52) [2]

Сохранить его (имя) отдельно.

← →
negrila (2004-10-28 08:04) [3]

Самый просто способ - создать потомка TImage с еще одним свойством LoadedFileName

← →
Garfunkel (2004-10-28 12:38) [4]

Ну и как в этом потомке узнавать имя? Я - новичок в Дельфи и создание потомка это что-то чего я еще не делал:) Может как-нибудь без потомка, а?

← →
Добрый дядька (2004-10-28 12:41) [5]

Garfunkel (28.10.04 12:38) [4]
Я - новичок в Дельфи и создание потомка это что-то чего я еще не делал

Тогда тебе пока ничего не поможет.

Придумай алгоритм сохранения имени в удобном для тебя месте при загрузке рисунка сам.

держи потомка.

загрузка картинки Image.LoadPicture()
имя картинки Image.LoadedFileName

unit sskImage; interface uses Classes, ExtCtrls, Graphics, jpeg; type TsskImage = class(TImage) private FFileName: string; function GetFileName: string; public function LoadPicture(FileName: string): boolean; published property LoadedFileName: string read GetFileName; end; procedure Register; implementation procedure Register; begin RegisterComponents("ssk Components", [TsskImage]); end; function TsskImage.GetFileName: string; begin Result := FFileName; end; function TsskImage.LoadPicture(FileName: string): boolean; begin try Picture.LoadFromFile(FileName); if FFileName <> FileName then FFileName := FileName; Result := True; except Result := False; end; end; end.

если что криво сделано, извиняйте...

← →
Garfunkel (2004-10-30 03:17) [7]

to ssk
Спасибо!

Название загруженного в TImage изображения Найти похожие ветки