Changeset 103 for trunk/Application/UWebObjects.pas

Timestamp:

Oct 8, 2012, 8:48:16 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: TWebSession zobecněno pro možnost implementace více modulů s obsluhou vstupní stránky.

File:

• trunk/Application/UWebObjects.pas (modified) (2 diffs)

trunk/Application/UWebObjects.pas

@@ -67 +67 @@
     ClassId: string;
     function AddNewGroup: TQueryFormGroup;
-    function AddNewAction: TQueryAction;
+    function AddNewAction(Caption, Action: string): TQueryAction;
     procedure Load(Items: TDictionaryStringString);
     constructor Create;
@@ -192 +192 @@
 end;
 
-function TQueryForm.AddNewAction: TQueryAction;
+function TQueryForm.AddNewAction(Caption, Action: string): TQueryAction;
 begin
   Result := TQueryAction(Actions.AddNew(TQueryAction.Create));
+  Result.Caption := Caption;
+  Result.Action := Action;
 end;