Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизФон формы Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.016 c