Changeset 6 for trunk/USource.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/USource.pas (modified) (5 diffs)

trunk/USource.pas

@@ -15 +15 @@
 
   TSource = class
+  private
+    function GetDownloaded: Boolean;
+  public
     Id: Integer;
     ProjectName: string;
@@ -24 +27 @@
     SourceType: TSourceType;
     ExecutableFile: string;
+    property Downloaded: Boolean read GetDownloaded;
     procedure Assign(Source: TSource);
     procedure Download;
@@ -30 +34 @@
     function GetExecutableFile: string;
     function GetPath: string;
+    function GetName: string;
   end;
 
@@ -45 +50 @@
 
 { TSource }
+
+function TSource.GetDownloaded: Boolean;
+begin
+  Result := DirectoryExistsUTF8(GetPath);
+end;
 
 procedure TSource.Assign(Source: TSource);
@@ -94 +104 @@
   Result := ExtractFileDir(Application.ExeName) + DirectorySeparator +
     MainForm.SourceDir + DirectorySeparator + IntToStr(Id);
+end;
+
+function TSource.GetName: string;
+begin
+  Result := ProjectShortName + ' ' + VersionNumber +
+    ' (' + VersionType + ')';
 end;