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

Глава 35. TCustomImageList.Insert

Метод Insert

Затрагиваемые объекты TCustomImageList, TImageList
Назначение        Метод применяется для вставки нового образа и маски в позицию списка, указанную параметром. Если указанная позиция уже занята другим образом, он будет продвинут вниз на одну позицию, а вместе с ним и все остальные образы, следующие за точкой вставки.
Объявление procedure Insert(Index: Integer; Image, Mask: TBitmap);
Пример синтаксиса
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('MASK.BMP');
   theBits.LoadFromFile('SPINl.BMP');
   ImageList1.Add(theBits, theMask);
   theBits.LoadFromFile('SPIN2.BMP');
   ImageList1.Add(theBits, theMask);
   theBits.LoadFromFile('SPIN3.BMP');
   ImageList1.Add(theBits,theMask);
   ImageList2.Clear;
{   Следующая  строка иллюстрирует использование метода Assign}
   ImageList2.Assign(ImageList1);
   theBits.LoadFromFile('SPIN4.BMP');
   ImageList1.Insert(2,theBits,theMask);
   ImageList2.Draw(Form1.Canvas,0,200,0);
   ImageList2.Draw(Form1.Canvas,64,200,1);
   ImageList2.Draw(Form1.Canvas,128,200,2);
   ImageList2.Draw(Form1.Canvas,192,200,3);
   theMask.Destroy;
   theBits.Destroy;

end;
Описание        Пример демонстрирует применение метода Isnert для размещения образа и маски в указанной позиции списка образов. Вначале с диска загружается несколько образов. Затем данный список образов присваивается другому списку и перед тем, как образы будут нарисованы, еще один образ добавляется в позицию 2 второго списка.

[Метод 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/SB35Insert.shtml