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

Советы » Bitmap » Отрисовка битового образца

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

.

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com