Fmx support

.gitignore

@@ -50,3 +50,18 @@ __recovery/
 
 Packages/Sydney/CBuilder/Win64/
 Packages/Sydney/cpp/
+*.o
+*.a
+*.d
+
+# Dev-only scripts #
+####################
+build.bat
+build_verbose.bat
+build_cpp.bat
+build_cpp_verbose.bat
+build_cpp_delphi_only.bat
+build_cpp_group.bat
+build_cpp_win64_test.bat
+build.ps1
+check_env.bat

Demos/FMX/EditApp/FMXEditApp.dpr

@@ -0,0 +1,13 @@
+program FMXEditApp;
+
+uses
+  System.StartUpCopy,
+  FMX.Forms,
+  uFMXEditAppMain in 'uFMXEditAppMain.pas' {FMXEditAppForm},
+  uHighlighterProcs in '..\..\uHighlighterProcs.pas';
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TFMXEditAppForm, FMXEditAppForm);
+  Application.Run;
+end.

Demos/FMX/EditApp/FMXEditApp.dproj

@@ -0,0 +1,106 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <Base>True</Base>
+        <AppType>Application</AppType>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+        <FrameworkType>FMX</FrameworkType>
+        <MainSource>FMXEditApp.dpr</MainSource>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <ProjectGuid>{B2C3D4E5-F6A7-8901-BCDE-F12345678901}</ProjectGuid>
+        <ProjectName Condition="'$(ProjectName)'==''">FMXEditApp</ProjectName>
+        <ProjectVersion>20.3</ProjectVersion>
+        <TargetedPlatforms>3</TargetedPlatforms>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <SanitizedProjectName>FMXEditApp</SanitizedProjectName>
+        <DCC_DcuOutput>..\dcu\$(Platform)\$(Config)\</DCC_DcuOutput>
+        <DCC_ExeOutput>..\bin\$(Platform)\$(Config)\</DCC_ExeOutput>
+        <DCC_Define>SYN_SHARED;$(DCC_Define)</DCC_Define>
+        <DCC_Namespace>FMX;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_UnitSearchPath>..\..\..\Source;..\..\..\Source\FMX;..\..\..\Source\Highlighters;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+        <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+        <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="uFMXEditAppMain.pas">
+            <Form>FMXEditAppForm</Form>
+            <FormType>fmx</FormType>
+        </DCCReference>
+        <DCCReference Include="..\..\uHighlighterProcs.pas"/>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Application</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">FMXEditApp.dpr</Source>
+                </Source>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">True</Platform>
+            </Platforms>
+        </BorlandProject>
+    </ProjectExtensions>
+</Project>

Demos/FMX/EditApp/uFMXEditAppMain.fmx

@@ -0,0 +1,124 @@
+object FMXEditAppForm: TFMXEditAppForm
+  Left = 0
+  Top = 0
+  Caption = 'Untitled - SynEdit FMX'
+  ClientHeight = 600
+  ClientWidth = 900
+  FormFactor.Width = 320
+  FormFactor.Height = 480
+  FormFactor.Devices = [Desktop]
+  OnCreate = FormCreate
+  DesignerMasterStyle = 0
+  object MenuBar1: TMenuBar
+    Size.Width = 900.000000000000000000
+    Size.Height = 25.000000000000000000
+    Size.PlatformDefault = False
+    object MenuFile: TMenuItem
+      Text = 'File'
+      object MenuNew: TMenuItem
+        Text = 'New'
+        ShortCut = 16462
+        OnClick = MenuNewClick
+      end
+      object MenuOpen: TMenuItem
+        Text = 'Open...'
+        ShortCut = 16463
+        OnClick = MenuOpenClick
+      end
+      object MenuSave: TMenuItem
+        Text = 'Save'
+        ShortCut = 16467
+        OnClick = MenuSaveClick
+      end
+      object MenuSaveAs: TMenuItem
+        Text = 'Save As...'
+        OnClick = MenuSaveAsClick
+      end
+      object MenuSep1: TMenuItem
+        Text = '-'
+      end
+      object MenuExit: TMenuItem
+        Text = 'Exit'
+        ShortCut = 32883
+        OnClick = MenuExitClick
+      end
+    end
+    object MenuEdit: TMenuItem
+      Text = 'Edit'
+      object MenuUndo: TMenuItem
+        Text = 'Undo'
+        ShortCut = 16474
+        OnClick = MenuUndoClick
+      end
+      object MenuRedo: TMenuItem
+        Text = 'Redo'
+        ShortCut = 24666
+        OnClick = MenuRedoClick
+      end
+      object MenuSep2: TMenuItem
+        Text = '-'
+      end
+      object MenuCut: TMenuItem
+        Text = 'Cut'
+        ShortCut = 16472
+        OnClick = MenuCutClick
+      end
+      object MenuCopy: TMenuItem
+        Text = 'Copy'
+        ShortCut = 16451
+        OnClick = MenuCopyClick
+      end
+      object MenuPaste: TMenuItem
+        Text = 'Paste'
+        ShortCut = 16470
+        OnClick = MenuPasteClick
+      end
+      object MenuSep3: TMenuItem
+        Text = '-'
+      end
+      object MenuSelectAll: TMenuItem
+        Text = 'Select All'
+        ShortCut = 16449
+        OnClick = MenuSelectAllClick
+      end
+    end
+  end
+  object PanelStatus: TPanel
+    Align = Bottom
+    Position.Y = 575.000000000000000000
+    Size.Width = 900.000000000000000000
+    Size.Height = 25.000000000000000000
+    Size.PlatformDefault = False
+    object LabelPos: TLabel
+      Align = Left
+      Size.Width = 200.000000000000000000
+      Size.Height = 25.000000000000000000
+      Size.PlatformDefault = False
+      TextSettings.HorzAlign = Leading
+      Margins.Left = 8.000000000000000000
+      Text = 'Ln: 1  Col: 1'
+    end
+    object LabelInsert: TLabel
+      Align = Left
+      Size.Width = 100.000000000000000000
+      Size.Height = 25.000000000000000000
+      Size.PlatformDefault = False
+      TextSettings.HorzAlign = Center
+      Text = 'Insert'
+    end
+    object LabelModified: TLabel
+      Align = Left
+      Size.Width = 100.000000000000000000
+      Size.Height = 25.000000000000000000
+      Size.PlatformDefault = False
+      TextSettings.HorzAlign = Center
+      Text = ''
+    end
+  end
+  object OpenDialog1: TOpenDialog
+    Filter = 'All Files (*.*)|*.*'
+  end
+  object SaveDialog1: TSaveDialog
+    Filter = 'All Files (*.*)|*.*'
+  end
+end