Einzelnen Beitrag anzeigen

DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#3

AW: Wie verwendet man die neue TVirtualImageList

  Alt 24. Nov 2018, 14:47
Ich benutze aktuell deine PngImageList mit mehreren Helpern. So gesehen benutze ich 5 PngImageLists mit 5 verschiedenen Icongrößen.
Über eine eigene Prozedur lasse ich mir dann das Icon zurückgeben was ich brauche. Was gebraucht wird, übergebe ich in den Parametern.

Delphi-Quellcode:
procedure ... LoadIcon(const AName: string; IconSize: TIconSize; Icon: TIcon);
begin
 case IconSize of
  is16:
   Icons16.LoadImageByName(AName, Icon);
  is32:
   Icons32.LoadImageByName(AName, Icon);
  is48:
   Icons48.LoadImageByName(AName, Icon);
  is64:
   Icons64.LoadImageByName(AName, Icon);
  is128:
   Icons128.LoadImageByName(AName, Icon);
 end;
end;
HighDPI wird auch die nächsten Jahre an mir vorbei gehen. Danke für deine Erklärung. Habe demnach keinen Gebrauch für diese neue Komponente.
  Mit Zitat antworten Zitat