Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 162 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

161
procedure TForm1.FormPaint(Sender: TObject);
// обработчик события OnPaint
begin
Form1.Canvas.Draw(0, 0, TheGraphic);
// рисование на холсте формы
end;
procedure TForm1. FormCreate (Sender: TObject);
// обработчик события Создание формы
begin
TheGraphic := TBitmap.Create; // Создание объекта TheGraphic
TheGraphic.LoadFromFile('BKGRND.png'); // Загрузка из файла
end; 
procedure TForm1.FormPaint(Sender: TObject);
                              // обработчик события OnPaint
begin
 Form1.Canvas.Draw(0, 0, TheGraphic);
                             // рисование на холсте формы
end;
procedure TForm1. FormCreate (Sender: TObject);
                       // обработчик события Создание формы
begin
 TheGraphic := TBitmap.Create; // Создание объекта TheGraphic
 TheGraphic.LoadFromFile('BKGRND.png'); // Загрузка из файла
end;




                           161

Страницы