Отрисовка битового образца

Отрисовка битового образца

unit aplanes_;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
 TForm1 = class(TForm)
  procedure FormPaint(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;
var
 Form1: TForm1;
 sky, aplane: TBitMap; // битовые образы: небо и самолет
implementation
{$R *.DFM}
procedure TForm1.FormPaint(Sender: TObject);
begin
  // создать битовые образы
 sky := TBitMap.Create;
 aplane := TBitMap.Create;
  // загрузить картинки
 sky.LoadFromFile('sky.bmp');
 aplane.LoadFromFile('aplane.bmp');
 Form1.Canvas.Draw(0, 0, sky); // отрисовка фона
 Form1.Canvas.Draw(20, 20, aplane); // отрисовка левого самолета
 aplane.Transparent := True;
  // теперь элементы рисунка, цвет которых совпадает с цветом
  // левой нижней точки битового образа, не отрисовываются
 Form1.Canvas.Draw(120, 20, aplane); // отрисовка правого самолета
  // освободить память
 sky.free;
 aplane.free;
end;
end.

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...