Пример 1. Загрузка графических изображений

 

Рассмотрим способ загрузки нескольких графических изображений в приложение.

Никаких компонентов на форме размещать не нужно. Для загрузки изображений из графических файлов необходимо создать четыре объекта типа TBitMap, эти объекты описываются в разделе var. Перейдите к вкладке Events окна Object Inspector, сделайте двойной щелчок в строке напротив события OnPaint, таким образом будет создана процедура TForm1.FormPaint. В этой процедуре должен содержаться код, прорисовывающий изображения из файлов.

 

Текст файла Unit1.pas:

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

 

type

  TForm1 = class(TForm)

    procedure FormPaint(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  a,b,c,d:TBitMap;

implementation

 

{$R *.dfm}

 

procedure TForm1.FormPaint(Sender: TObject);

begin

a:=TBitMap.Create;

b:=TBitMap.Create;

c:=TBitMap.Create;

d:=TBitMap.Create;

a.LoadFromFile('d67.bmp');

b.LoadFromFile('d68.bmp');

c.LoadFromFile('d69.bmp');

d.LoadFromFile('d70.bmp');

b.Transparent:=true;

c.Transparent:=true;

d.Transparent:=true;

Form1.canvas.Draw(10,10,a);

Form1.canvas.Draw(60,80,b);

Form1.canvas.Draw(230,120,c);

Form1.canvas.Draw(200,280,d);

a.Free;

b.Free;

c.Free;

d.Free;

end;

 

end.

 

Вид приложения во время его выполнения. В данном случае для объектов b, c, d свойство Transparent не было установлено:

 

 

Так выглядит приложение во время своего выполнения, если установить для объектов b, c, d свойство Transparent:=True.

 

 

Файлы, необходимые для выполнения демонстрационного примера здесь