Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB35AddImages.shtml

Глава 35. TCustomImageList.AddImages

Метод AddImages

Затрагиваемые объекты TCustomImageList, TImageList
Назначение Данный метод используется для копирования содержимого одного списка образов в конец другого списка образов. Результирующий список образов автоматически будет увеличиваться так, как это требуется для хранения дополнительных образов, запомненных в исходном списке.
Объявление procedure AddImages(Value: TCustomlmageList);
Пример синтаксиса
procedure TForm1.Button1Click(Sender: TObject);
var
   theBits:TBitmap;
   theMask:TBitmap;

begin
   theBits := TBitmap.Create;
   theMask := TBitmap.Create;
   theBits.Height := 32;
   theBits.Width  := 32;
   theMask.Height := 32;
   theMask.Width  := 32;
   theMask.LoadFromFile('с:\temp\MASK.BMP');
   theBits.LoadFromFile('с:\temp\SPINl.BMP');
   ImageList1.Add(theBits,theMask);
   theBits.LoadFromFile('с:\temp\SPIN2.BMP');
   ImageList1.Add(theBits,theMask);
   theBits.LoadFromFile('с:\temp\SPIN3.BMP');
   ImageList1.Add(theBits,theMask);
   theBits.LoadFromFile('с:\temp\SPIN4.BMP');
   ImageList1.Add(theBits,theMask);
   ImageList2.Clear;
// Следующая  строка иллюстрирует применение метода AddImages
   ImageList2.Addlmages(ImageListl);
   ImageList2.Draw(Forml.Canvas,0,200,0);
   ImageList2.Draw(Forml.Canvas,64,200,1);
   ImageList2.Draw(Forml.Canvas,128,200,2);
   ImageList2.Draw(Forml.Canvas,192,200,3);
   theMask.Destroy;
   theBits.Destroy;

end;
Описание        Приведенный пример иллюстрирует применение метода Addlmages путем загрузки множества образов и соответствующих масок с диска и затем использования метода Addlmages для добавления образов из ImageList1 в ImageList2. После того, как четыре образа были перемещены в компонент второго списка образов, только что скопированные образы визуализируются на холсте Form1. Для визуализации используется метод Draw, который помещает картинки в нижний ряд, начиная с левой стороны формы. В конце программы объекты mask и bitmap разрушаются.

[Метод Add] [Метод AddIcon] [Метод AddImages] [Метод AddMasked] [Свойство AllocBy] [Метод Assign] [Метод BeginDrag] [Свойство BkColor] [Свойство BlendColor] [Метод Clear] [Свойство Count] [Метод Create] [Метод CreateSize] [Метод Delete] [Метод Destroy] [Свойство DragCursor] [Свойство Dragging] [Метод DragLock] [Метод DragMove] [Метод DragUnlock] [Метод Draw] [Свойство DrawingStyle] [Метод DrawOverlay] [Метод EndDrag] [Метод FileLoad] [Метод GetBitmap] [Метод GetHotSpot] [Метод GetIcon] [Метод GetImageBitmap] [Метод GetInstRes] [Метод GetMaskBitmap] [Метод GetResource] [Свойство Handle] [Метод HandleAllocated] [Свойство Height] [Метод HideDragImage] [Свойство ImageType] [Метод Insert] [Метод InsertIcon] [Метод InsertMasked] [Свойство Masked] [Метод Move] [Событие OnChange] [Метод Overlay] [Метод RegisterChanges] [Метод Replace] [Метод ReplaceIcon] [Метод ReplaceMasked] [Метод ResInstLoad] [Метод ResourceLoad] [Метод SetDragImage] [Свойство ShareImages] [Метод ShowDragImage] [Метод UnRegisterChanges] [Свойство Width]


<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:55 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB35AddImages.shtml