Merge pull request #1287 from Npc8/master

Update GridDemo for ColumnHeaderSpanning Event

Author: joachimmarder

Demos/Advanced/GridDemo.dfm

@@ -4,16 +4,15 @@ object GridForm: TGridForm
   ClientHeight = 474
   ClientWidth = 745
   Color = clBtnFace
+  CustomTitleBar.CaptionAlignment = taCenter
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -13
   Font.Name = 'Tahoma'
   Font.Style = []
-  OldCreateOrder = False
   DesignSize = (
     745
     474)
-  PixelsPerInch = 96
   TextHeight = 16
   object Label15: TLabel
     Left = 516
@@ -75,7 +74,7 @@ object GridForm: TGridForm
       'Virtual Tree Data')
     Colors.BorderColor = clWindowText
     Colors.HotColor = clBlack
-    DefaultNodeHeight = 19
+    DefaultNodeHeight = 17
     DragMode = dmAutomatic
     EditDelay = 300
     Font.Charset = ANSI_CHARSET
@@ -85,7 +84,7 @@ object GridForm: TGridForm
     Font.Style = []
     Header.AutoSizeIndex = 2
     Header.Background = clBtnShadow
-    Header.Height = 20
+    Header.Height = 17
     Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowImages, hoVisible]
     Header.Style = hsFlatButtons
     HintMode = hmTooltip
@@ -99,7 +98,7 @@ object GridForm: TGridForm
     TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoChangeScale]
     TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
     TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
-    TreeOptions.SelectionOptions = [toMiddleClickSelect, toMultiSelect, toExtendedFocus]
+    TreeOptions.SelectionOptions = [toExtendedFocus, toMiddleClickSelect, toMultiSelect]
     WantTabs = True
     OnAfterCellPaint = VST5AfterCellPaint
     OnBeforeCellPaint = VST5BeforeCellPaint
@@ -113,6 +112,7 @@ object GridForm: TGridForm
     OnStateChange = VST5StateChange
     Touch.InteractiveGestures = [igPan, igPressAndTap]
     Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
+    OnColumnHeaderSpanning = VST5ColumnHeaderSpanning
     Columns = <
       item
         Color = clWindow
@@ -167,6 +167,15 @@ object GridForm: TGridForm
     TabOrder = 2
     OnClick = AutoSpanCheckBoxClick
   end
+  object DisplayFullNameCheckBox: TCheckBox
+    Left = 518
+    Top = 360
+    Width = 153
+    Height = 17
+    Caption = 'Display Full Name'
+    TabOrder = 3
+    OnClick = DisplayFullNameCheckBoxClick
+  end
   object TreeImages: TImageList
     Left = 22
     Top = 36

Demos/Advanced/GridDemo.pas

@@ -11,7 +11,8 @@ interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, VirtualTrees, ImgList, Menus, System.ImageList, VirtualTrees.BaseTree, VirtualTrees.Types;
+  StdCtrls, VirtualTrees, ImgList, Menus, System.ImageList, VirtualTrees.BaseTree, VirtualTrees.Types,
+  VirtualTrees.BaseAncestorVCL, VirtualTrees.AncestorVCL;
 
 type
   TGridForm = class(TForm)
@@ -24,6 +25,7 @@   TGridForm = class(TForm)
     Edit1: TMenuItem;
     Label2: TLabel;
     AutoSpanCheckBox: TCheckBox;
+    DisplayFullNameCheckBox: TCheckBox;
     procedure VST5BeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
       Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
     procedure VST5BeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect;
@@ -44,6 +46,9 @@   TGridForm = class(TForm)
     procedure VST5FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
     procedure Edit1Click(Sender: TObject);
     procedure AutoSpanCheckBoxClick(Sender: TObject);
+    procedure DisplayFullNameCheckBoxClick(Sender: TObject);
+    procedure VST5ColumnHeaderSpanning(Sender: TVTHeader; Column: TColumnIndex;
+      var Count: Cardinal);
   end;
 
 var
@@ -185,6 +190,34 @@ procedure TGridForm.VST5BeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas:
 
 //----------------------------------------------------------------------------------------------------------------------
 
+procedure TGridForm.VST5ColumnHeaderSpanning(Sender: TVTHeader; Column: TColumnIndex; var Count: Cardinal);
+begin
+  case Column of
+    2:
+    begin
+      if DisplayFullNameCheckBox.Checked then
+      begin
+        //display header column 2 and 3 as ONE, we can also change the title here
+        Count:= 2;
+        Sender.Columns[Column].Text := 'Full Name';
+      end else
+      begin
+        Count:= 1;
+        Sender.Columns[Column].Text := 'First Name';
+      end;
+    end;
+  end;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure TGridForm.DisplayFullNameCheckBoxClick(Sender: TObject);
+begin
+  VST5.Refresh;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
 procedure TGridForm.VST5CreateEditor(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
   out EditLink: IVTEditLink);