Картинка из ресурса

[ProgeRock]

Delphi 2007

Почему не работает код?

procedure q;
var
Img: TBitmap;
begin
Img:= TBitmap.Create;
Img.Handle := LoadBitmap(HInstance,'1');
Form1.Image1.Canvas.Draw(0, 0, Img);
Img.Free;
end;

 

[morpheus]

а ресурс залинкован?

Ссылка скрыта от гостей

 

[ProgeRock]

Да

 

[European]

Почему не работает код?

Проверять результат функций кто будет? HInstance валиден?

 

[ProgeRock]

Че такое "валиден"

 

[European]

valid (англ.) - действительный, т.е. правильно установлен? Почему на NULL не проверяете его?

а, вот оно что... HInstance в Delphi глобален. Тогда вопрос отпадает... Но в отладочных целях на 0 можно проверить.

Что возвращает LoadBitmap?

 

[ProgeRock]

Правильный он

 

[European]

Правильный он

Хто? Хотите помощи - отвечайте полнее.
Повторю вопрос:

Что возвращает LoadBitmap?

 

[ProgeRock]

как узнать?

 

[European]

В отладке поставить точку останова и посмотреть

 

[ProgeRock]

Точку поставил, а как посмотреть?

 

[ProgeRock]

Кие ваще картинки могут быть в ресурсе, чеб их так использовать?

 

[ProgeRock]

procedure q;
var
Img: TBitmap;
begin
Img:= TBitmap.Create;
Img.Handle := LoadBitmap(HInstance,'1');
Form1.Image1.Canvas.Draw(0, 0, Img);
Img.Free;
end;

Процедура не находится в модуле с формой.
Вызывается из модуля с формой событием Button1Click.
Ресурс включен в модуль с процедурой.
Image окрашивается в белый, картинки нет!
Почему не работает?

 

[ProgeRock]

А имя было нормальное "Shadow.res".
'1' (В коде) - название картинки в ресурсе.
Если написать так Img.LoadFromResourceName(HInstance, "MYBITMAP") выдает ошибку
[DCC Error] Unit2.pas(22): E2038 Illegal character in input file: '"' (#$22)

Если написать так Img.LoadFromResourceName(HInstance, 'MYBITMAP'), говорит, че не находит моего ресурса.

 

[ProgeRock]

Это в смысле файл ресурса называется MYBITMAP.res, так пробовал, не сработало.
У меня в ресурсе несколько картинок, как же тогда таким методом обращаться к конкретной?

 

[ProgeRock]

Говорит что не видит ресурса, что в ' '

 

[ProgeRock]

AUCH, не увидел деталь в ресурсе (BITMAP), сработало, спасиба.