Da ja keine Delphi-Verison angeeben wurde ....
Delphi kann inzwischen auch endlich Insert/Delete für dynamische Arrays (k.A. warum das so viele Jahre gedauert hat)
und es hat eine nette statische Klasse TArray in System.Generics.Collections .
D2010.. Ja muss das in mein Profil wieder addieren.
Sorry!
Ok denke mal dann ist das so in Ordnung mehr als 200 Icons(Verknüpfungen liegen eh nicht auf dem Desktop)
Und es ist auch nur eine Sicherheitsmaßnahme damit ich kein leeres Icon auf der Bar zu sehen bekomme.
Delphi-Quellcode:
// Prüfen ob wir einige der Verknüpfungen deaktivieren (verstecken) müssen.
for K := High(gs)
downto ID_FIRST
do //ID_FIRST = 6 erster Icon Eintrag im Array 0 > 6 reserviert für die Grafische Oberfläche
begin
if gS[K].h_Bitmap = 0
then
begin
Delete(gs, K);
dec(Count);
if gp.RecycleBin = K
then
gp.RecycleBin := 0;
end;
//Das RecycleBin-Array entsprechend ändern
if gp.RecycleBin > Count
then
gp.RecycleBin := Count;
end;
gruss