Updated to current RAD 12.0

demos/FireMonkey/Database/Master_Detail_FireDAC/Customer_Orders.dfm

@@ -1,17 +1,14 @@
 object SampleData: TSampleData
-  OldCreateOrder = False
   Height = 337
   Width = 267
   object Sqlite_demoConnection: TFDConnection
     Params.Strings = (
       'ConnectionDef=SQLite_Demo')
-    Connected = True
     LoginPrompt = False
     Left = 47
     Top = 22
   end
   object CustomersTable: TFDQuery
-    Active = True
     Connection = Sqlite_demoConnection
     FetchOptions.AssignedValues = [evRecordCountMode]
     FetchOptions.RecordCountMode = cmTotal

demos/FireMonkey/Database/Master_Detail_FireDAC/Customer_Orders.pas

@@ -8,7 +8,8 @@ interface
   FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite,
   FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.FMXUI.Wait,
   FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
-  FireDAC.Stan.StorageBin, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client;
+  FireDAC.Stan.StorageBin, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
+  FireDAC.Phys.SQLiteWrapper.Stat;
 
 type
   TSampleData = class(TDataModule)

demos/FireMonkey/Sheet/TeeGrid_Sheet.dpr

@@ -11,7 +11,10 @@ uses
   FMXTee.Sheet.Editor.Font in 'FMXTee.Sheet.Editor.Font.pas' {SheetFontEditor},
   FMXTee.Font.Family in 'FMXTee.Font.Family.pas',
   Tee.Cell.Expression in 'Tee.Cell.Expression.pas',
-  Tee.Sheet.Data in 'Tee.Sheet.Data.pas';
+  Tee.Sheet.Data in 'Tee.Sheet.Data.pas',
+  BI.Arrays.Strings in 'TeeBI\BI.Arrays.Strings.pas',
+  BI.Expression.DateTime in 'TeeBI\BI.Expression.DateTime.pas',
+  BI.Expression in 'TeeBI\BI.Expression.pas';
 
 {$R *.res}
 

demos/VCL/Database/ClientDataSet/Unit_Dataset.dfm

@@ -10,10 +10,8 @@ object FormGridDataset: TFormGridDataset
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
-  OldCreateOrder = False
   Position = poOwnerFormCenter
   OnCreate = FormCreate
-  PixelsPerInch = 96
   TextHeight = 13
   object TeeGrid1: TTeeGrid
     Left = 0
@@ -74,7 +72,6 @@ object FormGridDataset: TFormGridDataset
         Link = 'LastInvoiceDate'
       end>
     DataSource = ClientDataSet1
-    ReadOnly = False
     Align = alClient
     UseDockManager = False
     ParentBackground = False

demos/VCL/Database/ClientDataSet/Unit_Dataset.pas

@@ -16,7 +16,7 @@ interface
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VCLTee.Control, VCLTee.Grid, Data.DB,
   Datasnap.DBClient, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.Menus,
-  Tee.Grid.Columns, Tee.Renders;
+  Tee.Grid.Columns, Tee.Renders, Vcl.Buttons;
 
 type
   TFormGridDataset = class(TForm)

demos/VCL/Speed/Unit_Test_Speed.dfm

@@ -20,7 +20,6 @@ object FormSpeed: TFormSpeed
     Height = 41
     Align = alTop
     TabOrder = 0
-    ExplicitWidth = 1013
     object LabelResult: TLabel
       Left = 112
       Top = 13
@@ -38,7 +37,7 @@ object FormSpeed: TFormSpeed
       OnClick = Button1Click
     end
     object ComboGraphics: TComboBox
-      Left = 432
+      Left = 236
       Top = 10
       Width = 65
       Height = 23
@@ -52,26 +51,37 @@ object FormSpeed: TFormSpeed
         'GDI'
         'Skia')
     end
-    object CBRepaint: TCheckBox
-      Left = 280
+    object CBAntiAlias: TCheckBox
+      Left = 505
       Top = 13
       Width = 97
       Height = 17
-      Caption = '&Force Repaint'
+      Caption = '&Antialias'
       Checked = True
       State = cbChecked
       TabOrder = 2
+      OnClick = CBAntiAliasClick
     end
-    object CBAntiAlias: TCheckBox
-      Left = 536
+    object TrackBar1: TTrackBar
+      Left = 608
+      Top = 9
+      Width = 150
+      Height = 26
+      Max = 30
+      Min = -5
+      TabOrder = 3
+      OnChange = TrackBar1Change
+    end
+    object CBFormatting: TCheckBox
+      Left = 352
       Top = 13
-      Width = 97
+      Width = 129
       Height = 17
-      Caption = '&Antialias'
+      Caption = 'Custom Formats'
       Checked = True
       State = cbChecked
-      TabOrder = 3
-      OnClick = CBAntiAliasClick
+      TabOrder = 4
+      OnClick = CBFormattingClick
     end
   end
   object TeeGrid1: TTeeGrid
@@ -85,8 +95,6 @@ object FormSpeed: TFormSpeed
     ParentBackground = False
     ParentColor = False
     TabOrder = 1
-    ExplicitWidth = 1013
-    ExplicitHeight = 641
     _Headers = (
       1
       'TColumnHeaderBand'

demos/VCL/Speed/Unit_Test_Speed.pas

@@ -13,7 +13,7 @@ interface
   Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
   Vcl.ExtCtrls,
 
-  VCLTee.Control, VCLTee.Grid;
+  VCLTee.Control, VCLTee.Grid, Vcl.ComCtrls;
 
 type
   TFormSpeed = class(TForm)
@@ -22,17 +22,21 @@   TFormSpeed = class(TForm)
     LabelResult: TLabel;
     TeeGrid1: TTeeGrid;
     ComboGraphics: TComboBox;
-    CBRepaint: TCheckBox;
     CBAntiAlias: TCheckBox;
+    TrackBar1: TTrackBar;
+    CBFormatting: TCheckBox;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure ComboGraphicsChange(Sender: TObject);
     procedure CBAntiAliasClick(Sender: TObject);
+    procedure TrackBar1Change(Sender: TObject);
+    procedure CBFormattingClick(Sender: TObject);
   private
     { Private declarations }
 
-    procedure Cosmetics;
+    procedure ClearCosmetics;
     procedure RunBenchmark;
+    procedure SetCosmetics;
   public
     { Public declarations }
   end;
@@ -99,6 +103,14 @@ procedure TFormSpeed.CBAntiAliasClick(Sender: TObject);
   {$ENDIF}
 end;
 
+procedure TFormSpeed.CBFormattingClick(Sender: TObject);
+begin
+  if CBFormatting.Checked then
+     SetCosmetics
+  else
+     ClearCosmetics;
+end;
+
 procedure TFormSpeed.ComboGraphicsChange(Sender: TObject);
 begin
   case ComboGraphics.ItemIndex of
@@ -122,11 +134,24 @@ procedure TFormSpeed.FormCreate(Sender: TObject);
   ComboGraphics.Items.Delete(2);
   {$IFEND}
 
-  Cosmetics;
+  SetCosmetics;
+end;
+
+// Remove custom column formatting settings
+procedure TFormSpeed.ClearCosmetics;
+var Column : TColumn;
+begin
+  for Column in TeeGrid1.Columns do
+  begin
+    Column.ParentFormat:=True;
+    Column.TextAlignment:=TColumnTextAlign.Automatic;
+  end;
+
+  TeeGrid1.Rows.ResetHeights;
 end;
 
 // Set some grid settings, just to test
-procedure TFormSpeed.Cosmetics;
+procedure TFormSpeed.SetCosmetics;
 
   procedure SetTextAlign(const AColumn:Integer; const AAlign:THorizontalAlign); overload;
   var Column : TColumn;
@@ -180,25 +205,31 @@ procedure TFormSpeed.Cosmetics;
 
   TeeGrid1.Columns[12].ParentFormat:=False;
   TeeGrid1.Columns[12].Format.Font.Name:='Courier New';
+
+  TeeGrid1.Columns[13].ParentFormat:=False;
+  TeeGrid1.Columns[13].Format.Stroke.Show;
+  TeeGrid1.Columns[13].Format.Stroke.Color:=clGreen;
 end;
 
 // Scroll through all grid cells, all rows and all columns
 procedure TFormSpeed.RunBenchmark;
-var Row,
-    Column :Integer;
+var Row : Integer;
+    Column : TColumn;
 begin
   for Row:=0 to TeeGrid1.Data.Count-1 do
-      for Column:=0 to TeeGrid1.Columns.Count-1 do
+      for Column in TeeGrid1.Columns do
       begin
         // Select one cell
-        TeeGrid1.Selected.Column:=TeeGrid1.Columns[Column];
+        TeeGrid1.Selected.Column:=Column;
         TeeGrid1.Selected.Row:=Row;
-
-        if CBRepaint.Checked then
-           TeeGrid1.Repaint;  // Force repaint at every cell
       end;
 end;
 
+procedure TFormSpeed.TrackBar1Change(Sender: TObject);
+begin
+  TeeGrid1.Rows.Spacing.Value:=TrackBar1.Position
+end;
+
 // Do the speed test and measure it
 procedure TFormSpeed.Button1Click(Sender: TObject);
 var t1 : TStopwatch;

demos/VCL/Speed/VCL_TeeGrid_Benchmark.dproj

@@ -4,7 +4,7 @@
         <ProjectVersion>20.1</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Release</Config>
+        <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Application</AppType>
@@ -114,6 +114,8 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
@@ -146,6 +148,12 @@
                 <Source>
                     <Source Name="MainSource">VCL_TeeGrid_Benchmark.dpr</Source>
                 </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp290.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
             </Delphi.Personality>
             <Deployment Version="4">
                 <DeployFile LocalName="Win32\Debug\VCL_TeeGrid_Benchmark.exe" Configuration="Debug" Class="ProjectOutput">