Results 1 to 4 of 4

Thread: Form Help Please

  1. #1
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Form Help Please

    Why wont this work? it says line 40 is stopping it, but i don't see why. Please look through it quickly or try to run it to help me fix why it wont show up.
    SCAR Code:
    program New;
    var
      frmDesign : TForm;
      Title : TLabel;
      UsernameLabel : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      LampSkillLabel : TLabel;
      UsernameEdit : TEdit;
      PasswordEdit : TEdit;
      NicknameEdit : TEdit;
      ScriptComboBox : TComboBox;
      LampSkillComboBox : TComboBox;
      AddButton : TButton;
      DeleteButton : TButton;
      StartButton : TButton;
      RunComboBox : TComboBox;

    //--------------------------------------

    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;

    //--------------------------------------

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 324;
    frmDesign.Top := 132;
    frmDesign.BorderStyle := bsSingle;
    frmDesign.Caption := 'Autoing Perfection';
    frmDesign.ClientHeight := 400;
    frmDesign.ClientWidth := 550;
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := True;
    frmDesign.PixelsPerInch := 96;

    Title := TLabel.Create(frmDesign);
    Title.Parent := frmDesign;
    Title.Left := 167;
    Title.Top := 14;
    Title.Width := 216;
    Title.Height := 13;
    Title.Caption := 'Fully Automated Autoing - Gotta love it       : - )';

    UsernameLabel := TLabel.Create(frmDesign);
    UsernameLabel.Parent := frmDesign;
    UsernameLabel.Left := 45;
    UsernameLabel.Top := 80;
    UsernameLabel.Width := 48;
    UsernameLabel.Height := 13;
    UsernameLabel.Caption := 'Username';

    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 44;
    Label2.Top := 123;
    Label2.Width := 46;
    Label2.Height := 13;
    Label2.Caption := 'Password';

    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 45;
    Label3.Top := 162;
    Label3.Width := 48;
    Label3.Height := 13;
    Label3.Caption := 'Nickname';

    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 45;
    Label4.Top := 202;
    Label4.Width := 27;
    Label4.Height := 13;
    Label4.Caption := 'Script';

    LampSkillLabel := TLabel.Create(frmDesign);
    LampSkillLabel.Parent := frmDesign;
    LampSkillLabel.Left := 47;
    LampSkillLabel.Top := 241;
    LampSkillLabel.Width := 45;
    LampSkillLabel.Height := 13;
    LampSkillLabel.Caption := 'LampSkill';

    UsernameEdit := TEdit.Create(frmDesign);
    UsernameEdit.Parent := frmDesign;
    UsernameEdit.Left := 102;
    UsernameEdit.Top := 76;
    UsernameEdit.Width := 121;
    UsernameEdit.Height := 21;
    UsernameEdit.TabOrder := 8;
    UsernameEdit.Text := 'UsernameEdit';

    PasswordEdit := TEdit.Create(frmDesign);
    PasswordEdit.Parent := frmDesign;
    PasswordEdit.Left := 102;
    PasswordEdit.Top := 117;
    PasswordEdit.Width := 121;
    PasswordEdit.Height := 21;
    PasswordEdit.TabOrder := 9;
    PasswordEdit.Text := 'PasswordEdit';

    NicknameEdit := TEdit.Create(frmDesign);
    NicknameEdit.Parent := frmDesign;
    NicknameEdit.Left := 103;
    NicknameEdit.Top := 160;
    NicknameEdit.Width := 121;
    NicknameEdit.Height := 21;
    NicknameEdit.TabOrder := 10;
    NicknameEdit.Text := 'NicknameEdit';

    ScriptComboBox := TComboBox.Create(frmDesign);
    ScriptComboBox.Parent := frmDesign;
    ScriptComboBox.Left := 105;
    ScriptComboBox.Top := 201;
    ScriptComboBox.Width := 122;
    ScriptComboBox.Height := 21;
    ScriptComboBox.ItemHeight := 13;
    ScriptComboBox.TabOrder := 11;
    ScriptComboBox.Text := 'ScriptComboBox';
    ScriptComboBox.Items.Add('Tutorial Island');
    ScriptComboBox.Items.Add('Normal Trees');
    ScriptComboBox.Items.Add('Oak Trees');
    ScriptComboBox.Items.Add('Willow Trees');
    ScriptComboBox.Items.Add('Yew Trees');

    LampSkillComboBox := TComboBox.Create(frmDesign);
    LampSkillComboBox.Parent := frmDesign;
    LampSkillComboBox.Left := 105;
    LampSkillComboBox.Top := 238;
    LampSkillComboBox.Width := 120;
    LampSkillComboBox.Height := 21;
    LampSkillComboBox.ItemHeight := 13;
    LampSkillComboBox.TabOrder := 12;
    LampSkillComboBox.Text := 'LampSkillComboBox';
    LampSkillComboBox.Items.Add('Woodcutting');
    LampSkillComboBox.Items.Add('Mining');
    LampSkillComboBox.Items.Add('Attack');
    LampSkillComboBox.Items.Add('Strength');
    LampSkillComboBox.Items.Add('Defence');
    LampSkillComboBox.Items.Add('Hitpoints');
    LampSkillComboBox.Items.Add('Prayer');
    LampSkillComboBox.Items.Add('Fishing');
    LampSkillComboBox.Items.Add('Cooking');
    LampSkillComboBox.Items.Add('Crafting');
    LampSkillComboBox.Items.Add('Runecrafting');
    LampSkillComboBox.Items.Add('Smithing');
    LampSkillComboBox.Items.Add('Ranged');
    LampSkillComboBox.Items.Add('Magic');

    AddButton := TButton.Create(frmDesign);
    AddButton.Parent := frmDesign;
    AddButton.Left := 337;
    AddButton.Top := 363;
    AddButton.Width := 81;
    AddButton.Height := 30;
    AddButton.Caption := 'Add Player';
    AddButton.TabOrder := 13;

    DeleteButton := TButton.Create(frmDesign);
    DeleteButton.Parent := frmDesign;
    DeleteButton.Left := 440;
    DeleteButton.Top := 362;
    DeleteButton.Width := 81;
    DeleteButton.Height := 30;
    DeleteButton.Caption := 'Delete Player';
    DeleteButton.TabOrder := 14;

    StartButton := TButton.Create(frmDesign);
    StartButton.Parent := frmDesign;
    StartButton.Left := 115;
    StartButton.Top := 330;
    StartButton.Width := 101;
    StartButton.Height := 47;
    StartButton.Caption := 'Start ';
    StartButton.Font.Color := clWindowText;
    StartButton.Font.Height := -24;
    StartButton.Font.Name := 'Times New Roman';
    StartButton.Font.Style := [fsBold, fsItalic];
    StartButton.ParentFont := False;
    StartButton.TabOrder := 15;

    RunComboBox := TComboBox.Create(frmDesign);
    RunComboBox.Parent := frmDesign;
    RunComboBox.Left := 106;
    RunComboBox.Top := 274;
    RunComboBox.Width := 119;
    RunComboBox.Height := 21;
    RunComboBox.ItemHeight := 13;
    RunComboBox.TabOrder := 16;
    RunComboBox.Items.Add('N');
    RunComboBox.Items.Add('E');
    RunComboBox.Items.Add('S');
    RunComboBox.Items.Add('W');
    RunComboBox.Text := 'RunComboBox';
    end;

    //--------------------------------------

    begin
      SafeInitForm;
      SafeShowFormModal;
    end.

  2. #2
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Change frmDesign.Visible := True; to frmDesign.Visible := False;

  3. #3
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Fixed.

    The code you copy from manuel Should be under the form code, but not big issue. Another vital thing is this
    SCAR Code:
    frmDesign.Visible := True;
    MUUUUUUUUUUST be changed to False or the form will not appear.

    Here is fixed code:

    SCAR Code:
    program New;
    var
      frmDesign : TForm;
      Title : TLabel;
      UsernameLabel : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      LampSkillLabel : TLabel;
      UsernameEdit : TEdit;
      PasswordEdit : TEdit;
      NicknameEdit : TEdit;
      ScriptComboBox : TComboBox;
      LampSkillComboBox : TComboBox;
      AddButton : TButton;
      DeleteButton : TButton;
      StartButton : TButton;
      RunComboBox : TComboBox;


    //--------------------------------------

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 324;
    frmDesign.Top := 132;
    frmDesign.BorderStyle := bsSingle;
    frmDesign.Caption := 'Autoing Perfection';
    frmDesign.ClientHeight := 400;
    frmDesign.ClientWidth := 550;
    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;

    Title := TLabel.Create(frmDesign);
    Title.Parent := frmDesign;
    Title.Left := 167;
    Title.Top := 14;
    Title.Width := 216;
    Title.Height := 13;
    Title.Caption := 'Fully Automated Autoing - Gotta love it       : - )';

    UsernameLabel := TLabel.Create(frmDesign);
    UsernameLabel.Parent := frmDesign;
    UsernameLabel.Left := 45;
    UsernameLabel.Top := 80;
    UsernameLabel.Width := 48;
    UsernameLabel.Height := 13;
    UsernameLabel.Caption := 'Username';

    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 44;
    Label2.Top := 123;
    Label2.Width := 46;
    Label2.Height := 13;
    Label2.Caption := 'Password';

    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 45;
    Label3.Top := 162;
    Label3.Width := 48;
    Label3.Height := 13;
    Label3.Caption := 'Nickname';

    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 45;
    Label4.Top := 202;
    Label4.Width := 27;
    Label4.Height := 13;
    Label4.Caption := 'Script';

    LampSkillLabel := TLabel.Create(frmDesign);
    LampSkillLabel.Parent := frmDesign;
    LampSkillLabel.Left := 47;
    LampSkillLabel.Top := 241;
    LampSkillLabel.Width := 45;
    LampSkillLabel.Height := 13;
    LampSkillLabel.Caption := 'LampSkill';

    UsernameEdit := TEdit.Create(frmDesign);
    UsernameEdit.Parent := frmDesign;
    UsernameEdit.Left := 102;
    UsernameEdit.Top := 76;
    UsernameEdit.Width := 121;
    UsernameEdit.Height := 21;
    UsernameEdit.TabOrder := 8;
    UsernameEdit.Text := 'UsernameEdit';

    PasswordEdit := TEdit.Create(frmDesign);
    PasswordEdit.Parent := frmDesign;
    PasswordEdit.Left := 102;
    PasswordEdit.Top := 117;
    PasswordEdit.Width := 121;
    PasswordEdit.Height := 21;
    PasswordEdit.TabOrder := 9;
    PasswordEdit.Text := 'PasswordEdit';

    NicknameEdit := TEdit.Create(frmDesign);
    NicknameEdit.Parent := frmDesign;
    NicknameEdit.Left := 103;
    NicknameEdit.Top := 160;
    NicknameEdit.Width := 121;
    NicknameEdit.Height := 21;
    NicknameEdit.TabOrder := 10;
    NicknameEdit.Text := 'NicknameEdit';

    ScriptComboBox := TComboBox.Create(frmDesign);
    ScriptComboBox.Parent := frmDesign;
    ScriptComboBox.Left := 105;
    ScriptComboBox.Top := 201;
    ScriptComboBox.Width := 122;
    ScriptComboBox.Height := 21;
    ScriptComboBox.ItemHeight := 13;
    ScriptComboBox.TabOrder := 11;
    ScriptComboBox.Text := 'ScriptComboBox';
    ScriptComboBox.Items.Add('Tutorial Island');
    ScriptComboBox.Items.Add('Normal Trees');
    ScriptComboBox.Items.Add('Oak Trees');
    ScriptComboBox.Items.Add('Willow Trees');
    ScriptComboBox.Items.Add('Yew Trees');

    LampSkillComboBox := TComboBox.Create(frmDesign);
    LampSkillComboBox.Parent := frmDesign;
    LampSkillComboBox.Left := 105;
    LampSkillComboBox.Top := 238;
    LampSkillComboBox.Width := 120;
    LampSkillComboBox.Height := 21;
    LampSkillComboBox.ItemHeight := 13;
    LampSkillComboBox.TabOrder := 12;
    LampSkillComboBox.Text := 'LampSkillComboBox';
    LampSkillComboBox.Items.Add('Woodcutting');
    LampSkillComboBox.Items.Add('Mining');
    LampSkillComboBox.Items.Add('Attack');
    LampSkillComboBox.Items.Add('Strength');
    LampSkillComboBox.Items.Add('Defence');
    LampSkillComboBox.Items.Add('Hitpoints');
    LampSkillComboBox.Items.Add('Prayer');
    LampSkillComboBox.Items.Add('Fishing');
    LampSkillComboBox.Items.Add('Cooking');
    LampSkillComboBox.Items.Add('Crafting');
    LampSkillComboBox.Items.Add('Runecrafting');
    LampSkillComboBox.Items.Add('Smithing');
    LampSkillComboBox.Items.Add('Ranged');
    LampSkillComboBox.Items.Add('Magic');

    AddButton := TButton.Create(frmDesign);
    AddButton.Parent := frmDesign;
    AddButton.Left := 337;
    AddButton.Top := 363;
    AddButton.Width := 81;
    AddButton.Height := 30;
    AddButton.Caption := 'Add Player';
    AddButton.TabOrder := 13;

    DeleteButton := TButton.Create(frmDesign);
    DeleteButton.Parent := frmDesign;
    DeleteButton.Left := 440;
    DeleteButton.Top := 362;
    DeleteButton.Width := 81;
    DeleteButton.Height := 30;
    DeleteButton.Caption := 'Delete Player';
    DeleteButton.TabOrder := 14;

    StartButton := TButton.Create(frmDesign);
    StartButton.Parent := frmDesign;
    StartButton.Left := 115;
    StartButton.Top := 330;
    StartButton.Width := 101;
    StartButton.Height := 47;
    StartButton.Caption := 'Start ';
    StartButton.Font.Color := clWindowText;
    StartButton.Font.Height := -24;
    StartButton.Font.Name := 'Times New Roman';
    StartButton.Font.Style := [fsBold, fsItalic];
    StartButton.ParentFont := False;
    StartButton.TabOrder := 15;

    RunComboBox := TComboBox.Create(frmDesign);
    RunComboBox.Parent := frmDesign;
    RunComboBox.Left := 106;
    RunComboBox.Top := 274;
    RunComboBox.Width := 119;
    RunComboBox.Height := 21;
    RunComboBox.ItemHeight := 13;
    RunComboBox.TabOrder := 16;
    RunComboBox.Items.Add('N');
    RunComboBox.Items.Add('E');
    RunComboBox.Items.Add('S');
    RunComboBox.Items.Add('W');
    RunComboBox.Text := 'RunComboBox';
    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.
    STOP PM'ING ME

  4. #4
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow fast replies lol.

    Thanks a million both of you, now i can continue on the functions and shit lol.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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