Ok, I'm pretty new at scripting, and I'm trying to make a simple player username & pass form.
I keep getting an error at line 8, that a 'Begin" is expected in the script, but it's already there.
Any idea what's wrong?
Here it is.
SCAR Code:
program UserLoginForm
var
frmDesign : TForm;
UserName : TLabel;
Password : TLabel;
Button1 : TButton;
Edit1 : TEdit;
: TEdit;
begin
procedure InitForm
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Cursor := crHandPoint;
frmDesign.BorderIcons := [biSystemMenu, biMinimize];
frmDesign.Caption := 'Username & Password Input';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
UserName := TLabel.Create(frmDesign);
UserName.Parent := frmDesign;
UserName.Left := 102;
UserName.Top := 27;
UserName.Width := 50;
UserName.Height := 13;
UserName.Caption := 'UserName';
Password := TLabel.Create(frmDesign);
Password.Parent := frmDesign;
Password.Left := 102;
Password.Top := 97;
Password.Width := 46;
Password.Height := 13;
Password.Caption := 'Password';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 321;
Button1.Top := 381;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := '&Submit';
Button1.TabOrder := 8;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 102;
Edit1.Top := 49;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 9;
:= TEdit.Create(frmDesign);
.Parent := frmDesign;
.Left := 102;
.Top := 118;
.Width := 121;
.Height := 21;
.PasswordChar := #1;
.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.