Changeset 4 for trunk/UMainForm.pas

Timestamp:

Feb 3, 2011, 8:01:00 AM (13 years ago)

Author:

chronos

Message:

• Fixed: Add and edit operations.

File:

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

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, ActnList, Contnrs, USource, UInstance, UOptions,
+  StdCtrls, ActnList, Menus, Contnrs, USource, UInstance, UOptions,
   DOM, XMLWrite, XMLRead, HTTPSend;
 
@@ -14 +14 @@
   SourceURL = 'http://tv.zdechov.net/fpc/SourceList.xml';
 
+const
+  BooleanText: array[Boolean] of string = ('No', 'Yes');
+
 type
 
@@ -21 +24 @@
     AAdd: TAction;
     ACompile: TAction;
-    AOptions: TAction;
+    AUpdate: TAction;
+    AEdit: TAction;
     ARemove: TAction;
     AStart: TAction;
-    AUpdate: TAction;
+    ADownload: TAction;
     ActionList1: TActionList;
     Button1: TButton;
@@ -31 +35 @@
     Button4: TButton;
     Button5: TButton;
+    ButtonEdit: TButton;
     Button6: TButton;
     Label1: TLabel;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    PopupMenu1: TPopupMenu;
     procedure AAddExecute(Sender: TObject);
     procedure ACompileExecute(Sender: TObject);
+    procedure AEditExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
     procedure AStartExecute(Sender: TObject);
+    procedure ADownloadExecute(Sender: TObject);
     procedure AUpdateExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -50 +64 @@
     procedure SaveInstanceList;
   public
-    Instances: TObjectList;
+    Instances: TInstanceList;
     Sources: TSourceList;
   end;
@@ -65 +79 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
-  Instances := TObjectList.Create;
+  Instances := TInstanceList.Create;
   Sources := TSourceList.Create;
   LoadInstanceList;
@@ -72 +86 @@
 procedure TMainForm.AAddExecute(Sender: TObject);
 begin
-  OptionsForm.ShowModal;
+  OptionsForm.Instance := nil;
+  if OptionsForm.ShowModal = mrOK then begin
+    Instances.Add(OptionsForm.Instance);
+    ReloadList;
+  end;
 end;
 
@@ -84 +102 @@
 end;
 
+procedure TMainForm.AEditExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    OptionsForm.Instance := ListView1.Selected.Data;
+    if OptionsForm.ShowModal = mrYes then
+      ReloadList;
+  end;
+end;
+
 procedure TMainForm.ARemoveExecute(Sender: TObject);
 begin
@@ -98 +125 @@
     if ListView1.Selected.Index < Instances.Count then begin
       TInstance(Instances[ListView1.Selected.Index]).Start;
+      ReloadList;
+    end;
+end;
+
+procedure TMainForm.ADownloadExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    if ListView1.Selected.Index < Instances.Count then begin
+      TInstance(Instances[ListView1.Selected.Index]).Download;
       ReloadList;
     end;
@@ -120 +156 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  ReloadList;
   ListView1SelectItem(nil, nil, False);
 end;
@@ -129 +166 @@
     Item.Caption := Name;
     Item.Data := Instances[Item.Index];
-    Item.SubItems.Add(FPCRevision);
-    Item.SubItems.Add(IDERevision);
+    if Assigned(FPCSource) then
+      Item.SubItems.Add(FPCSource.Name + ' ' + FPCSource.VersionNumber)
+      else Item.SubItems.Add('');
+    if Assigned(IDESource) then
+      Item.SubItems.Add(IDESource.Name + ' ' + IDESource.VersionNumber)
+      else Item.SubItems.Add('');
+    Item.SubItems.Add(BooleanText[Downloaded]);
+    Item.SubItems.Add(BooleanText[Compiled]);
   end;
 end;
@@ -137 +180 @@
   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);
+  if Assigned(ListView1.Selected) then
+  with TInstance(ListView1.Selected.Data) do begin
+    AEdit.Enabled := True;
+    ACompile.Enabled := Downloaded;
+    ADownload.Enabled := True;
+    AStart.Enabled := Downloaded and Compiled;
+    ARemove.Enabled := True;
+  end else begin
+    AEdit.Enabled := False;
+    ACompile.Enabled := False;
+    ADownload.Enabled := False;
+    AStart.Enabled := False;
+    ARemove.Enabled := False;
+  end;
 end;
 
@@ -164 +216 @@
     ReadXMLFile(Doc, UTF8Decode(ConfigFileName));
 
-    Instances.Free;
-    Sources.Free;
+    Instances.Clear;
+    Sources.Clear;
 
     NewNode := Doc.DocumentElement.FindNode('Sources');
@@ -172 +224 @@
       NewSource := TSource.Create;
       with NewSource do begin
-        NewNode := Doc.DocumentElement.FindNode('Id');
+        NewNode := Child.FindNode('Id');
         if Assigned(NewNode) then
           Id := StrToInt(NewNode.TextContent);
-        NewNode := Doc.DocumentElement.FindNode('Name');
+        NewNode := Child.FindNode('Name');
         if Assigned(NewNode) then
           Name := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('SubversionURL');
+        NewNode := Child.FindNode('SubversionURL');
         if Assigned(NewNode) then
           SubversionURL := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('VersionNumber');
+        NewNode := Child.FindNode('VersionNumber');
         if Assigned(NewNode) then
           VersionNumber := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('VersionType');
+        NewNode := Child.FindNode('VersionType');
         if Assigned(NewNode) then
           VersionType := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('SourceType');
+        NewNode := Child.FindNode('SourceType');
         if Assigned(NewNode) then
           SourceType := TSourceType(StrToInt(NewNode.TextContent));
       end;
+      Sources.Add(NewSource);
       Child := Child.NextSibling;
     end;
@@ -199 +252 @@
       NewInstance := TInstance.Create;
       with NewInstance do begin
-        NewNode := Doc.DocumentElement.FindNode('Id');
+        NewNode := Child.FindNode('Id');
         if Assigned(NewNode) then
           Id := StrToInt(NewNode.TextContent);
-        NewNode := Doc.DocumentElement.FindNode('Name');
+        NewNode := Child.FindNode('Name');
         if Assigned(NewNode) then
           Name := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('IDEDate');
+        NewNode := Child.FindNode('IDEDate');
         if Assigned(NewNode) then
           IDEDate := StrToDateTime(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('IDERevision');
+        NewNode := Child.FindNode('IDERevision');
         if Assigned(NewNode) then
           IDERevision := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('IDESource');
+        NewNode := Child.FindNode('IDESource');
         if Assigned(NewNode) then
           IDESource := Sources.FindById(StrToInt(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('FPCDate');
+        NewNode := Child.FindNode('FPCDate');
         if Assigned(NewNode) then
           FPCDate := StrToDateTime(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('FPCRevision');
+        NewNode := Child.FindNode('FPCRevision');
         if Assigned(NewNode) then
           FPCRevision := UTF8Encode(string(NewNode.TextContent));
-        NewNode := Doc.DocumentElement.FindNode('FPCSource');
+        NewNode := Child.FindNode('FPCSource');
         if Assigned(NewNode) then
           FPCSource := Sources.FindById(StrToInt(NewNode.TextContent));
       end;
+      Instances.Add(NewInstance);
       Child := Child.NextSibling;
     end;
@@ -238 +292 @@
   NewNode: TDOMNode;
   NewNode2: TDOMNode;
+  NewNode3: TDOMNode;
 begin
   Doc := TXMLDocument.Create;
@@ -249 +304 @@
       for I := 0 to Instances.Count - 1 do
       with TInstance(Instances[I]) do begin
+        NewNode3 := OwnerDocument.CreateElement('Id');
+        with NewNode3 do begin
         NewNode2 := OwnerDocument.CreateElement('Id');
         NewNode2.TextContent := IntToStr(Id);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('Name');
         NewNode2.TextContent := UTF8Decode(Name);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('IDEDate');
         NewNode2.TextContent := DateTimeToStr(IDEDate);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('IDERevision');
         NewNode2.TextContent := UTF8Decode(IDERevision);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('IDESource');
-        NewNode2.TextContent := IntToStr(IDESource.Id);
-        AppendChild(NewNode);
+        if Assigned(IDESource) then NewNode2.TextContent := IntToStr(IDESource.Id)
+          else NewNode2.TextContent := '0';
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('FPCDate');
         NewNode2.TextContent := DateTimeToStr(FPCDate);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('FPCRevision');
         NewNode2.TextContent := UTF8Decode(FPCRevision);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('FPCSource');
-        NewNode2.TextContent := IntToStr(FPCSource.Id);
-        AppendChild(NewNode);
+        if Assigned(IDESource) then NewNode2.TextContent := IntToStr(FPCSource.Id)
+          else NewNode2.TextContent := '0';
+        AppendChild(NewNode2);
+        end;
+        AppendChild(NewNode3);
       end;
       AppendChild(NewNode);
@@ -280 +341 @@
       for I := 0 to Sources.Count - 1 do
       with TSource(Sources[I]) do begin
+        NewNode3 := OwnerDocument.CreateElement('Item');
+        with NewNode3 do begin
         NewNode2 := OwnerDocument.CreateElement('Id');
         NewNode2.TextContent := IntToStr(Id);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('Name');
         NewNode2.TextContent := UTF8Decode(Name);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('SubversionURL');
         NewNode2.TextContent := UTF8Decode(SubversionURL);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('VersionType');
         NewNode2.TextContent := UTF8Decode(VersionType);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('VersionNumber');
         NewNode2.TextContent := UTF8Decode(VersionNumber);
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
         NewNode2 := OwnerDocument.CreateElement('SourceType');
         NewNode2.TextContent := IntToStr(Byte(SourceType));
-        AppendChild(NewNode);
+        AppendChild(NewNode2);
+        end;
+        AppendChild(NewNode3);
       end;
       AppendChild(NewNode);