Цитата:
|
Сообщение от san-46
Зачем так сложно?
Вот работающий код:
Код:
{$R uuu.res}
procedure TForm1.Button1Click(Sender: TObject);
var
MyBmp: TBitmap;
begin
MyBmp := TBitmap.Create;
try
MyBmp.LoadFromResourceName(HInstance, 'MY_BMP');
Image1.Picture.Assign(MyBmp);
// Canvas.Draw(10, 10, MyBmp); или так, если картинка должна быть на форме
finally
MyBmp.Free;
end;
end;
Текстовый файл для компиляции ресурса:
MY_BMP BITMAP "uuu.bmp"
Проверено на картинке с глубиной цвета 24 бит.
Особенность. Наименование ресурса должно быть заглавными буквами и в текстовом файле и при указании в параметрах процедуры загрузки ресурса.
К DelphiWorld следует относится настороженно: там много ошибок и не работающего кода |
А можно меня просветить куда надо кидать файл, а то полный ноль в этом деле. Кинул его на рабочий стол, с названием MY_BMP, он мне его в упор найти не может.