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.