[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, то попробуй так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

<b>procedure</b> TForm1.FormPaint(Sender: TObject); <b>var</b>   bm1, bm2: TBitmap; <b>begin</b>    bm1 := TBitmap.Create;    bm1.LoadFromFile( <font color="royalblue">'c:\WINDOWS\Пузыри.bmp'</font> );    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 );    <i><font color="royalblue">// или так - BitBlt( Canvas.Handle, 0, 0, bm2.Width, bm2.Height, bm2.Canvas.Handle, 0, 0, SRCCOPY );</font></i>    bm2.Free;    bm1.Free; <b>end</b>;

[4kusNick]

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

[UMmi]

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

Если .bmp, то попробуй так:

Код:

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

[Decoding]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

<b> procedure</b> TForm1.PaintBox1Paint(Sender: TObject); <b>var</b>   bm1, bm2: TBitmap; <b>begin</b>    bm1 := TBitmap.Create;    bm1.LoadFromFile( <font color="RoyalBlue">'c:\WINDOWS\Пузыри.bmp'</font> );    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; <b>end</b>;