- Minor visual improvements

- Code cleanups
beNative · Nov 3, 2015 · 54aae66 · 54aae66
1 parent e81d491
commit 54aae66
Show file tree

Hide file tree

Showing 14 changed files with 196 additions and 774 deletions.
diff --git a/Forms/Concepts.ChromeTabs.Form.dfm b/Forms/Concepts.ChromeTabs.Form.dfm
diff --git a/Forms/Concepts.DSharp.TreeViewPresenter.Form.dfm b/Forms/Concepts.DSharp.TreeViewPresenter.Form.dfm
@@ -31,7 +31,6 @@ object frmTreeViewPresenter: TfrmTreeViewPresenter
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 0
-    ExplicitHeight = 505
   end
   object pnlBottom: TPanel
     Left = 0
@@ -60,7 +59,6 @@ object frmTreeViewPresenter: TfrmTreeViewPresenter
       Height = 21
       Anchors = [akLeft, akBottom]
       TabOrder = 0
-      ExplicitTop = 201
     end
     object btnFilter: TButton
       Left = 135
@@ -71,7 +69,6 @@ object frmTreeViewPresenter: TfrmTreeViewPresenter
       Caption = 'Filter'
       TabOrder = 1
       OnClick = btnFilterClick
-      ExplicitTop = 197
     end
     object edtIndex: TSpinEdit
       Left = 446
@@ -83,7 +80,6 @@ object frmTreeViewPresenter: TfrmTreeViewPresenter
       MinValue = 0
       TabOrder = 2
       Value = 0
-      ExplicitTop = 200
     end
     object edtName: TEdit
       Left = 490
@@ -92,7 +88,6 @@ object frmTreeViewPresenter: TfrmTreeViewPresenter
       Height = 21
       Anchors = [akLeft, akBottom]
       TabOrder = 3
-      ExplicitTop = 201
     end
     object btnEvent: TButton
       Left = 598
@@ -103,7 +98,6 @@ object frmTreeViewPresenter: TfrmTreeViewPresenter
       Caption = 'Change'
       TabOrder = 4
       OnClick = btnEventClick
-      ExplicitTop = 197
     end
   end
   object pnlLeft: TPanel
@@ -115,6 +109,5 @@ object frmTreeViewPresenter: TfrmTreeViewPresenter
     BevelOuter = bvNone
     Caption = 'pnlLeft'
     TabOrder = 2
-    ExplicitHeight = 505
   end
 end
diff --git a/Forms/Concepts.DevExpress.cxGridViewPresenter.Form.dfm b/Forms/Concepts.DevExpress.cxGridViewPresenter.Form.dfm
@@ -12,6 +12,9 @@ object frmcxGridViewPresenter: TfrmcxGridViewPresenter
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  DesignSize = (
+    835
+    587)
   PixelsPerInch = 96
   TextHeight = 13
   object pnlMain: TPanel
@@ -31,7 +34,7 @@ object frmcxGridViewPresenter: TfrmcxGridViewPresenter
       Top = 3
       Width = 829
       Height = 526
-      ActivePage = tsGridView
+      ActivePage = tsTreelist
       Align = alTop
       Anchors = [akLeft, akTop, akRight, akBottom]
       TabOrder = 0
@@ -47,18 +50,37 @@ object frmcxGridViewPresenter: TfrmcxGridViewPresenter
           TabOrder = 0
           object tvwMain: TcxGridTableView
             Navigator.Buttons.CustomButtons = <>
+            Navigator.Buttons.Delete.Enabled = False
+            Navigator.Buttons.Delete.Visible = False
+            Navigator.Buttons.Edit.Enabled = False
+            Navigator.Buttons.Edit.Visible = False
+            Navigator.InfoPanel.Visible = True
+            Navigator.Visible = True
+            FindPanel.UseExtendedSyntax = True
             DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting]
             DataController.Summary.DefaultGroupSummaryItems = <>
             DataController.Summary.FooterSummaryItems = <>
             DataController.Summary.SummaryGroups = <>
+            DataController.Summary.Options = [soMultipleSelectedRecords]
+            Filtering.ColumnFilteredItemsList = True
+            FilterRow.Visible = True
             OptionsBehavior.CellHints = True
             OptionsBehavior.DragDropText = True
             OptionsBehavior.GoToNextCellOnEnter = True
             OptionsBehavior.ImmediateEditor = False
+            OptionsBehavior.NavigatorHints = True
             OptionsBehavior.EditAutoHeight = eahEditor
+            OptionsCustomize.ColumnHiding = True
+            OptionsCustomize.ColumnsQuickCustomization = True
             OptionsData.Appending = True
             OptionsSelection.MultiSelect = True
+            OptionsView.ColumnAutoWidth = True
+            OptionsView.Footer = True
+            OptionsView.FooterAutoHeight = True
+            OptionsView.FooterMultiSummaries = True
             OptionsView.GridLineColor = clSilver
+            OptionsView.GridLines = glVertical
+            OptionsView.GroupFooters = gfVisibleWhenExpanded
           end
           object grlMain: TcxGridLevel
             GridView = tvwMain
@@ -68,10 +90,6 @@ object frmcxGridViewPresenter: TfrmcxGridViewPresenter
       object tsTreelist: TTabSheet
         Caption = 'DevExpress TcxVirtualTreelist'
         ImageIndex = 1
-        ExplicitLeft = 0
-        ExplicitTop = 0
-        ExplicitWidth = 0
-        ExplicitHeight = 0
         object lstMain: TcxVirtualTreeList
           AlignWithMargins = True
           Left = 3
@@ -148,10 +166,6 @@ object frmcxGridViewPresenter: TfrmcxGridViewPresenter
       object tsVirtualTree: TTabSheet
         Caption = 'Virtual Treeview - TVirtualStringTree'
         ImageIndex = 2
-        ExplicitLeft = 0
-        ExplicitTop = 0
-        ExplicitWidth = 0
-        ExplicitHeight = 0
         object vstMain: TVirtualStringTree
           AlignWithMargins = True
           Left = 3
@@ -174,13 +188,14 @@ object frmcxGridViewPresenter: TfrmcxGridViewPresenter
       end
     end
     object btnFillList: TButton
-      Left = 712
+      Left = 675
       Top = 535
-      Width = 120
+      Width = 150
       Height = 26
       Action = actFillList
       Anchors = [akRight, akBottom]
       Default = True
+      Images = dmResources.imlMain
       TabOrder = 1
     end
   end
@@ -191,12 +206,40 @@ object frmcxGridViewPresenter: TfrmcxGridViewPresenter
     Height = 19
     Panels = <>
   end
+  object btnInspectGridViewPresenter: TButton
+    Left = 519
+    Top = 535
+    Width = 150
+    Height = 26
+    Action = actInspectGridViewPresenter
+    Anchors = [akTop, akRight]
+    TabOrder = 2
+  end
+  object btnInspectTreeListPresenter: TButton
+    Left = 363
+    Top = 535
+    Width = 150
+    Height = 25
+    Action = actInspectTreeListPresenter
+    Anchors = [akTop, akRight]
+    TabOrder = 3
+  end
   object aclMain: TActionList
+    Images = dmResources.imlMain
     Left = 96
     Top = 72
     object actFillList: TAction
       Caption = 'Populate contactlist'
+      ImageIndex = 518
       OnExecute = actFillListExecute
     end
+    object actInspectGridViewPresenter: TAction
+      Caption = 'Inspect GridView presenter'
+      OnExecute = actInspectGridViewPresenterExecute
+    end
+    object actInspectTreeListPresenter: TAction
+      Caption = 'Inspect TreeList presenter'
+      OnExecute = actInspectTreeListPresenterExecute
+    end
   end
 end
diff --git a/Forms/Concepts.DevExpress.cxGridViewPresenter.Form.pas b/Forms/Concepts.DevExpress.cxGridViewPresenter.Form.pas
@@ -65,9 +65,15 @@   TfrmcxGridViewPresenter = class(TForm)
     tlcMainColumn5: TcxTreeListColumn;
     tlcMainColumn6: TcxTreeListColumn;
     tlcMainColumn7: TcxTreeListColumn;
+    actInspectGridViewPresenter: TAction;
+    btnInspectGridViewPresenter: TButton;
+    actInspectTreeListPresenter: TAction;
+    btnInspectTreeListPresenter: TButton;
     {$ENDREGION}
 
     procedure actFillListExecute(Sender: TObject);
+    procedure actInspectGridViewPresenterExecute(Sender: TObject);
+    procedure actInspectTreeListPresenterExecute(Sender: TObject);
 
   private
     FList        : IList<TContact>;
@@ -89,21 +95,33 @@ implementation
 
   DDuce.RandomData,
 
-  Concepts.Factories;
+  Concepts.Factories, Concepts.Resources, Concepts.ComponentInspector;
 
 {$REGION 'construction and destruction'}
+procedure TfrmcxGridViewPresenter.actInspectGridViewPresenterExecute(
+  Sender: TObject);
+begin
+  InspectComponent(FGVPresenter);
+  InspectObject(FGVPresenter.ColumnDefinitions as TColumnDefinitions);
+end;
+
+procedure TfrmcxGridViewPresenter.actInspectTreeListPresenterExecute(
+  Sender: TObject);
+begin
+  InspectComponent(FTLPresenter);
+  InspectObject(FTLPresenter.ColumnDefinitions as TColumnDefinitions);
+end;
+
 procedure TfrmcxGridViewPresenter.AfterConstruction;
 var
   OL : IObjectList;
 begin
   inherited AfterConstruction;
-
-  FList := TConceptFactories.CreateContactList(1000);
+  FList := TConceptFactories.CreateContactList(5000);
   OL := FList as IObjectList;
   FGVPresenter := TConceptFactories.CreateGridViewPresenter(Self, tvwMain, OL);
   FTLPresenter := TConceptFactories.CreateTreeListPresenter(Self, lstMain, OL);
   FTVPresenter := TConceptFactories.CreateTreeViewPresenter(Self, vstMain, OL);
-
   tvwMain.ApplyBestFit;
   lstMain.ApplyBestFit;
   vstMain.Header.AutoFitColumns(False);

diff --git a/Forms/Concepts.Spring.Collections.Form.dfm b/Forms/Concepts.Spring.Collections.Form.dfm
@@ -3,7 +3,7 @@ object frmCollections: TfrmCollections
   Top = 0
   Caption = 'Spring collections'
   ClientHeight = 443
-  ClientWidth = 494
+  ClientWidth = 495
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -12,21 +12,20 @@ object frmCollections: TfrmCollections
   Font.Style = []
   OldCreateOrder = False
   DesignSize = (
-    494
+    495
     443)
   PixelsPerInch = 96
   TextHeight = 13
   object lblRecordCount: TLabel
     Left = 265
     Top = 7
-    Width = 53
+    Width = 67
     Height = 13
     Anchors = [akLeft, akTop, akRight]
     Caption = 'RecordCount:'
     FocusControl = trbRecordCount
-    ExplicitWidth = 67
   end
-  object btnExecuteQuery: TButton
+  object btnFirstNameIs: TButton
     Left = 8
     Top = 33
     Width = 250
@@ -39,13 +38,12 @@ object frmCollections: TfrmCollections
   object mmoList: TMemo
     Left = 8
     Top = 126
-    Width = 478
+    Width = 479
     Height = 309
     Anchors = [akLeft, akTop, akRight, akBottom]
     ReadOnly = True
     ScrollBars = ssVertical
     TabOrder = 1
-    ExplicitWidth = 492
   end
   object btnCreateList: TButton
     Left = 8
@@ -57,7 +55,7 @@ object frmCollections: TfrmCollections
     Images = dmResources.imlMain
     TabOrder = 2
   end
-  object btnLastNameRoberts: TButton
+  object btnLastNameIs: TButton
     Left = 8
     Top = 64
     Width = 250
@@ -70,22 +68,20 @@ object frmCollections: TfrmCollections
   object edtFirstName: TEdit
     Left = 264
     Top = 35
-    Width = 215
+    Width = 223
     Height = 21
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 4
     Text = 'John'
-    ExplicitWidth = 229
   end
   object edtLastName: TEdit
     Left = 264
     Top = 66
-    Width = 215
+    Width = 223
     Height = 21
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 5
     Text = 'Roberts'
-    ExplicitWidth = 229
   end
   object btnBoth: TButton
     Left = 8
@@ -100,23 +96,24 @@ object frmCollections: TfrmCollections
   object trbRecordCount: TTrackBar
     Left = 338
     Top = 2
-    Width = 141
-    Height = 19
+    Width = 149
+    Height = 27
     Anchors = [akLeft, akTop, akRight]
-    Max = 2000000
+    Max = 6000000
     Min = 1000
-    Position = 100000
+    PageSize = 10000
+    Frequency = 500000
+    Position = 1000000
     PositionToolTip = ptTop
     ShowSelRange = False
     TabOrder = 7
-    ExplicitWidth = 157
   end
   object aclMain: TActionList
     Images = dmResources.imlMain
     Left = 288
     Top = 96
     object actPopulateList: TAction
-      Caption = 'Populate list with random contacts'
+      Caption = 'Download random American contact details'
       ImageIndex = 967
       OnExecute = actPopulateListExecute
     end