Создание фона на форме

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Как заполнить фон моей формы повторяющимся изображением?

unit Unit1;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Bitmap: TBitmap;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile(‘C:\WINDOWS\cars.BMP’);

end;

procedure TForm1.FormPaint(Sender: TObject);

var

X, Y, W, H: LongInt;

begin

with Bitmap do

begin

W := Width;

H := Height;

end;

Y := 0;

while Y < Height do

begin

X := 0;

while X < Width do

begin

Canvas.Draw(X, Y, Bitmap);

Inc(X, W);

end;

Inc(Y, H);

end;

end;

end.

{/codecitation}

Добавить комментарий