Changeset 4 for trunk/UOptions.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Add and edit operations.

File:

• trunk/UOptions.pas (modified) (3 diffs)

trunk/UOptions.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, DOM, XMLWrite, XMLRead, HTTPSend;
+  ComCtrls, ExtCtrls, DOM, XMLWrite, XMLRead, HTTPSend, USource, UInstance;
 
 type
@@ -17 +17 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    Edit1: TEdit;
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     ListView1: TListView;
     ListView2: TListView;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Panel3: TPanel;
+    procedure ButtonCancelClick(Sender: TObject);
+    procedure ButtonOkClick(Sender: TObject);
     procedure ButtonUpdateSourceClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView2Data(Sender: TObject; Item: TListItem);
   private
     procedure ReloadList;
   public
-    { public declarations }
-  end; 
+    Instance: TInstance;
+    FPCSources: TSourceList;
+    IDESources: TSourceList;
+  end;
 
 var
@@ -54 +68 @@
 end;
 
+procedure TOptionsForm.ButtonOkClick(Sender: TObject);
+begin
+  Instance.Name := Edit1.Text;
+  if Assigned(ListView1.Selected) then
+    Instance.FPCSource := TSource(ListView1.Selected.Data)
+    else Instance.FPCSource := nil;
+  if Assigned(ListView2.Selected) then
+    Instance.IDESource := TSource(ListView2.Selected.Data)
+    else Instance.IDESource := nil;
+end;
+
+procedure TOptionsForm.ButtonCancelClick(Sender: TObject);
+begin
+  Instance.Free;
+end;
+
+procedure TOptionsForm.FormCreate(Sender: TObject);
+begin
+  FPCSources := TSourceList.Create;
+  FPCSources.OwnsObjects := False;
+  IDESources := TSourceList.Create;
+  IDESources.OwnsObjects := False;
+end;
+
+procedure TOptionsForm.FormDestroy(Sender: TObject);
+begin
+  FPCSources.Free;
+  IDESources.Free;
+end;
+
+procedure TOptionsForm.FormShow(Sender: TObject);
+begin
+  ReloadList;
+  if not Assigned(Instance) then begin
+    Instance := TInstance.Create;
+    Instance.Id := MainForm.Instances.GetNewId;
+    Instance.Name := 'Instance ' + IntToStr(Instance.Id);
+  end;
+  //    ListView1.Items[;
+  Edit1.Text := Instance.Name;
+end;
+
+procedure TOptionsForm.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < FPCSources.Count then
+  with TSource(FPCSources[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.Data := FPCSources[Item.Index];
+    Item.SubItems.Add(VersionType);
+    Item.SubItems.Add(VersionNumber);
+    Item.SubItems.Add('');
+    Item.SubItems.Add('');
+    Item.SubItems.Add(SubversionURL);
+  end;
+end;
+
+procedure TOptionsForm.ListView2Data(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < IDESources.Count then
+  with TSource(IDESources[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.Data := IDESources[Item.Index];
+    Item.SubItems.Add(VersionType);
+    Item.SubItems.Add(VersionNumber);
+    Item.SubItems.Add('');
+    Item.SubItems.Add('');
+    Item.SubItems.Add(SubversionURL);
+  end;
+end;
+
 procedure TOptionsForm.ReloadList;
+var
+  I: Integer;
 begin
-  ListView1.Items.Count := MainForm.Sources.Count;
+  FPCSources.Clear;
+  for I := 0 to MainForm.Sources.Count - 1 do
+    if TSource(MainForm.Sources[I]).Name = 'FPC' then
+      FPCSources.Add(MainForm.Sources[I]);
+  ListView1.Items.Count := FPCSources.Count;
   ListView1.Refresh;
+  IDESources.Clear;
+  for I := 0 to MainForm.Sources.Count - 1 do
+    if TSource(MainForm.Sources[I]).Name = 'Lazarus' then
+      IDESources.Add(MainForm.Sources[I]);
+  ListView2.Items.Count := IDESources.Count;
+  ListView2.Refresh;
 end;