TActionlist -> Kategorien auslesen und Action enabled = TRUE

[HolgerCW]

Hallo zusammen,

1. wie kann ich bei einer TActionliste alle Kategorien in eine StringListe auslesen ? Für die einzelnen Actions mache ich es so:

Delphi-Quellcode:

For I := 0 to DM.Actionliste.ActionCount - 1 do
begin

 if AnsiLowerCase(DM.Actionliste.Actions[I].ClassName) = AnsiLowerCase(CB.Text) then
 begin

  StrList.add(DM.Actionliste.Actions[I].Name);

 end;

end;

2. Wie kann ich alle Actions die einer Kategorie zugeordnet sind enabled = TRUE/FALSE setzen ? (Würde dann den vorher ausgelesenen Kategorienamen dafür nutzen wollen)

Gruss

Holger

[HolgerCW]

Für 1tens ist das meine Lösung:

Delphi-Quellcode:

var
 Kategorie: String;

...

For I := 0 to DM.Actionliste.ActionCount - 1 do
begin

 if Kategorie <> DM.Actionliste.Actions[I].Category then
 begin

  StrList.add(DM.Actionliste.Actions[I].Category);

 end;

 Kategorie := DM.Actionliste.Actions[I].Category;

end;

Wenn da jemand was besseres weiss immer her damit ...

für 2tens ist das meine Lösung:

Delphi-Quellcode:

For I := 0 to DM.Actionliste.ActionCount - 1 do
begin

 if DM_Query.Query_Berechtigung['ITEM'] = DM.Actionliste.Actions[I].Category then
 begin

  MeineAction := TAction(FindComponent(DM.Actionliste.Actions[I].Name));

  MeineAction.Enabled := TRUE;

 end;

end;

Wenn auch dort jemand was besseres weiss, immer her damit...

Gruss

Holger

[marabu]

Hallo Holger,

wenn bei deiner ersten Lösung die Actions nicht nach Kategorie sortiert vorliegen, dann trägst du sie evtl. mehrfach ein.

Delphi-Quellcode:

procedure GetCategories(al: TActionList; s: TStrings);
var
  i: Integer;
begin
  s.BeginUpdate;
  try
    s.Clear;
    with al do
      for i := 0 to Pred(ActionCount) do
        if s.IndexOf(Actions[i].Category) < 0 then
          s.Add(Actions[i].Category);
  finally 
    s.EndUpdate;
  end;
end;

Freundliche Grüße

[HolgerCW]

Alles klar. Vielen dank.

Doppelt habe ich die nicht drin. Dachte nur das halt z.B. 2 Action ja die gleiche KAtegorie haben können und daher diese mehrfach in die Stringlist geschrieben würde ...

Gruss

Holger