TImageList-Alternative? Resource-Datei? Performance?

[Glados]

Es sind maximal 10 die sich ändern... dafür aber gegebenenfalls oft.

Zitat:

Einfach beim Programmstart komplett zur ImageList hinzufügen und dann über den Index bestimmen, welches Icon an welcher Stelle auftaucht.

Das mit dem Index will ich ja unbedingt wegbekommen

(Resource schneller)

Zitat:

Definitiv nicht - maximal gleich schnell. Rate mal, wo TImageList seine Icons abspeichert?

Wenn das so ist und die TImageList eh nichts anderes macht, dann kann ich mir ja auch eine Funktion schreiben der ich den Namen der Resource übergebe, welche ich zurückerhalten möchte.
Dann bin ich die IDs los und kann frei laden und sortieren. Um doppelten Code zu vermeiden, würde ich alle Resource-Namen in ein Enum speichern.

[Uwe Raabe]

Wenn es sich ausschließlich um PNG Icons handelt, könntest du mit der PngImageList aus den PngComponents eventuell weiterkommen: Dort hat jeder Eintrag einen Namen.

Ich benutze diese Namen auch um den aktuell gültigen gültigen ImageIndex zu ermitteln und habe mir dazu einen kleinen Class-Helper geschrieben:

Delphi-Quellcode:

type
  TPngImageListHelper = class helper for TPngImageList
  public
    function FindImageIndexByName(const AName: string): Integer;
  end;

function TPngImageListHelper.FindImageIndexByName(const AName: string): Integer;
var
  itm: TCollectionItem;
begin
  Result := -1;
  for itm in PngImages do begin
    if SameText(itm.DisplayName, AName) then begin
      Result := itm.Index;
      Break;
    end;
  end;
end;

[Glados]

PNGs sind es nicht, aber ICOs. Muss sie dann halt alle umwandeln.
Ich werde mir das mal angucken. Wenn ich das richtig verstehe, bist du der Urheber dieser Komponente?

Stellt sich mir nur noch die Frage... PNGComponents oder simple Resourcedatei.

[Zacherl]

Zitat von Glados:

Es sind maximal 10 die sich ändern... dafür aber gegebenenfalls oft.

Zitat:

Einfach beim Programmstart komplett zur ImageList hinzufügen und dann über den Index bestimmen, welches Icon an welcher Stelle auftaucht.

Das mit dem Index will ich ja unbedingt wegbekommen

Schon klar, aber wenn du die ImageList beim Start der Anwendung mit Icons aus Resourcen füllst, kannst du ja jedem Icon beispielsweise den Resourcennamen zuweisen (bzw. dir in einer StringList mit identischen Indizes merken). Über einen einfachen Lookup in der StringListe findest du nun den ImageIndex des gewünschten Icons heraus.

Auf gar keinen Fall würde ich die Icons komplett dynamisch immer wieder neu laden und freigeben.

[nahpets]

Wie wäre es denn mit 'nem Nachfahren von TImageList?

Ein zusätzliches Attribut Names vom Typ TStrings, in das die Namen der Bilder kommen, in der Reihenfolge, in der sie in der Imageliste stecken.

Dann noch 'ne Methode GetImageIndexByName (oder so), die per IndexOf in den Strings nach dem Namen sucht und, durch die identische Sortierung, dann den passenden ImageIndex liefert.

Für die Methoden Add, Insert ... der ImageList könnte man Versionen schreiben, die zusätzlich auch noch den Namen als Parameter annehmen und in den Strings speichern.

Sowas in der Art?

Delphi-Quellcode:

Type
  TMyImageList = class(TImageList)
    fNames : TStrings;
  public
    { Public-Deklarationen }
    constructor Create(aOwner : TComponent);      override;
    destructor  Destroy;                          override;
    property Names : TStrings read fNames;
  end;
  
constructor tMyImageList.Create(aOwner : TComponent);
begin
  inherited;
  fNames := TStringList.Create;
end;

destructor  tMyImageList.Destroy;
begin
  fNames.Free;
  inherited;
end;

function tMyImageList.GetImageIndexByName(AName : String) : Integer;
begin
  Result := fNames.IndexOf(AName);
end;

end.

...
IrgendeineKomponenteMit.ImageIndex := ImageList.GetImageIndexByName('NameDesBildes');

Wenn man nicht den ImageIndex haben will, sondern direkt das Bild, dann schreibt man sich noch 'ne Methode GetImageByName, die analog zum ImageIndex halt das Bild liefert.

Der Aufwand dürfte insgesamt garnichtmal so hoch sein.

[Zacherl]

An genau sowas dachte ich Wenn man dann noch den Designtime Editor überschreibt, kann man die Namen sogar direkt dort einpflegen und müsste nicht manuell mit Resourcen hantieren.

[Rollo62]

Zitat:

über die ID, die sich ändern kann,

Deshalb benutze ich dafür immer globale Ressourcen und Consts.

Delphi-Quellcode:

const 
  CIco_Hund   = 37;
  CIco_Katze  = 38;
  CIco_Maus   = 39;

Das ist für DI Experten vielleicht etwas anrüchig, erspart mir aber "Icon-Katastrophen" wenn sich mal wieder was ändert.

Das erleichtert natürlich nicht das Zuweisen im Designer, deshalb mache ich das auch lieber im Code.
Im Designer lege ich das dann eher nur als "Vorschau" an.

Rollo

[Uwe Raabe]

Zitat von Glados:

Wenn ich das richtig verstehe, bist du der Urheber dieser Komponente?

Nicht direkt - ich habe die quasi auch nur geerbt.

[Glados]

Zitat:

Wie wäre es denn mit 'nem Nachfahren von TImageList?

Klingt gut.

Zitat:

Auf gar keinen Fall würde ich die Icons komplett dynamisch immer wieder neu laden und freigeben.

Stimmt auch wieder. Kann nämlich bei´mir schon öfter passieren, dass was geladen werden muss.

Jetzt muss ich mich nur noch entscheiden zwischen PNGComponents oder TMyImageList.
Bei Ersterem könnte ich sofort den Design Time Editor verwenden, müsste aber alle meine ICOs in PNGs umwandeln.

Ich glaube aber sogar fast, das PNGs irgendwie gängiger sind als ICOs.

[Uwe Raabe]

Zitat von Glados:

müsste aber alle meine ICOs in PNGs umwandeln.

Falls du nicht schon bereits ein passendes Tool dazu hast: In PngComponents gibt es eine Methode ConvertToPNG die das unterstützt.