Отрисовка битового образцаDelphi , Графика и Игры , 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.Скачать весь проект Статья Отрисовка битового образца раздела Графика и Игры Bitmap может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросы:: 2016-02-01 18:00:07 :: re:Отрисовка битового образцапользователь: Victor. Мне нужны файлы sky.bmp и aplane.bmp. Спасибо. Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |