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

Previous  Top  Next

    
 

 

Code:

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.

 

©Drkb::03784