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

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

.

Другое по теме:

• Bitmap без формы
• Bitmap.Scanline для PixelFormat
• Вращать Bitmap вокруг точки