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

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

← →
skirdov ©   (2002-12-14 16:23) [0]

Добрый день.
Никак не получается задать фон для формы, который содержится в файле "pic.bmp". Делаю так:

procedure TForm1.FormCreate(Sender: TObject);
var
MyBrush: TBrush;
MyBitMap: TBitmap;
begin
MyBrush := TBrush.Create;
MyBitMap := TBitmap.Create;

MyBitMap.LoadFromFile ("c:\temp\pic.bmp");
MyBrush.Bitmap := MyBitMap;
Form1.Brush.Assign(MyBrush);

MyBitMap.Free;
MyBrush.Free;
end;

Но вместо картинки форма полностью окрашивается в белый цвет. Что я делаю не так?
Спасибо...

---

← →
Shadow ©   (2002-12-14 16:29) [1]

гы....!!!!

---

← →
asmith   (2002-12-14 17:50) [2]

Создай для формs обработчик события OnPaint и пиши в нем:
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, W, H : Integer;
begin
begin
if MyBitMap.Empty then
Exit;
W := MyBitMap.Width;
H := MyBitMap.Height;
for x := 0 to ClientWidth div W do
for y := 0 to ClientHeight div H do
Canvas.Draw(x * W, y * H, MyBitMap);
end;
end;
Из конструктора убери
MyBrush: TBrush;
...
MyBrush.Bitmap := MyBitMap;
Form1.Brush.Assign(MyBrush);
MyBitMap.Free; перенеси в деструктор.

---

← →
skirdov ©   (2002-12-14 18:11) [3]

To asmith
Большое спасибо...

---

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

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



Память: 0.45 MB
Время: 0.011 c