Перемещение иконок между несколькими TImageLists

Delphi , Компоненты и Классы , TImage и TImageList

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   ico: TIcon;
 begin
   ico := TIcon.Create;
   try
     Imagelist1.GetIcon(0, ico); // Get first icon from Imagelist1 
    Imagelist2.AddIcon(ico); // Add the icon to Imagelist2 
  finally
     ico.Free;
   end;
 end;

Программный код, который вы опубликовали, - это процедура, которая перемещает иконку из "Imagelist1" в "Imagelist2". Это делается созданием нового объекта "TIcon", получением первой иконки из "Imagelist1" и добавлением этой иконки в "Imagelist2".

Вот шаг за шагом, что код делает:

1. Создает новый объект "TIcon" (ico) с помощью метода "Create".
2. Пытается получить первую иконку из "Imagelist1" с помощью метода "GetIcon(0, ico)". Метод "GetIcon" возвращает иконку из списка изображений и хранит ее в переменной ico.
3. Добавляет иконку, хранящуюся в ico, в "Imagelist2" с помощью метода "AddIcon".
4. Наконец, освобождает память, выделенную для ico, с помощью метода "Free".

Этот код должен быть размещен внутри обработчика события "OnClick" кнопки (в этом случае, Button1Click), чтобы он выполнялся при клике по кнопке.

Вот альтернативное решение:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Imagelist2.AddIcon(Imagelist1.GetIcon(0));
end;

В этом варианте мы используем метод "GetIcon" для получения первой иконки из "Imagelist1", а затем напрямую добавляем ее в "Imagelist2". Мы не нуждаемся в временном объекте "TIcon" (ico) больше. Это код короче и более эффективен, чем оригинальный.

Процедура TForm1.Button1Click(Sender: TObject) перемещает иконку из одного списка иконок (Imagelist1) в другой (Imagelist2).

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TImage и TImageList ::