|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
перенести точки в другой TImage
нужно попиксельно перенести из одного Timage в другой. делаю вот так:
Код:
procedure TForm1.Button2Click(Sender: TObject); var i,k:Integer; begin Image2.Picture.LoadFromFile('c:\wget\convert\38985\21553.png'); for i:=0 to 100 do for k:=0 to 100 do Image1.Canvas.Pixels[i,k]:=Image2.Canvas.Pixels[i,k]; end; что делать? |
#2
|
||||
|
||||
так ведь в файле справки написано:
Цитата:
нужно картинку перегнать в bitmap. Пишу программы за еду. __________________ |
#3
|
|||
|
|||
справку я читал, но не знаю как перегнать в bitmap
|
#4
|
||||
|
||||
вариантов много. один из них создать TBitmap и на его Canvas отрисовать этот Image:
Код:
Bitmap: TBitmap; Bitmap.Canvas.Draw(0, 0, Image1.Picture.Graphic); Пишу программы за еду. __________________ |
#5
|
||||
|
||||
Цитата:
Код:
Image1.Canvas.Draw(0,0,Image2.Picture.Graphic); |