Changeset 104 for Network/CoolWeb/Common/UHtmlClasses.pas

Timestamp:

Dec 31, 2010, 9:59:19 PM (14 years ago)

Author:

george

Message:

• Přidáno: Třídy THtmlForm. THtmlInput a THtmlLineBreak.

File:

• Network/CoolWeb/Common/UHtmlClasses.pas (modified) (7 diffs)

Network/CoolWeb/Common/UHtmlClasses.pas

@@ -6 +6 @@
 
 uses
-  UXmlClasses, Classes, SysUtils, SpecializedList, SpecializedObjectList;
+  UXmlClasses, Classes, SysUtils, SpecializedList;
 
 type
@@ -90 +90 @@
   end;
 
+  { THtmlLineBreak }
+
+  THtmlLineBreak = class(THtmlElement)
+  private
+    function GetAsXmlElement: TXmlElement; override;
+  public
+    constructor Create;
+  end;
+
   THtmlBlock = class(THtmlElement)
   private
@@ -125 +134 @@
     Source: TURL;
     AlternateText: string;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  THtmlInputType = (itText, itComboBox, itRadioButton, itReset, itPassword,
+    itSubmit, itHidden, itFileSelect, itButton, itCheckBox);
+
+  { THtmlInput }
+
+  THtmlInput = class(THtmlElement)
+  private
+    function GetAsXmlElement: TXmlElement; override;
+  public
+    InputType: THtmlInputType;
+    Value: Variant;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { THtmlForm }
+
+  THtmlForm = class(THtmlBlock)
+  private
+  public
+    Method: string;
+    Action: TURL;
+    function GetAsXmlElement: TXmlElement; override;
     constructor Create;
     destructor Destroy; override;
@@ -211 +247 @@
     Result := False;
   end;
+end;
+
+{ THtmlLineBreak }
+
+function THtmlLineBreak.GetAsXmlElement: TXmlElement;
+begin
+  Result := inherited GetAsXmlElement;
+  TXmlTag(Result).Name := 'br';
+end;
+
+constructor THtmlLineBreak.Create;
+begin
+end;
+
+{ THtmlInput }
+
+function THtmlInput.GetAsXmlElement: TXmlElement;
+var
+  InputTypeString: string;
+begin
+  Result := TXmlTag.Create;
+  with TXmlTag(Result) do begin
+    Name := 'input';
+    case InputType of
+      itButton: InputTypeString := 'button';
+      itRadioButton: InputTypeString := 'radio';
+      itCheckBox: InputTypeString := 'checkbox';
+      itText: InputTypeString := 'text';
+      itFileSelect: InputTypeString := 'file';
+      itSubmit: InputTypeString := 'submit';
+      itHidden: InputTypeString := 'hidden';
+      itPassword: InputTypeString := 'password';
+    end;
+    Attributes.Add('type', InputTypeString);
+    Attributes.Add('value', Value);
+    Attributes.Add('name', Name);
+  end;
+end;
+
+constructor THtmlInput.Create;
+begin
+
+end;
+
+destructor THtmlInput.Destroy;
+begin
+  inherited Destroy;
+end;
+
+{ THtmlForm }
+
+function THtmlForm.GetAsXmlElement: TXmlElement;
+begin
+  Result := TXmlTag.Create;
+  with TXmlTag(Result) do begin
+    Name := 'form';
+    Attributes.Add('action', Action.AsString);
+    Attributes.Add('method', Method);
+  end;
+end;
+
+constructor THtmlForm.Create;
+begin
+  inherited;
+  Action := TURL.Create;
+  BlockType := btBlockLevel;
+  Method := 'get';
+end;
+
+destructor THtmlForm.Destroy;
+begin
+  Action.Free;
+  inherited Destroy;
 end;
 
@@ -294 +403 @@
 constructor THtmlBlock.Create;
 begin
+  inherited;
   SubItems := TListObject.Create;
 end;
@@ -323 +433 @@
 function THtmlElement.GetAsXmlElement: TXmlElement;
 begin
-
+  Result := TXmlTag.Create;
+  with TXmlTag(Result).Attributes do begin
+    if Name <> '' then Add('name', Name);
+    if Style <> '' then Add('style', Style);
+    if ClassId <> '' then Add('class', ClassId);
+    if Id <> '' then Add('id', Id);
+  end;
 end;
 
@@ -472 +588 @@
     StrArray.Explode(Value, '.', StrToStr);
     SetLength(Levels, StrArray.Count);
-    for I := 0 to StrArray.Count do
-      Levels[StrArray.Count - I] := StrArray[I];
+    for I := 0 to StrArray.Count - 1 do
+      Levels[StrArray.Count - 1 - I] := StrArray[I];
   finally
     StrArray.Free;