Масштабирование и рисование маленьких икон из `TImageList` на Delphi холсте

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

Масштабирование и рисование маленьких икон из TImageList на Delphi холсте

Вопрос, поставленный в теме, заключается в том, как нарисовать увеличенную версию изображений из системного TImageList, с использованием языка программирования Object Pascal в среде разработки Delphi. В частности, требуется извлечь маленькие значки размером 16x16 пикселей и нарисовать их на холсте компонента, увеличив размер до 50x50 пикселей.

Шаг 1: Инициализация TImageList

Для начала необходимо создать и инициализировать TImageList, который будет использоваться для отображения системных значков:

ImageList := TImageList.Create(Self);
ImageList.ShareImages := True;

Шаг 2: Получение системного TImageList для маленьких значков

Далее, с помощью функции SHGetFileInfo, получаем системный TImageList для маленьких значков:

ImageList.Handle := SHGetFileInfo('', 0, FileInfo, SizeOf(FileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

Шаг 3: Масштабирование и рисование значков

Для масштабирования значков необходимо сначала извлечь изображение в TBitmap, а затем использовать метод Draw этого TBitmap, чтобы нарисовать его на холсте с указанием желаемого прямоугольника. Это позволит масштабировать изображение для заполнения указанного прямоугольника:

procedure DrawScaledIcon(Canvas: TCanvas; ImageList: TImageList; Index: Integer; Scale: TSize);
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Handle := ImageList.GetBitmap(Index).Handle;
    Canvas.StretchDraw(Rect(0, 0, Scale.cx, Scale.cy), Bitmap);
  finally
    Bitmap.Free;
  end;
end;

Шаг 4: Применение масштабирования на холсте

При рисовании значков на холсте, учитывайте, что масштабирование вверх может ухудшить качество изображения. Лучше начать с большего размера изображения и масштабировать его вниз, чем наоборот. Если вы хотите использовать метод DrawIconEx, он также может масштабировать значок, но результат может быть не идеальным. Для более сложного масштабирования с учетом трансформации холста, можно использовать функцию SetWorldTransform.

Шаг 5: Получение более крупных изображений

Если требуется избежать масштабирования маленьких значков, можно получить более крупные изображения из системного TImageList, используя флаг SHGFI_ICON вместо SHGFI_SMALLICON. Размеры значков можно получить с помощью GetSystemMetrics(SM_CXICON) и GetSystemMetrics(SM_CYICON).

Шаг 6: Пример кода для масштабирования

procedure SetCanvasZoomAndRotation(Canvas: TCanvas; Zoom: Double; Angle: Double; CenterpointX, CenterpointY: Double);
begin
  // Код для установки масштаба и вращения холста
end;

procedure ResetCanvas(Canvas: TCanvas);
begin
  // Код для сброса масштаба и вращения холста
end;

procedure TDemoForm.Button1Click(Sender: TObject);
var
  FileInfo: _SHFILEINFO;
  Icon: TIcon;
  ImageList: TImageList;
  I, x, y: Integer;
  Zoom: Double;
begin
  // Инициализация и получение системного `TImageList`
  // ...
  // Масштабирование и рисование значков на холсте
  // ...
end;

Заключение

Масштабирование маленьких значков может быть непростой задачей, но с правильным подходом и использованием доступных функций, можно добиться желаемого результата. Важно помнить, что масштабирование вверх может ухудшить качество изображения, поэтому лучше начать с большего размера и масштабировать вниз. Используйте предоставленные примеры кода для начала работы с масштабированием значков в ваших проектах на Delphi.

Создано по материалам из источника по ссылке.

Тема: Масштабирование и рисование маленьких икон из `TImageList` на Delphi холсте.

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

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

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