Скачать: CL | DM;

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

← →
Клара   (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]

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

---

← →
Ega23 ©   (2007-03-09 13:16) [9]

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


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

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

---

← →
Рамиль ©   (2007-03-09 13:20) [10]

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

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.971 c