TBitmap

[stalker1995s]

Здравствуйте ув.коллеги, подскажите пожалуйста, что я делаю не так, задача такая. Есть у фона формы картинка, двумя щелчками мыши, можно загрузить новый фон. Но перед этим, процедура проверяет, не мала ли выбранная картинка, чтобы получить размеры, не загружая картинки в image я сделал следующее:

var Bitmap: TBitmap;

begin
if Fondi.Execute then
begin


Bitmap:=TBitMap.Create;
Bitmap.LoadFromFile(Fondi.FileName) ;
PicSize(Bitmap.Height,Bitmap.Width, False);
Bitmap.Free;

Т.е я загружаю картинку, узнать ее размеры, и там уже процедурой ее проверяют, выдает ошибку,

Project Project1.exr raised exception class ElnavidGraphic with message 'Bitmape image is not valid' Procss stoped. Use Step....

Скажу, что загружать планируется не только файлы типа bmp, но и png и т.п. Благодарю!

[Человек_Борща]

Потому что BITMAP это не PNG, потому ElnavidGraphic. Преобразуйте одно в другое и будет все шикарно.

[stalker1995s]

Я бы рад, но как ?