Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Название загруженного в 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]
Я - новичок в Дельфи и создание потомка это что-то чего я еще не делал


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

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


 
ssk ©   (2004-10-28 14:02) [6]

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

загрузка картинки 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
Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.052 c
14-1098701040
вразлет
2004-10-25 14:44
2004.11.14
Вот как надо подрывать буржуйскую экономику)))


1-1099384385
WondeRu
2004-11-02 11:33
2004.11.14
Assert... Зачем он нужен???


6-1094133088
Евгений30048
2004-09-02 17:51
2004.11.14
Как закачать на сервер БИНАРНЫЙ файл по http?


9-1089915239
Колбасьев
2004-07-15 22:13
2004.11.14
Подскажите как масштабировать модель (имеется ввиду X Mesh).


1-1098977741
MAVOR
2004-10-28 19:35
2004.11.14
Как обработать текстовый файл