Komponenten in der IDE zählen (ComponentReg) [gelöst]

[hemmen]

Moin,
ich habe folgendes herausgefunden:

• 1.Alle Komponenten der IDE zählen:
  ComponentReg.IDEComponentPalette.Comps.Count
  Ergebnis: 341

1. 2.Alle Komponentenpaletten der IDE zählen:
   ComponentReg.IDEComponentPalette.Pages.Count
   Ergebnis: 15

ich suche:
Wieviele Komponenten sind in einer Palette?
ComponentReg.IDEComponentPalette. .



Hintergrund:
ich habe auf Lazarus 1.4.0 geupdated. Nun möchte ich kzDesktop benutzen... (aufgeräumte Ide und Suchfunktion einer Komponente)
Count (hier Zeile 5 - aus kzlazdesktop.pas Zeilen: 1525-1550) möchte ich umschreiben/ersetzen:

Code: Alles auswählen

 for iP := 0 to ComponentReg.IDEComponentPalette.Count - 1 do
  begin
    with ComponentReg.IDEComponentPalette.Pages[iP] do
    begin
      for iC := 0 to Count - 1 do
      begin
        if
          Pos(LowerCase(edFindComponent.Text),
          LowerCase( Items[iC].ComponentClass.ClassName )) <> 0
        then
        begin
 
          if (Items[iC].Button <> Nil) then
          begin
 
            Self.TabComponentSearch.NewButton.Prepare(Items[iC]);
 
          end;
 
        end;
 
      end;
 
    end;
 
  end;

Kann mir jemand helfen?

[marcov]

Vielleicht etwas wie ComponentReg.IDEComponentPalette.Pages[n].count mit n 0.. ComponentReg.IDEComponentPalette.Pages.Count-1 ?

[hemmen]

@marcov : ComponentReg.IDEComponentPalette.Pages[n].count kompiliert nicht, fehler

kzlazdesktop.pas(1531,53) Error: identifier idents no member "Count"

und
ComponentReg.IDEComponentPalette.Pages.Count ist die Anzahl der Paletten

Ersteres hat auch so funktioniert, nun wohl nicht mehr

[hemmen]

Ich habe nun alle Komponenten (341, unabhängig in welcher Palette) genommen und die zweite Schleife entfernt. Funktioniert ja auch.

(aus kzlazdesktop.pas Zeilen: 1525-1550)

Code: Alles auswählen

  for iP := 0 to ComponentReg.IDEComponentPalette.Comps.Count - 1 do
  begin
        if
          Pos(LowerCase(edFindComponent.Text),
          LowerCase(IDEComponentPalette.Comps.Items[iP].ComponentClass.ClassName )) <> 0
        then
        begin
 
          if (IDEComponentPalette.Comps.Items[iP].Button <> Nil) then
          begin
 
            Self.TabComponentSearch.NewButton.Prepare(IDEComponentPalette.Comps.Items[iP]);
          end;
 
        end;
 
  end;