Minor improvement, when clicking a column in the grid, select the appropiate item in the demo listbox that corresponds to that column

Author: davidberneda

demos/FireMonkey/TeeGridFeatures/Views/Unit_Locked_Columns.fmx

@@ -13,7 +13,7 @@ object LockedColumnsForm: TLockedColumnsForm
   DesignerMasterStyle = 0
   object TeeGrid1: TTeeGrid
     Columns = <>
-    CellFormat = <>
+    OnSelect = TeeGrid1Select
     Align = Client
     Size.Width = 640.000000000000000000
     Size.Height = 351.000000000000000000

demos/FireMonkey/TeeGridFeatures/Views/Unit_Locked_Columns.pas

@@ -23,6 +23,7 @@   TLockedColumnsForm = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure LBColumnsClick(Sender: TObject);
     procedure BNoneClick(Sender: TObject);
+    procedure TeeGrid1Select(Sender: TObject);
   private
     Data : TStringsData;
     procedure FillCells;
@@ -94,7 +95,7 @@ procedure TLockedColumnsForm.FillCells;
           Data[t,row]:=IntToStr(t)+' x '+IntToStr(row);
 end;
 
-// Add all columns to listbox
+// Change the Locked status of the selected Column
 procedure TLockedColumnsForm.BNoneClick(Sender: TObject);
 var Column : TColumn;
     Locked : TColumnLocked;
@@ -115,6 +116,7 @@ procedure TLockedColumnsForm.BNoneClick(Sender: TObject);
   SetLocked(Column,Locked);
 end;
 
+// Add all columns to listbox
 procedure TLockedColumnsForm.FillBox;
 var t : Integer;
 begin
@@ -144,5 +146,14 @@ procedure TLockedColumnsForm.SetLocked(const AColumn:TColumn; const ALocked:TCol
   end;
 end;
 
+// Change the current listbox Column when selecting it in the grid
+procedure TLockedColumnsForm.TeeGrid1Select(Sender: TObject);
+begin
+  if TeeGrid1.Selected.Column<>nil then
+  begin
+    LBColumns.ItemIndex:=TeeGrid1.Selected.Column.Index;
+    LBColumnsClick(Self);
+  end;
+end;
 
 end.