Results 1 to 2 of 2

Thread: Tab adding

  1. #1
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Tab adding

    SCAR Code:
    program New;

    var
      // InitForm variables.
      frmDesign : TForm;
      Label1 : TLabel;
      TabControl1 : TTabControl;
       PageControl1 : TPageControl;
       PageControl : TPageControl;
      TabPages : array  of TTabSheet;
      Players : array of TGroupBox;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Username : array of TEdit;
      Edit2 :  array of TEdit;
      Edit3 :  array of TEdit;
      Button2 : TButton;
      Button3 : TButton;
      Button1 : TButton;
      GroupBox2 : TGroupBox;
      Label6 : TLabel;
      Label7 : TLabel;
      Label8 : TLabel;
      Label9 : TLabel;
      ComboBox1 : TComboBox;
      ComboBox2 : TComboBox;
      Edit4 : TEdit;
      Edit5 : TEdit;
      HowManyPlayers,Iz: Integer;

    // This form was parsed using DFM Form Parser v.26c Beta by Ron.
    // Generated from Mks.dfm.


    Procedure AddTab(sender : Tobject);
    var i,t: integer;
    begin
      inc(howmanyplayers);
      SetArraylength(TabPages, howmanyplayers);
      t := howmanyplayers -1;
      TabPages[t] := TTabSheet.Create(frmDesign);
      TabPages[t].PageControl := PageControl1;
      TabPages[t].Caption := 'Player ' + inttostr(howmanyplayers);
    end;


    procedure InitForm;
    var
      TimeInitForm,t,i : Integer;
    begin

      inc(howmanyplayers);
      t := HowmanyPlayers - 1;
      SetArraylength(UserName, 1);
      SetArraylength(TabPages, 1);
      SetArraylength(Players, 1);

      frmDesign := CreateForm;
      with frmDesign do
      begin
        BorderIcons := [biMinimize,biSystemMenu];
        Left := 250;
        Top := 114;
        Width := 432;
        Height := 268;
        Caption := 'frmDesign';
        Color := $00f5faf9;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        PixelsPerInch := 96;
      end;
      PageControl := TPageControl.Create(frmDesign);
      PageControl.Parent := frmDesign;
      PageControl.Align := alClient;
      PageControl.TabOrder := 0;

      TabPages[t] := TTabSheet.Create(frmDesign);
      TabPages[t].PageControl := PageControl;
      TabPages[t].Caption := 'Player ' + inttostr(howmanyPlayers);


      Button2 := TButton.Create(Players[t]);
      with Button2 do
      begin
        Parent := TabPages[t];
        Left := 120;
        Top := 104;
        Width := 33;
        Height := 25;
        Caption := 'New';
        TabOrder := 3;
        Onclick:= @AddTab;
      end;


    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;
      GetSelf.WindowState := wsMinimized;
      MainInitForm;
      GetSelf.WindowState := wsNormal;
    end.


    Tab doesnt Add??
    Could i please have some advice.

  2. #2
    Join Date
    Jun 2008
    Location
    San Diego, California
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    In Line: 44 remove the 1 from PageControl;

    -The_Shermanator

    SCAR Code:
    program New;

    var
      // InitForm variables.
      frmDesign : TForm;
      Label1 : TLabel;
      TabControl1 : TTabControl;
       PageControl1 : TPageControl;
       PageControl : TPageControl;
      TabPages : array  of TTabSheet;
      Players : array of TGroupBox;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Username : array of TEdit;
      Edit2 :  array of TEdit;
      Edit3 :  array of TEdit;
      Button2 : TButton;
      Button3 : TButton;
      Button1 : TButton;
      GroupBox2 : TGroupBox;
      Label6 : TLabel;
      Label7 : TLabel;
      Label8 : TLabel;
      Label9 : TLabel;
      ComboBox1 : TComboBox;
      ComboBox2 : TComboBox;
      Edit4 : TEdit;
      Edit5 : TEdit;
      HowManyPlayers,Iz: Integer;

    // This form was parsed using DFM Form Parser v.26c Beta by Ron.
    // Generated from Mks.dfm.


    Procedure AddTab(sender : Tobject);
    var i,t: integer;
    begin
      inc(howmanyplayers);
      SetArraylength(TabPages, howmanyplayers);
      t := howmanyplayers -1;
      TabPages[t] := TTabSheet.Create(frmDesign);
      TabPages[t].PageControl := PageControl;
      TabPages[t].Caption := 'Player ' + inttostr(howmanyplayers);
    end;


    procedure InitForm;
    var
      TimeInitForm,t,i : Integer;
    begin

      inc(howmanyplayers);
      t := HowmanyPlayers - 1;
      SetArraylength(UserName, 1);
      SetArraylength(TabPages, 1);
      SetArraylength(Players, 1);

      frmDesign := CreateForm;
      with frmDesign do
      begin
        BorderIcons := [biMinimize,biSystemMenu];
        Left := 250;
        Top := 114;
        Width := 432;
        Height := 268;
        Caption := 'frmDesign';
        Color := $00f5faf9;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        PixelsPerInch := 96;
      end;
      PageControl := TPageControl.Create(frmDesign);
      PageControl.Parent := frmDesign;
      PageControl.Align := alClient;
      PageControl.TabOrder := 0;

      TabPages[t] := TTabSheet.Create(frmDesign);
      TabPages[t].PageControl := PageControl;
      TabPages[t].Caption := 'Player ' + inttostr(howmanyPlayers);


      Button2 := TButton.Create(Players[t]);
      with Button2 do
      begin
        Parent := TabPages[t];
        Left := 120;
        Top := 104;
        Width := 33;
        Height := 25;
        Caption := 'New';
        TabOrder := 3;
        Onclick:= @AddTab;
      end;


    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;
      GetSelf.WindowState := wsMinimized;
      MainInitForm;
      GetSelf.WindowState := wsNormal;
    end.
    Current Project: All In 1 Falador Script - 20% DONE

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. adding srl
    By imskate182 in forum OSR Help
    Replies: 2
    Last Post: 12-21-2007, 12:08 AM
  2. adding to player
    By del_signo in forum OSR Help
    Replies: 1
    Last Post: 03-05-2007, 12:55 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
  •