| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Название загруженного в TImage изображения [D7, WinME]

Garfunkel ©   (2004-10-28 00:41:00) 

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

---

Garfunkel   (2004-10-30 03:17:00) [1]

to ssk
Спасибо!

---

ssk   (2004-10-28 14:02:00) [2]

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

загрузка картинки 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.


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

---

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

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

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

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

---

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

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

---

negrila   (2004-10-28 08:04:00) [5]

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

---

Andy BitOff   (2004-10-28 00:52:00) [6]

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

---

tormoz   (2004-10-28 00:46:00) [7]

LoadFromFile

---

Наверх