Форма

← →
Клара (2007-03-09 11:17) [0]

Как задать фон формы( не Color), из файла.

← →
Плохиш © (2007-03-09 11:18) [1]

MyForm.Color := ReadColorFromFile("c:\windows\supercolor.txt");

← →
Ega23 © (2007-03-09 11:25) [2]

> Как задать фон формы( не Color), из файла.

procedure SetFormBackground(aForm : TForm; FileName : String); var bmp : TBitmap; begin if not FileExists(FileName) then Exit; bmp := TBitmap.Create; try bmp.LoadFromFile(FileName); aForm.Canvas.CopyRect(....); finally bmp.Free; end; end;

← →
Клара (2007-03-09 12:15) [3]

> Ega23

А можно коментарий к строке

> aForm.Canvas.CopyRect(....);

← →
Ega23 © (2007-03-09 12:32) [4]

Посмотри в хелпе.

← →
Клара (2007-03-09 12:34) [5]

> Ega23

Я этим и занимаюсь.

← →
Рамиль © (2007-03-09 12:36) [6]

> Ega23 © (09.03.07 11:25) [2]

Может всетаки Brush поменять?
Либо надо делать на OnPaint и функцией BitBlt (будет быстрее).

← →
Ega23 © (2007-03-09 12:37) [7]

> Может всетаки Brush поменять?
> Либо надо делать на OnPaint и функцией BitBlt (будет быстрее).

Да вариантов - масса. Это один из, так сказать.... :)
Насчёт OnPaint - безусловно.

← →
Клара (2007-03-09 13:11) [8]

Спасибо я сделала.
И еще один вопрос, а как растянуть рисунок по размеру формы или замостить?

> И еще один вопрос, а как растянуть рисунок по размеру формы
> или замостить?
>

Form1.Canvas.StretchDraw(Form1.ClientRect; bmp);

А замостить - не знаю, в цикле размножать надо.

> или замостить?

procedure TForm1.FormPaint(Sender: TObject);
var
i, j: integer;
begin
for i := 0 to Self.Width div Bitmap.Width do
for j := 0 to Self.Height div Bitmap.Height do
BitBlt(Self.Canvas.Handle, i * Bitmap.Width, j * Bitmap.Height,
Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY)

end;

← →
Клара (2007-03-09 13:33) [11]

Спасибо, ребят, все работает!

Форма Найти похожие ветки