Fixed hint

Steema · Oct 27, 2023 · 9172c57 · 9172c57
1 parent 23626cd
commit 9172c57
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 6 deletions.
diff --git a/demos/FireMonkey/TeeGridFeatures/Views/Unit_Locked_Columns.fmx b/demos/FireMonkey/TeeGridFeatures/Views/Unit_Locked_Columns.fmx
@@ -13,7 +13,7 @@ object LockedColumnsForm: TLockedColumnsForm
   DesignerMasterStyle = 0
   object TeeGrid1: TTeeGrid
     Columns = <>
-    ReadOnly = False
+    CellFormat = <>
     Align = Client
     Size.Width = 640.000000000000000000
     Size.Height = 351.000000000000000000
@@ -49,6 +49,7 @@ object LockedColumnsForm: TLockedColumnsForm
         Size.PlatformDefault = False
         StyleLookup = 'segmentedbuttonmiddle'
         Text = 'Left'
+        TextSettings.Trimming = None
         OnClick = BNoneClick
       end
       object BNone: TSpeedButton
@@ -62,6 +63,7 @@ object LockedColumnsForm: TLockedColumnsForm
         Size.PlatformDefault = False
         StyleLookup = 'segmentedbuttonleft'
         Text = 'None'
+        TextSettings.Trimming = None
         OnClick = BNoneClick
       end
       object BRight: TSpeedButton
@@ -74,13 +76,15 @@ object LockedColumnsForm: TLockedColumnsForm
         Size.PlatformDefault = False
         StyleLookup = 'segmentedbuttonright'
         Text = 'Right'
+        TextSettings.Trimming = None
         OnClick = BNoneClick
       end
       object Label1: TLabel
         StyledSettings = [Family, Size, Style]
         Position.X = 8.000000000000000000
         Position.Y = 6.000000000000000000
         TextSettings.FontColor = claWhite
+        TextSettings.Trimming = None
         Text = 'Columns :'
         TabOrder = 3
       end
@@ -89,6 +93,7 @@ object LockedColumnsForm: TLockedColumnsForm
         Position.X = 191.000000000000000000
         Position.Y = 6.000000000000000000
         TextSettings.FontColor = claWhite
+        TextSettings.Trimming = None
         Text = 'Locked :'
         TabOrder = 4
       end

diff --git a/demos/FireMonkey/TeeGridFeatures/Views/Unit_Locked_Columns.pas b/demos/FireMonkey/TeeGridFeatures/Views/Unit_Locked_Columns.pas
@@ -102,11 +102,15 @@ procedure TLockedColumnsForm.BNoneClick(Sender: TObject);
   Column:=TeeGrid1.Columns[LBColumns.ItemIndex];
 
   if BNone.IsPressed then
-    Locked:=TColumnLocked(0)
-  else if BLeft.IsPressed then
-    Locked:=TColumnLocked(1)
-  else if BRight.IsPressed then
-    Locked:=TColumnLocked(2);
+     Locked:=TColumnLocked.None
+  else
+  if BLeft.IsPressed then
+     Locked:=TColumnLocked.Left
+  else
+  if BRight.IsPressed then
+     Locked:=TColumnLocked.Right
+  else
+     Locked:=TColumnLocked.None;
 
   SetLocked(Column,Locked);
 end;