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

Про матеріал

Роздатковий матеріал з об'єктно-зорієнтованого програмування для практичної роботи "Клас 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;

doc
Додано
14 листопада 2018
Переглядів
537
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку