Changeset 2 for trunk/UMainForm.pas

Timestamp:

Feb 2, 2011, 11:31:12 AM (13 years ago)

Author:

chronos

Message:

• Added: Routines for Load and Save configuration.

File:

• trunk/UMainForm.pas (modified) (5 diffs)

trunk/UMainForm.pas

@@ -1 +1 @@
 unit UMainForm;
 
-{$mode objfpc}{$H+}
+{$mode Delphi}{$H+}
 
 interface
@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, ActnList;
+  StdCtrls, ActnList, Contnrs, USource, UInstance, UOptions,
+  DOM, XMLWrite, XMLRead;
+
+const
+  ConfigFileName = 'Config.xml';
 
 type
@@ -15 +19 @@
   TForm1 = class(TForm)
     AAdd: TAction;
+    ACompile: TAction;
     AOptions: TAction;
     ARemove: TAction;
@@ -25 +30 @@
     Button4: TButton;
     Button5: TButton;
+    Button6: TButton;
     Label1: TLabel;
     ListView1: TListView;
+    procedure AAddExecute(Sender: TObject);
+    procedure ACompileExecute(Sender: TObject);
+    procedure ARemoveExecute(Sender: TObject);
+    procedure AStartExecute(Sender: TObject);
+    procedure AUpdateExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
-    { private declarations }
+    procedure ReloadList;
+    procedure LoadInstanceList;
+    procedure SaveInstanceList;
   public
-    { public declarations }
+    Instances: TObjectList;
+    Sources: TSourceList;
   end; 
 
@@ -40 +60 @@
 {$R *.lfm}
 
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  Instances := TObjectList.Create;
+  Sources := TSourceList.Create;
+end;
+
+procedure TForm1.AAddExecute(Sender: TObject);
+begin
+  OptionsForm.ShowModal;
+end;
+
+procedure TForm1.ACompileExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    if ListView1.Selected.Index < Instances.Count then begin
+      TInstance(Instances[ListView1.Selected.Index]).Build;
+      ReloadList;
+    end;
+end;
+
+procedure TForm1.ARemoveExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    if ListView1.Selected.Index < Instances.Count then begin
+      Instances.Remove(ListView1.Selected.Data);
+      ReloadList;
+    end;
+end;
+
+procedure TForm1.AStartExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    if ListView1.Selected.Index < Instances.Count then begin
+      TInstance(Instances[ListView1.Selected.Index]).Start;
+      ReloadList;
+    end;
+end;
+
+procedure TForm1.AUpdateExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    if ListView1.Selected.Index < Instances.Count then begin
+      TInstance(Instances[ListView1.Selected.Index]).Update;
+      ReloadList;
+    end;
+end;
+
+procedure TForm1.FormDestroy(Sender: TObject);
+begin
+  Instances.Free;
+  Sources.Free;
+end;
+
+procedure TForm1.FormShow(Sender: TObject);
+begin
+  ListView1SelectItem(nil, nil, False);
+end;
+
+procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < Instances.Count then
+  with TInstance(Instances[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.Data := Instances[Item.Index];
+    Item.SubItems.Add(FPCRevision);
+    Item.SubItems.Add(IDERevision);
+  end;
+end;
+
+procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
+begin
+  ACompile.Enabled := Assigned(ListView1.Selected);
+  AUpdate.Enabled := Assigned(ListView1.Selected);
+  AStart.Enabled := Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(ListView1.Selected);
+  AOptions.Enabled := Assigned(ListView1.Selected);
+end;
+
+procedure TForm1.ReloadList;
+begin
+  ListView1.Items.Count := Instances.Count;
+  ListView1.Refresh;
+end;
+
+procedure TForm1.LoadInstanceList;
+var
+  Doc: TXMLDocument;
+  NewNode: TDOMNode;
+  NewSubNode: TDOMNode;
+  I: Integer;
+  NewSource: TSource;
+  NewInstance: TInstance;
+  Child: TDOMNode;
+begin
+  try
+    ReadXMLFile(Doc, UTF8Decode(ConfigFileName));
+
+    Instances.Free;
+    Sources.Free;
+
+    NewNode := Doc.DocumentElement.FindNode('Sources');
+    Child := NewNode.FirstChild;
+    while Assigned(Child) do begin
+      NewSource := TSource.Create;
+      with NewSource do begin
+        NewNode := Doc.DocumentElement.FindNode('Id');
+        if Assigned(NewNode) then
+          Id := StrToInt(NewNode.TextContent);
+        NewNode := Doc.DocumentElement.FindNode('Name');
+        if Assigned(NewNode) then
+          Name := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('SubversionURL');
+        if Assigned(NewNode) then
+          SubversionURL := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('Version');
+        if Assigned(NewNode) then
+          Version := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('Variation');
+        if Assigned(NewNode) then
+          Variation := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('SourceType');
+        if Assigned(NewNode) then
+          SourceType := TSourceType(StrToInt(NewNode.TextContent));
+      end;
+      Child := Child.NextSibling;
+    end;
+
+    NewNode := Doc.DocumentElement.FindNode('Instances');
+    Child := NewNode.FirstChild;
+    while Assigned(Child) do begin
+      NewInstance := TInstance.Create;
+      with NewInstance do begin
+        NewNode := Doc.DocumentElement.FindNode('Id');
+        if Assigned(NewNode) then
+          Id := StrToInt(NewNode.TextContent);
+        NewNode := Doc.DocumentElement.FindNode('Name');
+        if Assigned(NewNode) then
+          Name := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('IDEDate');
+        if Assigned(NewNode) then
+          IDEDate := StrToDateTime(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('IDERevision');
+        if Assigned(NewNode) then
+          IDERevision := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('IDESource');
+        if Assigned(NewNode) then
+          IDESource := Sources.FindById(StrToInt(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('FPCDate');
+        if Assigned(NewNode) then
+          FPCDate := StrToDateTime(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('FPCRevision');
+        if Assigned(NewNode) then
+          FPCRevision := UTF8Encode(string(NewNode.TextContent));
+        NewNode := Doc.DocumentElement.FindNode('FPCSource');
+        if Assigned(NewNode) then
+          FPCSource := Sources.FindById(StrToInt(NewNode.TextContent));
+      end;
+      Child := Child.NextSibling;
+    end;
+  finally
+    Doc.Free;
+  end;
+end;
+
+procedure TForm1.SaveInstanceList;
+var
+  I: Integer;
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+  NewNode: TDOMNode;
+  NewNode2: TDOMNode;
+begin
+  Doc := TXMLDocument.Create;
+  with Doc do
+  try
+    RootNode := CreateElement('InstanceList');
+    AppendChild(RootNode);
+    with RootNode do begin
+      NewNode := OwnerDocument.CreateElement('Instances');
+      with NewNode do
+      for I := 0 to Instances.Count - 1 do
+      with TInstance(Instances[I]) do begin
+        NewNode2 := OwnerDocument.CreateElement('Id');
+        NewNode2.TextContent := IntToStr(Id);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('Name');
+        NewNode2.TextContent := UTF8Decode(Name);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('IDEDate');
+        NewNode2.TextContent := DateTimeToStr(IDEDate);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('IDERevision');
+        NewNode2.TextContent := UTF8Decode(IDERevision);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('IDESource');
+        NewNode2.TextContent := IntToStr(IDESource.Id);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('FPCDate');
+        NewNode2.TextContent := DateTimeToStr(FPCDate);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('FPCRevision');
+        NewNode2.TextContent := UTF8Decode(FPCRevision);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('FPCSource');
+        NewNode2.TextContent := IntToStr(FPCSource.Id);
+        AppendChild(NewNode);
+      end;
+      AppendChild(RootNode);
+
+      NewNode := OwnerDocument.CreateElement('Sources');
+      with NewNode do
+      for I := 0 to Sources.Count - 1 do
+      with TSource(Sources[I]) do begin
+        NewNode2 := OwnerDocument.CreateElement('Id');
+        NewNode2.TextContent := IntToStr(Id);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('Name');
+        NewNode2.TextContent := UTF8Decode(Name);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('SubversionURL');
+        NewNode2.TextContent := UTF8Decode(SubversionURL);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('Version');
+        NewNode2.TextContent := UTF8Decode(Version);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('Variation');
+        NewNode2.TextContent := UTF8Decode(Variation);
+        AppendChild(NewNode);
+        NewNode2 := OwnerDocument.CreateElement('SourceType');
+        NewNode2.TextContent := IntToStr(Byte(SourceType));
+        AppendChild(NewNode);
+      end;
+      AppendChild(RootNode);
+    end;
+    WriteXMLFile(Doc, UTF8Decode(ConfigFileName));
+  finally
+    Free;
+  end;
+end;
+
 end.