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;