Results 1 to 6 of 6

Thread: Form Error Help Plz

  1. #1
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default Form Error Help Plz

    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.



  2. #2
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Delete all the parentfont variables then. there unnecissary.

  3. #3
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Haha. Jhildy only ever replies in the form help threads
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  4. #4
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    not only but there my favorite

  5. #5
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    thanks for your help

    how come parentfont was in the script? when i loaded the dfm form?



  6. #6
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    i truely have no clue its ni mine too and i dont get that error but its not needed to function.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Form Error
    By ZaSz in forum OSR Help
    Replies: 7
    Last Post: 04-09-2008, 02:57 AM
  2. Form Error
    By ZaSz in forum OSR Help
    Replies: 6
    Last Post: 02-17-2008, 01:51 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •