File belonging to previous commit

extrasettings.pas

@@ -63,6 +63,7 @@   TForm2 = class(TForm)
     LabelFPCrevision: TLabel;
     LabelLazarusbranch: TLabel;
     LabelLazarusrevision: TLabel;
+    RadioGroupTrunkLocation: TRadioGroup;
     RadioGroupNPFPCbranch: TRadioGroup;
     RadioGroupNPLazarusbranch: TRadioGroup;
     RadioGroup3: TRadioGroup;
@@ -79,6 +80,7 @@   TForm2 = class(TForm)
     function GetUpdateOnly:boolean;
     function GetIncludeLCL:boolean;
     function GetIncludeHelp:boolean;
+    function GetUseFreePascalSVN:boolean;
     function GetHTTPProxyHost:string;
     function GetHTTPProxyPort:integer;
     function GetHTTPProxyUser:string;
@@ -91,6 +93,7 @@   TForm2 = class(TForm)
     property PackageRepo:boolean read GetPackageRepo;
 
     property UpdateOnly:boolean read GetUpdateOnly;
+    property UseFreePascalSVN:boolean read GetUseFreePascalSVN;
 
     property IncludeLCL:boolean read GetIncludeLCL;
     property IncludeHelp:boolean read GetIncludeHelp;
@@ -159,6 +162,10 @@ procedure TForm2.FormCreate(Sender: TObject);
     CheckPackageRepo.Checked:=ReadBool('General','GetPackageRepo',False);
     CheckIncludeHelp.Checked:=ReadBool('General','IncludeHelp',True);
 
+    if ReadBool('General','UseFreePascalSVNforTrunk',True)
+       then RadioGroupTrunkLocation.ItemIndex:=0
+       else RadioGroupTrunkLocation.ItemIndex:=1;
+
     CheckIncludeLCL.Checked:=ReadBool('Cross','IncludeLCL',False);
 
     EditHTTPProxyHost.Text:=ReadString('ProxySettings','HTTPProxyURL','');
@@ -177,7 +184,6 @@ procedure TForm2.FormCreate(Sender: TObject);
       end;
     end;
 
-
   finally
     Free;
   end;
@@ -210,6 +216,8 @@ procedure TForm2.FormDestroy(Sender: TObject);
     WriteBool('General','GetPackageRepo',CheckPackageRepo.Checked);
     WriteBool('General','IncludeHelp',CheckIncludeHelp.Checked);
 
+    WriteBool('General','UseFreePascalSVNforTrunk',RadioGroupTrunkLocation.ItemIndex=0);
+
     WriteBool('Cross','IncludeLCL',CheckIncludeLCL.Checked);
 
     WriteString('ProxySettings','HTTPProxyURL',EditHTTPProxyHost.Text);
@@ -323,6 +331,11 @@ function TForm2.GetIncludeHelp:boolean;
   result:=CheckIncludeHelp.Checked;
 end;
 
+function TForm2.GetUseFreePascalSVN:boolean;
+begin
+  result:=(RadioGroupTrunkLocation.ItemIndex=0);
+end;
+
 function TForm2.GetHTTPProxyHost:string;
 begin
   result:=EditHTTPProxyHost.Text;