hey i started to learn how to make forms and i get this error
Line 204: [Error] (14653:1): Unknown identifier 'ParentFont' in script
heres my script
SCAR Code:
program New;
var
// InitForm variables.
frmDesign : TForm;
laUser, laPass, LaFirst, Label4, Label5, laNick, Label1, Label2, Label3 : TLabel;
Button1, Color1Button, Color2Button, Color3Button, Button2 : TButton;
edColor1, edColor2, edColor3 : TLabeledEdit;
Edit1, Edit2, UserEdit, PassEdit, NickEdit, edMonsterName, Edit3 : TEdit;
FightMode : TComboBox;
CheckBox1, CheckBox2 : TCheckBox;
// This form was parsed using: DFM Form Parser v.23 by Ron.
procedure InitForm;
var
TimeInitForm : Integer;
begin
TimeInitForm := GetSystemTime;
frmDesign := CreateForm;
with frmDesign do
begin
Position := poScreenCenter;
BorderStyle := bsSingle;
BorderIcons := [biMinimize,biSystemMenu];
ClientWidth := 452;
ClientHeight := 308;
Caption := 'frmDesign';
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
PixelsPerInch := 96;
end;
laUser := TLabel.Create(frmDesign);
with laUser do
begin
Parent := frmDesign;
Left := 12;
Top := 21;
Width := 63;
Height := 16;
Caption := 'Username';
Color := clBlack;
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentColor := False;
ParentFont := False;
end;
laPass := TLabel.Create(frmDesign);
with laPass do
begin
Parent := frmDesign;
Left := 12;
Top := 45;
Width := 60;
Height := 16;
Caption := 'Password';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
LaFirst := TLabel.Create(frmDesign);
with LaFirst do
begin
Parent := frmDesign;
Left := 250;
Top := 35;
Width := 59;
Height := 16;
Caption := '1st Colour';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
Label4 := TLabel.Create(frmDesign);
with Label4 do
begin
Parent := frmDesign;
Left := 250;
Top := 56;
Width := 64;
Height := 16;
Caption := '2nd Colour';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
Label5 := TLabel.Create(frmDesign);
with Label5 do
begin
Parent := frmDesign;
Left := 250;
Top := 75;
Width := 61;
Height := 16;
Caption := '3rd Colour';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
laNick := TLabel.Create(frmDesign);
with laNick do
begin
Parent := frmDesign;
Left := 12;
Top := 69;
Width := 27;
Height := 16;
Caption := 'Nick';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
Label1 := TLabel.Create(frmDesign);
with Label1 do
begin
Parent := frmDesign;
Left := 12;
Top := 93;
Width := 88;
Height := 16;
Caption := 'Monster Name';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
Label2 := TLabel.Create(frmDesign);
with Label2 do
begin
Parent := frmDesign;
Left := 12;
Top := 117;
Width := 67;
Height := 16;
Caption := 'Fight Mode';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
Label3 := TLabel.Create(frmDesign);
with Label3 do
begin
Parent := frmDesign;
Left := 72;
Top := 185;
Width := 74;
Height := 16;
Caption := 'Food Colour';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
end;
Button1 := TButton.Create(frmDesign);
with Button1 do
begin
Parent := frmDesign;
Left := 168;
Top := 248;
Width := 75;
Height := 25;
Hint := 'Click To Start';
Caption := 'Start';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 10;
end;
edColor1 := TLabeledEdit.Create(frmDesign);
with edColor1 do
begin
Parent := frmDesign;
Left := 320;
Top := 25;
Width := 78;
Height := 24;
EditLabel.Width := 3;
EditLabel.Height := 13;
Font.Color := clBlack;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 11;
Text := ' ';
end;
edColor2 := TLabeledEdit.Create(frmDesign);
with edColor2 do
begin
Parent := frmDesign;
Left := 320;
Top := 52;
Width := 78;
Height := 24;
EditLabel.Width := 3;
EditLabel.Height := 13;
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 12;
Text := ' ';
end;
edColor3 := TLabeledEdit.Create(frmDesign);
with edColor3 do
begin
Parent := frmDesign;
Left := 320;
Top := 77;
Width := 78;
Height := 24;
EditLabel.Width := 3;
EditLabel.Height := 13;
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 13;
Text := ' ';
end;
Color1Button := TButton.Create(frmDesign);
with Color1Button do
begin
Parent := frmDesign;
Left := 412;
Top := 85;
Width := 25;
Height := 16;
Caption := 'Pick';
TabOrder := 15;
end;
Color2Button := TButton.Create(frmDesign);
with Color2Button do
begin
Parent := frmDesign;
Left := 411;
Top := 55;
Width := 26;
Height := 17;
Caption := 'Pick';
TabOrder := 16;
end;
Color3Button := TButton.Create(frmDesign);
with Color3Button do
begin
Parent := frmDesign;
Left := 412;
Top := 30;
Width := 25;
Height := 15;
Caption := 'Pick';
TabOrder := 17;
end;
Button2 := TButton.Create(frmDesign);
with Button2 do
begin
Parent := frmDesign;
Left := 147;
Top := 166;
Width := 25;
Height := 17;
Caption := 'Pick';
TabOrder := 20;
end;
Edit1 := TEdit.Create(frmDesign);
with Edit1 do
begin
Parent := frmDesign;
Left := 65;
Top := 161;
Width := 79;
Height := 24;
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 21;
end;
Edit2 := TEdit.Create(frmDesign);
with Edit2 do
begin
Parent := frmDesign;
Left := 190;
Top := 164;
Width := 83;
Height := 24;
Hint := 'Food Name';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
ParentShowHint := False;
ShowHint := True;
TabOrder := 22;
Text := 'Food Name';
end;
UserEdit := TEdit.Create(frmDesign);
with UserEdit do
begin
Parent := frmDesign;
Left := 115;
Top := 27;
Width := 89;
Height := 24;
Hint := 'Enter Username Here';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
ParentShowHint := False;
ShowHint := True;
TabOrder := 8;
Text := ' ';
end;
PassEdit := TEdit.Create(frmDesign);
with PassEdit do
begin
Parent := frmDesign;
Left := 114;
Top := 51;
Width := 90;
Height := 24;
Hint := 'Enter Pass Here';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
ParentShowHint := False;
ShowHint := True;
TabOrder := 9;
Text := ' ';
end;
NickEdit := TEdit.Create(frmDesign);
with NickEdit do
begin
Parent := frmDesign;
Left := 114;
Top := 75;
Width := 91;
Height := 21;
Hint := '3-5 Letters of Name';
ParentShowHint := False;
ShowHint := True;
TabOrder := 14;
Text := ' ';
end;
edMonsterName := TEdit.Create(frmDesign);
with edMonsterName do
begin
Parent := frmDesign;
Left := 114;
Top := 99;
Width := 91;
Height := 24;
Hint := 'Enter Monster Name';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
ParentShowHint := False;
ShowHint := True;
TabOrder := 18;
Text := ' ';
end;
FightMode := TComboBox.Create(frmDesign);
with FightMode do
begin
Parent := frmDesign;
Left := 139;
Top := 123;
Width := 40;
Height := 21;
Hint := 'Fight Mode';
ItemHeight := 13;
ParentShowHint := False;
ShowHint := True;
TabOrder := 19;
Text := '1';
end;
CheckBox1 := TCheckBox.Create(frmDesign);
with CheckBox1 do
begin
Parent := frmDesign;
Left := 14;
Top := 168;
Width := 36;
Height := 17;
Caption := 'Eat';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 23;
end;
CheckBox2 := TCheckBox.Create(frmDesign);
with CheckBox2 do
begin
Parent := frmDesign;
Left := 14;
Top := 214;
Width := 97;
Height := 17;
Caption := 'Even Skills';
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 24;
end;
Edit3 := TEdit.Create(frmDesign);
with Edit3 do
begin
Parent := frmDesign;
Left := 301;
Top := 164;
Width := 80;
Height := 24;
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 25;
Text := 'Hp to Eat at';
end;
WriteLn('InitForm compiled in ' + IntToStr(GetSystemTime - TimeInitForm) + ' milliseconds!');
end;
procedure SafeInitForm;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitForm', V);
end;
procedure ShowInitFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowInitFormModal;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowInitFormModal', V);
end;
procedure MainInitForm;
begin
try
SafeInitForm;
SafeShowInitFormModal;
finally
FreeForm(frmDesign);
except
WriteLn('An error seems to have occurred in: InitForm');
end;
end;
begin
ClearDebug;
SetSCARWindow(wsMinimized);
MainInitForm;
SetSCARWindow(wsNormal);
end.