Results 1 to 3 of 3

Thread: form issue

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default form issue

    SCAR Code:
    var
    frmDesign: TForm;
      mnu: TMainMenu;
      mnuMenu1, mnuMenu2, mnuMenu3, mnuMenu4, mnuMenu5: TMenuItem;
      mnuSub1, mnuSub2, mnuSub3, mnuSub4, mnuSub5, mnuSub6, mnuSub7, mnuSub8, mnuSub9, mnuSub10: TMenuItem;
        Image2 : TImage;
        b, w, h: Integer;
      BackPack : Integer;
    const
      UseForm = true;        // Use SRL PlayerForm ? Or Declare Players ?
      GenRandomUser = true;  // Will generate a random Username
      MPassword = 'werty111';     // Master Password for ALL accounts - Overrides Players[x].Pass

    procedure CloseForm(Sender: TObject);
    begin
      frmDesign.ModalResult:= mrOk;
    end;

    function inaccount : boolean;
    begin
      result := countcolor(0, 0 , 0, 671, 464) =  124388
    end;

    procedure InitForm;
    begin
    frmDesign := CreateForm;
         frmDesign.Left := 250;
         frmDesign.Top := 114;
         frmDesign.Width := 700;
         frmDesign.Height := 600;
         frmDesign.Caption := 'TARC - Tutorial Island Runner + Acc Creator - Scripted by J_Pizzle, Rich1e, and NeehoSoft';
         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;
         Image2 := TImage.Create(frmDesign);
         Image2.Parent := frmDesign;
         Image2.Left := 0;
         Image2.Top := 0;
         Image2.Width := 696;
         Image2.Height := 568;
         Image2.Center := True;
         Image2.Stretch := True;
         b := loadbitmap('C:\Documents and Settings\Administrator.INSPIRON5100\Desktop\Tutorial2.png');
         getbitmapsize(b, w, h);
         copycanvas(getbitmapcanvas(b), Image2.canvas, 0, 0, 696, 568, 0, 0, 696, 568);
    mnu := TMainMenu.Create(frmDesign);
      mnuMenu1 := TMenuItem.Create(frmDesign);
      mnuMenu1.Caption := 'File';
      mnu.Items.Add(mnuMenu1);
      mnuMenu2 := TMenuItem.Create(frmDesign);
      mnuMenu2.Caption := 'Developers';
      mnu.Items.Add(mnuMenu2);
      mnuMenu3 := TMenuItem.Create(frmDesign);
      mnuMenu3.Caption := 'SelfUpdater';
      mnu.Items.Add(mnuMenu3);
      mnuMenu4 := TMenuItem.Create(frmDesign);
      mnuMenu4.Caption := 'Account Settigns';
      mnu.Items.Add(mnuMenu4);
      mnuMenu5 := TMenuItem.Create(frmDesign);
      mnuMenu5.Caption := 'Help';
      mnu.Items.Add(mnuMenu5);
      mnuSub1 := TMenuItem.Create(frmDesign);
      mnuSub1.Caption := 'Check for Updates';
      mnu.Items.Items[0].Add(mnuSub1);
      mnuSub2 := TMenuItem.Create(frmDesign);
      mnuSub2.OnClick := @CloseForm;
      mnuSub2.Caption := 'Exit';
      mnu.Items.Items[0].Add(mnuSub2);
      mnuSub3 := TMenuItem.Create(frmDesign);
      mnuSub3.Caption := 'J_Pizzle';
      mnu.Items.Items[1].Add(mnuSub3);
      mnuSub5 := TMenuItem.Create(frmDesign);
      mnuSub5.Caption := 'R!ch!e';
      mnu.Items.Items[1].Add(mnuSub5);
      mnuSub6 := TMenuItem.Create(frmDesign);
      mnuSub6.Caption := 'This Script Help';
      mnu.Items.Items[4].Add(mnuSub6);
      mnuSub7 := TMenuItem.Create(frmDesign);
      mnuSub7.Caption := 'SCAR Tutorials';
      mnu.Items.Items[4].Add(mnuSub7);
    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;

    the last end is the error line and the error is

    [Runtime Error] : Out Of Range in line 117 in script

  2. #2
    Join Date
    Mar 2009
    Location
    Illinois
    Posts
    292
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    var
    frmDesign: TForm;
      mnu: TMainMenu;
      mnuMenu1, mnuMenu2, mnuMenu3, mnuMenu4, mnuMenu5: TMenuItem;
      mnuSub1, mnuSub2, mnuSub3, {mnuSub4,} mnuSub5, mnuSub6, mnuSub7{, mnuSub8, mnuSub9, mnuSub10}: TMenuItem;
        Image2 : TImage;
        b, w, h: Integer;
      //BackPack : Integer;
    const
      UseForm = true;        // Use SRL PlayerForm ? Or Declare Players ?
      GenRandomUser = true;  // Will generate a random Username
      MPassword = 'werty111';     // Master Password for ALL accounts - Overrides Players[x].Pass

    procedure CloseForm(Sender: TObject);
    begin
      frmDesign.ModalResult:= mrOk;
    end;

    function inaccount : boolean;
    begin
      result := countcolor(0, 0 , 0, 671, 464) =  124388
    end;

    procedure InitForm;
    begin
         frmDesign := CreateForm;
         frmDesign.Left := 250;
         frmDesign.Top := 114;
         frmDesign.Width := 700;
         frmDesign.Height := 600;
         frmDesign.Caption := 'TARC - Tutorial Island Runner + Acc Creator - Scripted by J_Pizzle, Rich1e, and NeehoSoft';
         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;
         Image2 := TImage.Create(frmDesign);
         Image2.Parent := frmDesign;
         Image2.Left := 0;
         Image2.Top := 0;
         Image2.Width := 696;
         Image2.Height := 568;
         Image2.Center := True;
         Image2.Stretch := True;
         b := loadbitmap('C:\Users\Brian\Desktop\Lol.jpg');
         getbitmapsize(b, w, h);
         copycanvas(getbitmapcanvas(b), Image2.canvas, 0, 0, 696, 568, 0, 0, 696, 568);
      mnu := TMainMenu.Create(frmDesign);
      mnuMenu1 := TMenuItem.Create(frmDesign);
      mnuMenu1.Caption := 'File';
      mnu.Items.Add(mnuMenu1);
      mnuMenu2 := TMenuItem.Create(frmDesign);
      mnuMenu2.Caption := 'Developers';
      mnu.Items.Add(mnuMenu2);
      mnuMenu3 := TMenuItem.Create(frmDesign);
      mnuMenu3.Caption := 'SelfUpdater';
      mnu.Items.Add(mnuMenu3);
      mnuMenu4 := TMenuItem.Create(frmDesign);
      mnuMenu4.Caption := 'Account Settigns';
      mnu.Items.Add(mnuMenu4);
      mnuMenu5 := TMenuItem.Create(frmDesign);
      mnuMenu5.Caption := 'Help';
      mnu.Items.Add(mnuMenu5);
      mnuSub1 := TMenuItem.Create(frmDesign);
      mnuSub1.Caption := 'Check for Updates';
      mnu.Items.Items[0].Add(mnuSub1);
      mnuSub2 := TMenuItem.Create(frmDesign);
      mnuSub2.OnClick := @CloseForm;
      mnuSub2.Caption := 'Exit';
      mnu.Items.Items[0].Add(mnuSub2);
      mnuSub3 := TMenuItem.Create(frmDesign);
      mnuSub3.Caption := 'J_Pizzle';
      mnu.Items.Items[1].Add(mnuSub3);
      mnuSub5 := TMenuItem.Create(frmDesign);
      mnuSub5.Caption := 'R!ch!e';
      mnu.Items.Items[1].Add(mnuSub5);
      mnuSub6 := TMenuItem.Create(frmDesign);
      mnuSub6.Caption := 'This Script Help';
      mnu.Items.Items[4].Add(mnuSub6);
      mnuSub7 := TMenuItem.Create(frmDesign);
      mnuSub7.Caption := 'SCAR Tutorials';
      mnu.Items.Items[4].Add(mnuSub7);
    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.
    That works for me, try it out.

    NOTE: I changed your pictures path so make sure to change that back

  3. #3
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    It means that the picture you're trying to reach is inaccessible. Change your picture path to one that actually exists
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

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
  •