[UMmi]

Подскажите, кто знаеТ, как?

[ART]

//Можно так:
form1.Canvas.Draw(0,0,image1.Picture.Graphic);

[UMmi]

Сообщение от ART

//Можно так:
form1.Canvas.Draw(0,0,image1.Picture.Graphic);

ART, позволь уточнить: если на примере: есть рисунок 1.bmp(ipj, gif..), есть Canvas, как заполнить Canvas этим рисунком?

[UMmi]

Сообщение от ART

//Можно так:
form1.Canvas.Draw(0,0,image1.Picture.Graphic);

ART, позволь уточнить: если на примере: есть рисунок 1.bmp(ipj, gif..), есть Canvas, как заполнить Canvas этим рисунком?

[ART]

Если есть некий файл 1.bmp, то загружаешь в image свой 1.bmp.

image.picture.loadformfile('c:\1.bmp');

Потом, если есть canvas, то

Canvas.Draw(x,y, image.picture.graphic); //рисуем на канве твой 1.bmp

а вот с gif и jpg спроси у более умных людей

[Decoding]

Если .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;

[4kusNick]

А загрузить JPG изображение можно при помощи TJPEGImage (модуль jpeg)...

[UMmi]

Сообщение от Decoding

Если .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;

Класс! А если заполнять не саму форму, а PaintBox, что надо изменить?

[Decoding]

Код:

procedure TForm1.PaintBox1Paint(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 );
   PaintBox1.Canvas.Draw( 0, 0, bm2 );
   bm2.Free;
   bm1.Free;
end;