Skip to content

Commit d4c7528

Browse files
author
delphidabbler
committed
Remove unused CreateShowPrefsPageAction method from TActionFactory
Also removed reference to now unused UShowPrefsPageAction unit
1 parent fb6818b commit d4c7528

File tree

1 file changed

+6
-22
lines changed

1 file changed

+6
-22
lines changed

Src/UActionFactory.pas

Lines changed: 6 additions & 22 deletions
Original file line numberDiff line numberDiff line change
@@ -85,14 +85,6 @@ TActionFactory = class(TNoConstructObject)
8585
@param OnExecHandler [in] Handler for action's OnExecute event.
8686
@return Reference to newly created action.
8787
}
88-
class function CreateShowPrefsPageAction(const AOwner: TComponent;
89-
const OnExecHandler: TNotifyEvent = nil): TBasicAction;
90-
{Creates a Show Preferences Page action and sets OnExecute handler id
91-
provided.
92-
@param AOwner [in] Owner of action.
93-
@param OnExecHandler [in] Handler for action's OnExecute event.
94-
@return Reference to newly created action.
95-
}
9688
end;
9789

9890

@@ -103,8 +95,12 @@ implementation
10395
// Delphi
10496
StdActns,
10597
// Project
106-
UCategoryAction, UDetailTabAction, UEditSnippetAction, ULinkAction,
107-
UShowPrefsPageAction, USnippetAction, UViewItemAction;
98+
UCategoryAction,
99+
UDetailTabAction,
100+
UEditSnippetAction,
101+
ULinkAction,
102+
USnippetAction,
103+
UViewItemAction;
108104

109105

110106
{ TActionFactory }
@@ -168,18 +164,6 @@ class function TActionFactory.CreateLinkAction(const AOwner: TComponent;
168164
Result := CreateAction(TLinkAction, AOwner, OnExecHandler) as TCustomAction;
169165
end;
170166

171-
class function TActionFactory.CreateShowPrefsPageAction(
172-
const AOwner: TComponent; const OnExecHandler: TNotifyEvent): TBasicAction;
173-
{Creates a Show Preferences Page action and sets OnExecute handler id
174-
provided.
175-
@param AOwner [in] Owner of action.
176-
@param OnExecHandler [in] Handler for action's OnExecute event.
177-
@return Reference to newly created action.
178-
}
179-
begin
180-
Result := CreateAction(TShowPrefsPageAction, AOwner, OnExecHandler);
181-
end;
182-
183167
class function TActionFactory.CreateSnippetAction(const AOwner: TComponent;
184168
const OnExecHandler: TNotifyEvent): TBasicAction;
185169
{Creates a Snippet action and sets OnExecute handler if provided.

0 commit comments

Comments
 (0)