Практична робота в Delphi "Клас TBitmap"

Класс TBitmap

Создать небольшую форму

Создать в графическом редакторе рисунок с именем Ris1.bmp       

Описать переменную:

var  Ris1 : TBitmap;

Дописать процедуры:

procedure TForm1.FormCreate(Sender: TObject);

begin

  Ris1:=TBitmap.Create;

  Ris1.LoadFromFile('Ris1.bmp');

 end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  Ris1.Free;

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

   Canvas.Draw(10,40, Ris1);

end;