На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Вывод изображения по маске , используется MackBlt
      ExpandedWrap disabled
        procedure TForm1.Button1Click(Sender: TObject);
        var
          BitmapSrc, BitmapMask: TBitmap;
        begin
          BitmapSrc := TBitmap.Create;
          try
            BitmapMask := TBitmap.Create;
            try
              BitmapSrc.LoadFromFile('c:\src.bmp');
              BitmapMask.LoadFromFile('c:\mask.bmp');
              MaskBlt(Canvas.Handle, 0, 0, BitmapSrc.Width, BitmapSrc.Height,
                BitmapSrc.Canvas.Handle, 0, 0, BitmapMask.Handle, 0, 0, MakeROP4(PATCOPY xor PATINVERT, SRCCOPY));
            finally
              BitmapMask.Free;
            end;
          finally
            BitmapSrc.Free;
          end;
        end;


      Автор: Rouse_
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0191 ]   [ 16 queries used ]   [ Generated: 28.03.24, 15:29 GMT ]