Оформил: DeeCo

Автор: Юрий

Несколько слов о сути моего материала. Прежде всего, он предназначена для программистов Delphi, работающих с графикой. Представленные компоненты имеют такие возможности, как:

1. работа с прозрачностью
2. быстрая и гибкая замена необходимых цветов
3. улучшенный компонент TDrawGrid
4. работа с массивами картинок (в т.ч. быстрое восстановление картинки, после того как она была изменена, быстрое сохранение и загрузка картинок, различные процедуры для их обработки (поддерживаются два формата: bmp и jpg)
5. некоторые полезные дополнения, например такие как движущийся текст на неоднородном фоне - полезно для таких случаев, как создание диалогового окна About

А теперь рассмотрим вышеперечисленные пункты немного подробнее. Но для начала, несколько слов о принципах работы этих компонентов. Прежде всего они построены на основе массива объектов типа TBitmap. В 32 битных изображениях цвет кодируется 3 байтами - по одному на синий, зеленый и голубой, плюс добавляется один байт на альфа канал. В этот альфа канал записывается информация о том, следует ли при вставке одной картинки в другую использовать соответствующий пиксель (или игнорировать его). То есть по идее он может принимать два значения: 0 и 1. В этих компонентах использован несколько иной принцип использования альфа канала. Туда записывается число, которое представляет собой коэффициент, используемый при расчете двух пикселей двух различных картинок. То есть, если, скажем альфа канал равен 127, то результирующий пиксель будет являться средним арифметическим двух других пикселей. Значение альфа канала, равное 0 соответствует полной непрозрачности, а равное равное 255 - полной прозрачности вставляемой картинки. Процедура SetAlphaChannel устанавливает заданное значение альфа канала для всех пикселей картинки.

Также в компонент TGraph добавлено несколько функция для замены цветов. Все эти процедуры работают только с 24 битными рисунками.

1. procedure ChangeColor(ChangeColorProc: TChangeColorProc;
     Bitmap: TBitmap;
     Color: TColor);
   TChangeColorProc = procedure(var R, G, B: Byte);

   Наверное, самая простая процедура. Процедура TChangeColorProc вызывается каждый раз при замене очередного пикселя.

2. procedure ChangeColorEx(Bitmap: TBitmap;
     OldColor, NewColor: TColor;
     ChangingType: TChangingType);

   Замена цветом NewColor происходит, когда значение заменяемого пикселя оказывается между значениями OldColor и NewColor если ChangingType = ctEqual, если ChangingType = ctNotEqual, то замена цвета происходит когда значение заменяемого пикселя оказывается вне этого диапазона. Во всех последующих процедурах этот параметр имеет тот же самый смысл, поэтому я не буду описывать его действие.

3. procedure ChangeColorRange(Bitmap: TBitmap; IntensityRecLo,
     IntensityRecHi, NewIntensityRec: TIntensityRec;
     ChangingType: TChangingType);
   TIntensityType = (itRed, itGreen, itBlue);
   TIntensityRec = array[TIntensityType] of Byte;

   Как видно выше, тип TIntensityRec представляет из себя не что иное, как 24 битный пиксель. Действие этой процедуры аналогично процедуре ChangeColorEx, за исключением того, что эта немного более гибкая, что ли.

4. procedure ChangeColorRange(Bitmap: TBitmap;
     IntensityType: TIntensityType;
     IntensityLo, IntensityHi: Byte;
     NewIntensityRec: TIntensityRec;
     ChangingType: TChangingType);

   Самая быстрая процедура этого типа. Производит замену пикселя по одной из его составляющий: синему, зеленому или красному цвету. Соответственно IntensityLo и IntensityHi это диапазон одного из составляющих цвета пикселей, по границам которого производится замена пикселем NewIntensityRec.

Вот, собственно все процедуры созданные для замены цвета. Вместе они представляют из себя довольно гибкое средство для работы с графикой. Еще одно достоинство - они работают достаточно быстро. Это касается также и других процедур, например на компьютере Pentium Celeron 400 расчет прозрачности двух картинок (обе были (конечно же) 32 битные, размером 1024 на 768) занимал на более 500 миллисекунд.

Следующее, что мы рассмотрим, это компонент TGraphGrid, созданный на основе компонента TDrawGrid. Этот компонент способен отображать картинки с текстом. Чтобы картинки отображались в компоненте в порядке из загрузки, следует установить свойство DefaultOrder в True. Вообще, это не лучший способ для отображения картинки. В компоненте TDrawGrid есть свойство:

RefArray: TIntArrayTIntArray = array of Integer;

property Reference[Col, Row: Integer]: TGridCoord;
TGridCoord = record
  Col, Row: Integer;
end;

function GridCoord(Col, Row: Integer): TGridCoord;

TDrawPictureEvent = procedure(Sender: TObject; Rect: TRect;
  Index, Col, Row: Integer;
  var X, Y: Integer; Picture: TBitmap;
  var Background: TBitmap;
  var Continue: Boolean) of object;

И, наконец, последний пункт - дополнение в виде движущегося текста. В компоненте TGraph также еще есть одна функция Appearance, но о ней я пока рассказывать не буду.

procedure TGraph.AnimatedText(Canvas: TCanvas;
  Application: TApplication;
  Source: TBitmap;
  List: TStrings;
  Alignment: TAlignment;
  X, Y, Decrement: Integer;
  Delay: LongWord);

Заключение

Если Вам удалось прочитать всю это до конца, то я уверен, Вы сможете найти практическое применение для моих компонентов, а скачать их можно здесь — Graph.zip (11 K)