Changeset 7 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 4, 2011, 1:16:43 PM (13 years ago)

Author:

chronos

Message:

 

File:

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

trunk/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, ActnList, Menus, Contnrs, USource, UInstance, UInstanceOptions,
-  DOM, XMLWrite, XMLRead, HTTPSend, UMainOptions;
+  StdCtrls, ActnList, Menus, ExtCtrls, Contnrs, USource, UInstance,
+  UInstanceOptions, DOM, XMLWrite, XMLRead, HTTPSend, UMainOptions,
+  USourceSelection;
 
 const
@@ -23 +24 @@
     AAdd: TAction;
     ACompile: TAction;
+    ASourceList: TAction;
     AOptions: TAction;
     AUpdate: TAction;
@@ -30 +32 @@
     ADownload: TAction;
     ActionList1: TActionList;
+    Bevel1: TBevel;
     Button1: TButton;
     Button2: TButton;
@@ -35 +38 @@
     Button4: TButton;
     Button5: TButton;
+    Button7: TButton;
     Options: TButton;
     ButtonEdit: TButton;
@@ -52 +56 @@
     procedure AOptionsExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure ASourceListExecute(Sender: TObject);
     procedure AStartExecute(Sender: TObject);
     procedure ADownloadExecute(Sender: TObject);
@@ -150 +155 @@
 end;
 
+procedure TMainForm.ASourceListExecute(Sender: TObject);
+begin
+  SourceSelectionForm.ProjectType := '';
+  SourceSelectionForm.ShowModal;
+end;
+
 procedure TMainForm.AStartExecute(Sender: TObject);
 begin
@@ -270 +281 @@
     Instances.Clear;
     Sources.Clear;
+    NewNode := Doc.DocumentElement.FindNode('Platform');
+    if Assigned(NewNode) then
+      Platform := UTF8Encode(string(NewNode.TextContent));
+    NewNode := Doc.DocumentElement.FindNode('TemplateDir');
+    if Assigned(NewNode) then
+      TemplateDir := UTF8Encode(string(NewNode.TextContent));
+    NewNode := Doc.DocumentElement.FindNode('SubversionDir');
+    if Assigned(NewNode) then
+      SubversionDir := UTF8Encode(string(NewNode.TextContent));
+    NewNode := Doc.DocumentElement.FindNode('SubversionDir');
+    if Assigned(NewNode) then
+      SubversionDir := UTF8Encode(string(NewNode.TextContent));
+    NewNode := Doc.DocumentElement.FindNode('InstanceDir');
+    if Assigned(NewNode) then
+      InstanceDir := UTF8Encode(string(NewNode.TextContent));
+    NewNode := Doc.DocumentElement.FindNode('SourceURL');
+    if Assigned(NewNode) then
+      SourceURL := UTF8Encode(string(NewNode.TextContent));
 
     NewNode := Doc.DocumentElement.FindNode('Sources');
@@ -361 +390 @@
     AppendChild(RootNode);
     with RootNode do begin
+      NewNode := OwnerDocument.CreateElement('Platform');
+      NewNode.TextContent := UTF8Decode(Platform);
+      AppendChild(NewNode);
+      NewNode := OwnerDocument.CreateElement('TemplateDir');
+      NewNode.TextContent := UTF8Decode(TemplateDir);
+      AppendChild(NewNode);
+      NewNode := OwnerDocument.CreateElement('SubversionDir');
+      NewNode.TextContent := UTF8Decode(SubversionDir);
+      AppendChild(NewNode);
+      NewNode := OwnerDocument.CreateElement('SourceDir');
+      NewNode.TextContent := UTF8Decode(SourceDir);
+      AppendChild(NewNode);
+      NewNode := OwnerDocument.CreateElement('InstanceDir');
+      NewNode.TextContent := UTF8Decode(InstanceDir);
+      AppendChild(NewNode);
+      NewNode := OwnerDocument.CreateElement('SourceURL');
+      NewNode.TextContent := UTF8Decode(SourceURL);
+      AppendChild(NewNode);
+
       NewNode := OwnerDocument.CreateElement('Sources');
       with NewNode do