Смешать два изображенияDelphi , Графика и Игры , ИзображенияСмешать два изображения
Автор: Вадим Исаенко Модуль MyGraph.pas включает в себя только одну процедуру, позволяющую смешать 2 изображения. Такая функция может быть полезна для получения различных эффектов, а также для нанесения на изображение "водяных знаков". unit MyGraph; interface uses Graphics; procedure MixBMP(BM1, BM2: TBitMap; var BM: TBitMap); implementation procedure MixBMP(BM1, BM2: TBitMap; var BM: TBitMap); var I, J: Integer; MinW, MinH: Integer; begin BM := TBitMap.Create; if BM1.Width < BM2.Width then MinW := BM1.Width else MinW := BM2.Width; if BM1.Height < BM2.Height then MinH := BM1.Height else MinH := BM2.Height; BM.Width := MinW; BM.Height := MinH; for I := 0 to MinW do for J := 0 to MinH do if (Odd(I) and Odd(J)) or ((not (Odd(I))) and (not (Odd(J)))) then BM.Canvas.Pixels[I, J] := BM1.Canvas.Pixels[I, J] else BM.Canvas.Pixels[I, J] := BM2.Canvas.Pixels[I, J]; end; begin end. Статья Смешать два изображения раздела Графика и Игры Изображения может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Изображения ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |