Changeset 8 for trunk/Forms

Timestamp:

Dec 25, 2010, 10:28:06 PM (14 years ago)

Author:

george

Message:

 

Location:

trunk/Forms

Files:

• UMainForm.lfm (modified) (3 diffs)
• UMainForm.pas (modified) (12 diffs)

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 332
+  Left = 255
   Height = 445
-  Top = 106
+  Top = 75
   Width = 649
   ActiveControl = Panel1
@@ -71 +71 @@
       Anchors = [akTop, akLeft, akRight, akBottom]
       Columns = <>
+      OwnerData = True
       PopupMenu = PopupMenuItem
       ReadOnly = True
@@ -76 +77 @@
       TabOrder = 0
       ViewStyle = vsReport
+      OnData = ListView1Data
       OnDblClick = ListView1DblClick
       OnKeyPress = ListView1KeyPress

trunk/Forms/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
   StdCtrls, ActnList, Menus, ExtCtrls, USqlDatabase, DOM, XMLRead, XMLWrite,
-  UPersistentForm, UTreeState;
+  UPersistentForm, UTreeState, SpecializedList;
 
 const
@@ -14 +14 @@
 
 type
-  TValueType = (vtNone, vtInteger, vtString, vtText, vtDateTime, vtFloat, vtImage, vtBoolean,
+  TDbValueType = (vtNone, vtInteger, vtString, vtText, vtDateTime, vtFloat, vtImage, vtBoolean,
   vtIPv4, vtMAC, vtIPv6, vtFile, vtGPS, vtEnumeration, vtHyperlink, vtPassword,
   vtReference, vtDate, vtTime, vtColor);
+
+  { TReportLine }
+
+  TReportLine = class
+    Id: Integer;
+    Items: TListString;
+    constructor Create;
+    destructor Destroy; override;
+  end;
 
   { TMainForm }
@@ -76 +85 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
     procedure ListView1KeyPress(Sender: TObject; var Key: char);
@@ -93 +103 @@
     Database: TSQLDatabase;
     TreeState: TTreeState;
+    Report: TListObject;
     procedure LoadTree;
     procedure LoadItemList;
@@ -103 +114 @@
   SItemNotFound = 'Item not found';
   SObjectNotFound = 'Object not found';
+  SGroup = 'Groups';
 
 
@@ -109 +121 @@
 uses
   UItemView, UItemEdit, UItemAdd;
+
+{ TReportLine }
+
+constructor TReportLine.Create;
+begin
+  Items := TListString.Create;
+end;
+
+destructor TReportLine.Destroy;
+begin
+  Items.Free;
+  inherited Destroy;
+end;
 
 {$R *.lfm}
@@ -154 +179 @@
   TreeState := TTreeState.Create;
   PersistentForm := TPersistentForm.Create;
+  Report := TListObject.Create;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  Report.Free;
   TreeState.Free;
   Database.Free;
@@ -249 +276 @@
 end;
 
+procedure TMainForm.ListView1Data(Sender: TObject; Item: TListItem);
+var
+  I: Integer;
+begin
+  if Item.Index < Report.Count then
+  with TReportLine(Report[Item.Index]) do begin
+    Item.Caption := Items[0];
+    for I := 1 to Items.Count - 1 do
+      Item.SubItems.Add(Items[I]);
+  end;
+end;
+
 procedure TMainForm.ListView1DblClick(Sender: TObject);
 begin
@@ -271 +310 @@
 begin
   if Assigned(ListView1.Selected) then
-    SelectedItem := Integer(ListView1.Selected.Data)
+    SelectedItem := TReportLine(Report[ListView1.Selected.Index]).Id
     else SelectedItem := 0;
 
@@ -307 +346 @@
     TreeState.SaveTree(TreeView1);
     Clear;
-    AddChild(nil, 'Skupiny');
+    AddChild(nil, SGroup);
     TopItem.ImageIndex := 0;
     TopItem.SelectedIndex := 0;
@@ -346 +385 @@
   I: Integer;
   C: Integer;
-  NewItem: TListItem;
+  NewItem: TReportLine;
   NewColumn: TListColumn;
 begin
   SelectedObject := 0;
-  if Assigned(TreeView1.Selected)then
-  with ListView1, Items do begin
+  if Assigned(TreeView1.Selected) then
+  with ListView1 do begin
     Visible := True;
-    Clear;
+    Report.Clear;
     try
     DbRows := TDbRows.Create;
@@ -372 +411 @@
           NewColumn.Caption := Properties[I].Values['Name'];
         end;
+
+        ListView1Resize(Self);
+
+        // Load items
+        Values := TDbRows.Create;
+        Database.Query(Values, 'SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
+          DbRows[0].Values['Table'] + '`');
+        for I := 0 to Values.Count - 1 do begin
+          NewItem := TReportLine.Create;
+          NewItem.Items.Add(Values[I].Values[DbRows[0].Values['PrimaryKey']]);
+          NewItem.Id := StrToInt(Values[I].Values[DbRows[0].Values['PrimaryKey']]);
+          for C := 0 to Properties.Count - 1 do begin
+            NewItem.Items.Add(Values[I].Values[Properties[C].Values['ColumnName']]);
+          end;
+          Report.Add(NewItem);
+        end;
+        Items.Count := Values.Count;
+        Refresh;
       finally
         Properties.Free;
-      end;
-
-      ListView1Resize(Self);
-
-      // Load items
-      try
-      Values := TDbRows.Create;
-      Database.Query(Values, 'SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
-        DbRows[0].Values['Table'] + '`');
-      for I := 0 to Values.Count - 1 do begin
-        NewItem := Items.Add;
-        NewItem.Caption := Values[I].Values[DbRows[0].Values['PrimaryKey']];
-        NewItem.Data := Pointer(StrToInt(Values[I].Values[DbRows[0].Values['PrimaryKey']]));
-        for C := 0 to Properties.Count - 1 do begin
-          NewItem.SubItems.Add(Values[I].Values[Properties[C].Values['ColumnName']]);
-        end;
-      end;
-      finally
         Values.Free;
       end;