Bmp eklemek

Bmp eklemek



procedure TfrMain.btnCanvasPic(Sender: TObject);

var bBitmap : TBitmap;

begin

bBitmap := TBitmap.Create;

try

bBitmap.Handle := LoadBitmap(hInstance, 'ATHENA');

Image1.Width := bBitmap.Width;

Image1.Height := bBitmap.Height;

Image1.Canvas.Draw(0,0,bBitmap);

finally

bBitmap.Free;

end;

end;