Changeset 67 for trunk/Components/CoolWeb/Common/UHtmlClasses.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/Components/CoolWeb/Common/UHtmlClasses.pas (modified) (3 diffs)

trunk/Components/CoolWeb/Common/UHtmlClasses.pas

@@ -155 +155 @@
     InputType: THtmlInputType;
     Value: Variant;
+    ItemName: string;
     procedure Assign(Source: THtmlElement); override;
     constructor Create;
@@ -397 +398 @@
     Attributes.Add('type', InputTypeString);
     Attributes.Add('value', Value);
-    if Self.Name <> '' then
-      Attributes.Add('name', Self.Name);
+    if Self.ItemName <> '' then
+      Attributes.Add('name', Self.ItemName);
   end;
 end;
@@ -407 +408 @@
   InputType := THtmlInput(Source).InputType;
   Value := THtmlInput(Source).Value;
+  ItemName := THtmlInput(Source).ItemName;
 end;