@@ -85,14 +85,6 @@ TActionFactory = class(TNoConstructObject)
85
85
@param OnExecHandler [in] Handler for action's OnExecute event.
86
86
@return Reference to newly created action.
87
87
}
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
- }
96
88
end ;
97
89
98
90
@@ -103,8 +95,12 @@ implementation
103
95
// Delphi
104
96
StdActns,
105
97
// Project
106
- UCategoryAction, UDetailTabAction, UEditSnippetAction, ULinkAction,
107
- UShowPrefsPageAction, USnippetAction, UViewItemAction;
98
+ UCategoryAction,
99
+ UDetailTabAction,
100
+ UEditSnippetAction,
101
+ ULinkAction,
102
+ USnippetAction,
103
+ UViewItemAction;
108
104
109
105
110
106
{ TActionFactory }
@@ -168,18 +164,6 @@ class function TActionFactory.CreateLinkAction(const AOwner: TComponent;
168
164
Result := CreateAction(TLinkAction, AOwner, OnExecHandler) as TCustomAction;
169
165
end ;
170
166
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
-
183
167
class function TActionFactory.CreateSnippetAction (const AOwner: TComponent;
184
168
const OnExecHandler: TNotifyEvent): TBasicAction;
185
169
{ Creates a Snippet action and sets OnExecute handler if provided.
0 commit comments