2cb9e11e9b
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
46 lines
755 B
ObjectPascal
46 lines
755 B
ObjectPascal
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.
|