Bitmap - ler do resource

Top  Previous  Next

Ler bitmap do RES

 

procedure TForm1.Button1Click(Sender: TObject);

var

  Bmp: TBitmap;

begin

  Bmp := TBitmap.Create;

  Bmp.Handle := LoadBitmap(HInstance,'BITMAP_1');

  Canvas.Draw(00, Bmp);

  Bmp.Free;

end;