16.11.2006, 22:26
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Если .bmp, то попробуй так:
Код:
procedure TForm1.FormPaint(Sender: TObject);
var
bm1, bm2: TBitmap;
begin
bm1 := TBitmap.Create;
bm1.LoadFromFile( 'c:\WINDOWS\Пузыри.bmp' );
bm2 := TBitmap.Create;
bm2.Width := ClientWidth;
bm2.Height := ClientHeight;
bm2.Canvas.Brush.Bitmap := bm1;
bm2.Canvas.FillRect( bm2.Canvas.ClipRect );
Form1.Canvas.Draw( 0, 0, bm2 );
// или так - BitBlt( Canvas.Handle, 0, 0, bm2.Width, bm2.Height, bm2.Canvas.Handle, 0, 0, SRCCOPY );
bm2.Free;
bm1.Free;
end;
|