paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 21:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: action list category property editor by Alexey Lagunov

Browse Source 
git-svn-id: trunk@23610 -
This commit is contained in:
paul 2010-02-02 08:55:22 +00:00
parent 79c3518d28
commit 649b458180
1 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ideintf/actionseditor.pas
View File

@ -236,6 +236,14 @@ type
TCreateDlgStdActions = procedure(AOwner: TComponent; ResultActProc: TResultActProc;
out Form: TForm);
{ TActionCategoryProperty }
TActionCategoryProperty = class(TStringPropertyEditor)
public
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
end;
var
RegisteredActions: TRegisteredActionCategories = nil;
NotifyActionListChange: TNotifyActionListChange = nil;
@ -249,6 +257,7 @@ procedure EnumActions(Proc: TEnumActionProc; Info: Pointer);
function CreateAction(TheOwner: TComponent;
ActionClass: TBasicActionClass): TBasicAction;
implementation
{$R *.lfm}
@ -1278,6 +1287,41 @@ begin
TDataSetInsert, TDataSetPost], nil);
end;
{ TActionCategoryProperty }
function TActionCategoryProperty.GetAttributes: TPropertyAttributes;
begin
Result:=inherited GetAttributes + [paValueList, paSortList];
end;
procedure TActionCategoryProperty.GetValues(Proc: TGetStrProc);
var
I: Integer;
Values: TStringList;
Act:TContainedAction;
ActLst:TCustomActionList;
S:string;
begin
ActLst:=nil;
Act:=GetComponent(0) as TContainedAction;
if Assigned(Act) then
ActLst:=Act.ActionList;
if not Assigned(ActLst) then exit;
Values := TStringList.Create;
try
for i:=0 to ActLst.ActionCount-1 do
begin
S:=ActLst.Actions[i].Category;
if Values.IndexOf(S)<0 then
Values.Add(S);
end;
for i := 0 to Values.Count - 1 do
Proc(Values[I]);
finally
Values.Free;
end;
end;
initialization
NotifyActionListChange := nil;
@ -1289,6 +1333,7 @@ initialization
RegisterComponentEditor(TActionList,TActionListComponentEditor);
RegisterStandardActions;
RegisterPropertyEditor(TypeInfo(string), TContainedAction, 'Category', TActionCategoryProperty);
finalization
RegisteredActions.Free;