Updated: 29.11.2016
Rus

TsAlphaImageList

Компонент является аналогом стандартного компонента TImageList, но имеется несколько значительных отличий:

  • Возможно изменение свойств Height и Width в run-time, без пропадания иконок.
  • Возможно использование как хранилища изображений разных размеров.
  • Возможна загрузка изображений только в формате Ico и Png 32bpp.
  • Изображения хранятся в исполняемом файле в оригинальном (сжатом) виде.
  • Поддержка свойства NumGlyphs кнопок.

Методы компонента

procedure AcBeginUpdate;
Блокирует вывод изображений, используется обычно на время изменения компонента.

procedure AcEndUpdate(DoChange : boolean = True);
Разрешает вывод изображений, используется для разблокирования компонента после применения процедуры AcBeginUpdate. Если DoChange = True, то рассылается команда перерисовки всем компонентам, связанным с AlphaImageList.

function GetBitmap32(Index: Integer; Image: TBitmap): Boolean;
Возвращает в Image иконку с индексом "Index", конверируя её в Bitmap 32bpp. Если функция выполнена успешно, то возвращается True.

function CreateBitmap32(Index: Integer; aWidth, aHeight : integer): TBitmap;
Создаёт Bitmap 32bpp с заданными размерами, на основе иконки с индексом "Index". Если функция выполнена успешна, то возвращаемый результат не равен Nil.

procedure MoveItem(CurIndex, NewIndex : integer);
Изменяет положение изображения в списке.

TsVirtualImageList

Компонент позволяет выдавать на выходе изображения заданного размера, используя компонент TsAlphaImageList как источник. Сам компонент TsVirtualImageList не хранит изображений, а берёт их из компонента, заданного в свойстве AlphaImageList.

Пример использования компонента TsVirtualImageList в связке с TsAlphaImageList можно скачать здесь (3.7 Mb).

Методы компонента

procedure AcBeginUpdate;
Блокирует вывод изображений, используется обычно на время изменения компонента.

procedure AcEndUpdate(DoChange : boolean = True);
Разрешает вывод изображений, используется для разблокирования компонента после применения процедуры AcBeginUpdate. Если DoChange = True, то рассылается команда перерисовки всем компонентам, связанным с AlphaImageList.

function GetBitmap32(Index: Integer; Image: TBitmap): Boolean;
Возвращает в Image иконку с индексом "Index", конверируя её в Bitmap 32bpp. Если функция выполнена успешно, то возвращается True.

Процедуры и функции модуля

function DrawAlphaImgList(const ImgList : TCustomImageList; const DestBmp : TBitmap; const Left : integer; const Top : integer; const ImageIndex : integer; const Blend : integer; const GrayedColor : TColor; State : integer; const NumGlyphs : integer; const Reflected : boolean) : TSize;

Рисует изображение из ImgList, заданное номером ImageIndex, на DestBmp в формате Bitmap 32bpp. Вывод изображения может производиться с несколькими эффектами, такими как полупрозрачность, зеркальное отражение и др. Возвращаемым результатом функции является размер выводимого рисунка.

  • Параметры Left и Top указывают координаты верхнего левого угла, куда следует выводить изображение.
  • State указывает номер состояния, для которого рисуется иконка. Такие эффекты как полупрозрачность и заданный оттенок могут рисоваться только при State = 0.
  • NumGlyphs задаёт количество состояний в одном изображении. Свойство работает так же как одноимённое свойство в компоненте TBitBtn.
  • Blend задаёт степень прозрачности иконки (0..100). Если свойство = 0 или если State <> 0, то изображение выводится как есть, без прозрачности. На примере изображены иконки при Blend = 0 и 50.
  • GrayedColor задаёт оттенок цвета, в котором будет рисоваться иконка. Если цвет равен clNone или State <> 0, то изображение выводится как есть. Чем светлее цвет, задаваемый этим параметром, тем чётче будет выглядеть иконка. Ниже находятся примеры иконок при clNone и $BEA76D.
  • Reflected включает зеркальное отражение иконки. На примере изображены иконки при выключенном и включенном параметре Reflected.


procedure DrawAlphaImgListDC(const ImgList : TCustomImageList; const DC : hdc; const Left : integer; const Top : integer; const ImageIndex : integer; const Blend : integer; const GrayedColor : TColor; const State : integer; const NumGlyphs : integer; const Reflected : boolean);

Полный аналог предыдущей процедуры, отличие только в том, что рисунок выводится не на Bitmap, а на DeviceContext (DC : hdc).


function AddImageFromRes(aInstance: LongWord; ImageList : TsAlphaimageList; const ResName: String; ImageFormat : TsImageFormat): Boolean;

Загружает иконку Png в ImageList из ресурса, заданного с помощью ResName : String. Ресурс Png должен быть скомпилирован как RcData.