Initial commit of ported HTML Components, version 0.0.2

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@995 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/thtmlport/demo_src/submit.pas

@@ -0,0 +1,45 @@
+unit Submit;
+
+interface
+
+uses
+  {$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
+  SysUtils, Classes, Graphics, Controls,
+  Forms, Dialogs, StdCtrls;
+
+type
+  TSubmitForm = class(TForm)
+    ActionText: TEdit;
+    MethodText: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    ResultBox: TListBox;
+    Label3: TLabel;
+    Button1: TButton;
+    procedure Button1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  SubmitForm: TSubmitForm;
+
+implementation
+
+{$IFNDEF LCL}
+{$R *.DFM}
+{$ENDIF}
+
+procedure TSubmitForm.Button1Click(Sender: TObject);
+begin
+Close;
+end;
+
+initialization
+{$IFDEF LCL}
+{$I SUBMIT.lrs}  {Include form's resource file}
+{$ENDIF}
+
+end.