Image1

← →
Вти (2006-09-04 20:14) [0]

Что нужно написать, чтобы это работало:

Image1.picture.loadfromFile("C:\1.jpg"); // загружаем картинку
...

// потом нужно сделать проверку
if image1.picture... ="C:\1.jpg" then ..

Что нужно написать после image1.picture, чтобы выполнялась проверка - если в image1 загружена картинка "C:\1.jpg",
тогда то-то. ??

← →
Джо © (2006-09-04 20:17) [1]

TImage не хранит информацию о имени файла.

← →
Furyz © (2006-09-04 21:03) [2]

вроде в ветку для начинающих

← →
Loginov Dmitry © (2006-09-04 21:14) [3]

> Что нужно написать после image1.picture, чтобы выполнялась
> проверка - если в image1 загружена картинка "C:\1.jpg",
> тогда то-то. ??

Можешь завести переменную типа String, и запоминать в ней имя файла после выполнения loadfromFile.

← →
oldman © (2006-09-04 21:50) [4]

элементарно, ватсон...
вешаешь на форму скрытую image2
пишешь:
Image1.picture.loadfromFile("C:\1.jpg");
Image2.picture.loadfromFile("C:\1.jpg");
Потом:
if image1.picture=image2.picture

:))))))))))))

← →
BOA_KAA © (2006-09-04 22:32) [5]

а еще TImage jpg не открывает...

← →
ppp.64.true.ru (2006-09-04 22:36) [6]

спорим открывает ))))))))

← →
Furyz © (2006-09-04 23:40) [7]

> а еще TImage jpg не открывает...

упал са стула

вот когда-то давно наследника делал... вроде работало. только логику проверки придется немного поменять.

{ Потомок от TImage со свойством пути к загруженному файлу. Загрузка файла Image.LoadPicture(FileName: string): boolean; Путь к загруженному файлу Image.LoadedFileName: string; } 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.

← →
ppp.64.true.ru (2006-09-05 00:15) [10]

ну а Picture.Empty не подходит что ли?

Image1 Найти похожие ветки