| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Фон формы [D6]
skirdov © (2002-12-14 16:23:00)Добрый день.
Никак не получается задать фон для формы, который содержится в файле "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;
Но вместо картинки форма полностью окрашивается в белый цвет. Что я делаю не так?
Спасибо...
skirdov (2002-12-14 18:11:00) [1]To asmith
Большое спасибо...
asmith (2002-12-14 17:50:00) [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; перенеси в деструктор.
Shadow (2002-12-14 16:29:00) [3]гы....!!!!
| |
