![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Подскажите, кто знаеТ, как?
|
#2
|
|||
|
|||
![]() //Можно так:
form1.Canvas.Draw(0,0,image1.Picture.Graphic); |
#3
|
|||
|
|||
![]() Цитата:
|
#4
|
|||
|
|||
![]() Цитата:
|
#5
|
|||
|
|||
![]() Если есть некий файл 1.bmp, то загружаешь в image свой 1.bmp.
image.picture.loadformfile('c:\1.bmp'); Потом, если есть canvas, то Canvas.Draw(x,y, image.picture.graphic); //рисуем на канве твой 1.bmp а вот с gif и jpg спроси у более умных людей |
#6
|
||||
|
||||
![]() Если .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; |
#7
|
||||
|
||||
![]() А загрузить JPG изображение можно при помощи TJPEGImage (модуль jpeg)...
THE CRACKER IS OUT THERE |
#8
|
|||
|
|||
![]() Цитата:
Класс! ![]() Последний раз редактировалось UMmi, 19.11.2006 в 01:12. |
#9
|
||||
|
||||
![]() Код:
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; |