Massive Performanceprobleme mit TJvImageComboBox

[TurboMagic]

Zitat von Pawel Piotrowski:

Dem kann ich mich nur anschließen. Vergiss die TJvImageCombobox.
Das Hinzufügen der Items ist langsam, weil, unter anderen, dabei die TJvImageCombobox mehrere IndexOf aufrufe macht...

kommentiere mal das setzen des Textes aus - füge also leere Items hinzu. Du wirst sehen, der Code wird ca. 2x schneller

wenn Du dir die procedure TJvImageItem.SetText anschaust
findest Du z.B. so was am ende:

Index := S.IndexOfObject(Self);

So etwas wird in dieser Klasse leider in mehreren Stellen vorgenommen.
Und das ist nicht das einzige Bottleneck...
Die TJvImageCombobox eignet sich nur, wenn Du weniger als ~20 items hast.

Ok, es muss am Ende der Index ermittelt werden, was wohl verhältnismäßig viel Zeit
schluckt. Gäbe es eine andere Möglichkeit den zu ermitteln?

Zum Beispiel, in dem man diesen im Ablauf weiter oben je nach Fall entsprechend zuweist?

Zum Beispiel so?

Delphi-Quellcode:

procedure TJvImageItem.SetText(const Value: string);
var
  S: TStrings;
  SavedOwner: TJvImageItems;
begin
  S := GetOwnerStrings;
  if Assigned(FOwner) and (FOwner.FStrings.Count <> FOwner.Count) then
    FOwner.FillItems;
  if S <> nil then
  begin
    if S[Index] <> Value then
    begin
      // do not add the item in FillItems which might be called by the draw message handler while deleting the string
      SavedOwner := FOwner;
      try
        FOwner := nil;
        S.Delete(Index);
        if (SavedOwner.GetOwner is TJvImageListBox) and (TJvImageListBox(SavedOwner.GetOwner).Sorted) then
          Index := S.AddObject(Value, Self)
        else
          S.InsertObject(Index, Value, Self);
      finally
        FOwner := SavedOwner;
      end;
//      Index := S.IndexOfObject(Self);
      Change;
    end;
  end;
end;