Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Смешать два изображения

Автор: Вадим Исаенко
WEB-сайт: http://v-isa.narod.ru

Модуль 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 World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.