Changeset 67 for trunk/Application/UWebObjects.pas

Timestamp:

Dec 25, 2011, 9:40:28 PM (13 years ago)

Author:

chronos

Message:

• Upraveno: Přidáno analyzování HTTP POST informací.
• Upraveno: Příprava pro zpracování hodnot z objektů HTML formulářů.

File:

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

trunk/Application/UWebObjects.pas

@@ -22 +22 @@
     FInputType: TQueryFormItemType;
     FItemType: TQueryFormItemType;
+    function GetName: string;
     procedure SetItemType(const AValue: TQueryFormItemType);
+    procedure SetName(AValue: string);
   public
     Caption: string;
@@ -28 +30 @@
     Hint: string;
     Value: THTMLInput;
+    property Name: string read GetName write SetName;
     property ItemType: TQueryFormItemType read FItemType write SetItemType;
     constructor Create;
@@ -38 +41 @@
     Title: string;
     Rows: TListObject; // TListObject<TQueryFormItem>
+    procedure Load(Items: TStringList);
     function AddNewItem: TQueryFormItem;
     constructor Create;
@@ -44 +48 @@
 
   TQueryAction = class
-    Name: string;
+    Caption: string;
+    Action: string;
   end;
 
@@ -57 +62 @@
     function AddNewGroup: TQueryFormGroup;
     function AddNewAction: TQueryAction;
+    procedure Load(Items: TStringList);
     constructor Create;
     destructor Destroy; override;
@@ -79 +85 @@
     fitFileSelect: Value.InputType := itFileSelect;
   end;
+end;
+
+function TQueryFormItem.GetName: string;
+begin
+  Result := Value.ItemName;
+end;
+
+procedure TQueryFormItem.SetName(AValue: string);
+begin
+  Value.ItemName := AValue;
 end;
 
@@ -131 +147 @@
         with THtmlCell(Row.Cells.AddNew(THtmlCell.Create)) do begin
           Value := THtmlInput.Create;
-          Value.Assign(TQueryFormItem(Rows[I]).Value);
+          THtmlInput(Value).Assign(TQueryFormItem(Rows[I]).Value);
         end;
       end;
@@ -141 +157 @@
       Value := THtmlBlock.Create;
       with THtmlInput(THtmlBlock(Value).SubItems.AddNew(THtmlInput.Create)) do begin
-        Value := TQueryAction(Actions[I]).Name;
+        Value := TQueryAction(Actions[I]).Caption;
         InputType := itSubmit;
+        ItemName := TQueryAction(Actions[I]).Action;
       end;
     end;
@@ -160 +177 @@
 end;
 
+procedure TQueryForm.Load(Items: TStringList);
+var
+  I: Integer;
+begin
+  for I := 0 to Groups.Count - 1 do
+    TQueryFormGroup(Groups[I]).Load(Items);
+end;
+
 constructor TQueryForm.Create;
 begin
@@ -166 +191 @@
   Groups := TListObject.Create;
   Method := 'post';
+  Action.AsString := '';
 end;
 
@@ -177 +203 @@
 { TQueryFormGroup }
 
+procedure TQueryFormGroup.Load(Items: TStringList);
+var
+  I: Integer;
+begin
+  for I := 0 to Rows.Count - 1 do
+  with TQueryFormItem(Rows[I]) do begin
+    if Items.IndexOfName(Value.ItemName) <> -1 then
+      Value.Value := Items.Values[Value.ItemName];
+  end;
+end;
+
 function TQueryFormGroup.AddNewItem: TQueryFormItem;
 begin