Changeset 6 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 4, 2011, 9:45:01 AM (13 years ago)

Author:

chronos

Message:

• Modified: Source selection separated to single form.
• Added: Starting compiler and IDE with updated paths in configuration files.

File:

• trunk/Forms/UMainForm.pas (modified) (4 diffs)

trunk/Forms/UMainForm.pas

@@ -67 +67 @@
   public
     Platform: string;
+    TemplateDir: string;
     BinUtilsDir: string;
     InstanceDir: string;
+    SubversionDir: string;
     SourceDir: string;
     SourceURL: string;
@@ -90 +92 @@
   Instances := TInstanceList.Create;
   Sources := TSourceList.Create;
-  Platform := 'i386-win32';
   BinUtilsDir := 'BinUtils';
   InstanceDir := 'Instance';
+  TemplateDir := 'Template';
   SourceDir := 'Source';
   SourceURL := 'http://tv.zdechov.net/fpc/SourceList.xml';
+  {$IFDEF Windows}
+  Platform := 'i386-win32';
+  SubversionDir := 'C:\Program Files\Subversion\bin';
+  {$ENDIF}
+  {$IFDEF Linux}
+  Platform := 'i386-linux';
+  SubversionDir := '';
+  {$ENDIF}
   LoadInstanceList;
 end;
@@ -154 +164 @@
     if ListView1.Selected.Index < Instances.Count then
     with TInstance(Instances[ListView1.Selected.Index]) do begin
+      ForceDirectoriesUTF8(GetPath);
       if Assigned(FPCSource) then begin
         FPCSource.Download;
@@ -203 +214 @@
     Item.Data := Instances[Item.Index];
     if Assigned(FPCSource) then
-      Item.SubItems.Add(FPCSource.ProjectName + ' ' + FPCSource.VersionNumber)
+      Item.SubItems.Add(FPCSource.GetName)
       else Item.SubItems.Add('');
     if Assigned(IDESource) then
-      Item.SubItems.Add(IDESource.ProjectName + ' ' + IDESource.VersionNumber)
+      Item.SubItems.Add(IDESource.GetName)
       else Item.SubItems.Add('');
     Item.SubItems.Add(BooleanText[Downloaded]);