| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Форма

Клара ©   (2007-03-09 11:17:00) 

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

---

Клара   (2007-03-09 13:33:00) [1]

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

---

Рамиль   (2007-03-09 13:20:00) [2]

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

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;

---

Ega23   (2007-03-09 13:16:00) [3]

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


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

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

---

Клара   (2007-03-09 13:11:00) [4]

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

---

Ega23   (2007-03-09 12:37:00) [5]

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


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

---

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

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

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

---

Клара   (2007-03-09 12:34:00) [7]

> Ega23

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

---

Ega23   (2007-03-09 12:32:00) [8]

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

---

Клара   (2007-03-09 12:15:00) [9]

> Ega23

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

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

---

Ega23   (2007-03-09 11:25:00) [10]

> Как задать фон формы( не 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 11:18:00) [11]

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

---

Наверх