Отрисовка битового образца
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
.