NiceGrid: Initial commit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8841 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/nicegrid/demos/Synchronized/Project_Delphi/synchronized_demo.dpr

@@ -0,0 +1,13 @@
+program Synchronized_Demo;
+
+uses
+  Forms,
+  Main in '..\common\main.pas' {MainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.

components/nicegrid/demos/Synchronized/Project_Delphi/synchronized_demo.dproj

@@ -0,0 +1,137 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{620AEB0E-F025-456F-A5D2-80637ACC3A71}</ProjectGuid>
+        <MainSource>synchronized_demo.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Application</AppType>
+        <FrameworkType>VCL</FrameworkType>
+        <ProjectVersion>19.5</ProjectVersion>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+    </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="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <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="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_E>false</DCC_E>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <DCC_N>true</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_ImageBase>00400000</DCC_ImageBase>
+        <DCC_DebugInformation>1</DCC_DebugInformation>
+        <DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+        <DCC_UnitSearchPath>..\..\..\source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+        <DCC_UsePackage>vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;vclshlctrls;$(DCC_UsePackage)</DCC_UsePackage>
+        <SanitizedProjectName>synchronized_demo</SanitizedProjectName>
+        <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Locale>1031</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_RangeChecking>true</DCC_RangeChecking>
+        <DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="..\common\main.pas">
+            <Form>MainForm</Form>
+        </DCCReference>
+        <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>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">synchronized_demo.dpr</Source>
+                </Source>
+                <Language>
+                    <Language Name="RootDir">..\..\..\..\Prog_Lazarus\svn\lazarus-ccr\components\nicegrid\Demos\Synchronized\Project_Delphi\</Language>
+                </Language>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+</Project>

components/nicegrid/demos/Synchronized/Project_Lazarus/synchronized_demo.lpi

@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+        <CompatibilityMode Value="True"/>
+      </Flags>
+      <Title Value="synchronized_demo"/>
+      <UseXPManifest Value="True"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <BuildModes Count="1">
+      <Item1 Name="default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
+    </RunParams>
+    <RequiredPackages Count="1">
+      <Item1>
+        <PackageName Value="NiceGridLaz"/>
+      </Item1>
+    </RequiredPackages>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="synchronized_demo.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="Synchronized_Demo"/>
+        <EditorIndex Value="1"/>
+        <CursorPos X="21" Y="5"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="..\common\main.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="MainForm"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="Main"/>
+        <IsVisibleTab Value="True"/>
+        <CursorPos X="19" Y="8"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit1>
+    </Units>
+    <JumpHistory HistoryIndex="-1"/>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="..\common"/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+      <ObjectPath Value="..\.."/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

components/nicegrid/demos/Synchronized/Project_Lazarus/synchronized_demo.lpr

@@ -0,0 +1,16 @@
+program Synchronized_Demo;
+
+{$MODE Delphi}
+
+uses
+  Interfaces,
+  Forms,
+  Main in 'main.pas' {MainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.

components/nicegrid/demos/Synchronized/common/main.dfm

@@ -0,0 +1,188 @@
+object MainForm: TMainForm
+  Left = 260
+  Top = 99
+  Width = 719
+  Height = 570
+  Caption = 'Tabel Budget'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poDesktopCenter
+  DesignSize = (
+    703
+    531)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 16
+    Top = 16
+    Width = 678
+    Height = 504
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Splitter1: TSplitter
+      Left = 329
+      Top = 0
+      Width = 5
+      Height = 504
+    end
+    object NiceGrid1: TNiceGrid
+      Left = 334
+      Top = 0
+      Width = 344
+      Height = 504
+      Cursor = 101
+      ColCount = 12
+      RowCount = 20
+      GridColor = clSilver
+      HeaderLine = 2
+      HeaderFont.Charset = DEFAULT_CHARSET
+      HeaderFont.Color = clWindowText
+      HeaderFont.Height = -11
+      HeaderFont.Name = 'MS Sans Serif'
+      HeaderFont.Style = []
+      FooterFont.Charset = DEFAULT_CHARSET
+      FooterFont.Color = clWindowText
+      FooterFont.Height = -11
+      FooterFont.Name = 'MS Sans Serif'
+      FooterFont.Style = []
+      Columns = <
+        item
+          Title = '0|Capital'
+          Width = 80
+          Color = 16775924
+        end
+        item
+          Title = '0|Non Capital'
+          Width = 80
+          Color = 16773601
+        end
+        item
+          Title = '2000|Capital'
+          Width = 80
+          Color = 16775924
+        end
+        item
+          Title = '2000|Non Capital'
+          Width = 80
+          Color = 16773601
+        end
+        item
+          Title = '2001|Capital'
+          Width = 80
+          Color = 16775924
+        end
+        item
+          Title = '2001|Non Capital'
+          Width = 80
+          Color = 16773601
+        end
+        item
+          Title = '2002|Capital'
+          Width = 80
+          Color = 16775924
+        end
+        item
+          Title = '2002|Non Capital'
+          Width = 80
+          Color = 16773601
+        end
+        item
+          Title = '2003|Capital'
+          Width = 80
+          Color = 16775924
+        end
+        item
+          Title = '2003|Non Capital'
+          Width = 80
+          Color = 16773601
+        end
+        item
+          Title = '2004|Capital'
+          Width = 80
+          Color = 16775924
+        end
+        item
+          Title = '2004|Non Capital'
+          Width = 80
+          Color = 16773601
+        end>
+      GutterKind = gkNone
+      GutterWidth = 40
+      GutterFont.Charset = DEFAULT_CHARSET
+      GutterFont.Color = clWindowText
+      GutterFont.Height = -11
+      GutterFont.Name = 'MS Sans Serif'
+      GutterFont.Style = []
+      ShowFooter = False
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      Align = alClient
+      TabOrder = 0
+    end
+    object NiceGridSync1: TNiceGridSync
+      Left = 0
+      Top = 0
+      Width = 329
+      Height = 504
+      Cursor = 101
+      ColCount = 3
+      RowCount = 20
+      AutoAddRow = True
+      GridColor = clSilver
+      HeaderLine = 2
+      HeaderFont.Charset = DEFAULT_CHARSET
+      HeaderFont.Color = clWindowText
+      HeaderFont.Height = -11
+      HeaderFont.Name = 'MS Sans Serif'
+      HeaderFont.Style = []
+      FooterFont.Charset = DEFAULT_CHARSET
+      FooterFont.Color = clWindowText
+      FooterFont.Height = -11
+      FooterFont.Name = 'MS Sans Serif'
+      FooterFont.Style = []
+      FitToWidth = True
+      Columns = <
+        item
+          Title = 'Unit Name'
+          Width = 135
+        end
+        item
+          Title = 'Unit Cost|Capital'
+          Width = 80
+          Color = 15790335
+          CanResize = False
+        end
+        item
+          Title = 'Unit Cost|Non Capital'
+          Width = 80
+          Color = 14671871
+          CanResize = False
+        end>
+      GutterKind = gkNumber
+      GutterWidth = 30
+      GutterFont.Charset = DEFAULT_CHARSET
+      GutterFont.Color = clWindowText
+      GutterFont.Height = -11
+      GutterFont.Name = 'MS Sans Serif'
+      GutterFont.Style = []
+      ShowFooter = False
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      Align = alLeft
+      TabOrder = 1
+      Grid = NiceGrid1
+    end
+  end
+end

components/nicegrid/demos/Synchronized/common/main.lfm

@@ -0,0 +1,153 @@
+object MainForm: TMainForm
+  Left = 260
+  Height = 570
+  Top = 99
+  Width = 719
+  Caption = 'Tabel Budget'
+  ClientHeight = 570
+  ClientWidth = 719
+  Position = poDesktopCenter
+  LCLVersion = '2.3.0.0'
+  object Panel1: TPanel
+    Left = 16
+    Height = 504
+    Top = 16
+    Width = 678
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BevelOuter = bvNone
+    ClientHeight = 504
+    ClientWidth = 678
+    TabOrder = 0
+    object Splitter1: TSplitter
+      Left = 329
+      Height = 504
+      Top = 0
+      Width = 5
+    end
+    object NiceGrid1: TNiceGrid
+      Cursor = 101
+      Left = 334
+      Height = 504
+      Top = 0
+      Width = 344
+      ColCount = 12
+      RowCount = 20
+      GridColor = clSilver
+      HeaderLine = 2
+      HeaderFont.Height = -11
+      HeaderFont.Name = 'MS Sans Serif'
+      FooterFont.Height = -11
+      FooterFont.Name = 'MS Sans Serif'
+      Columns = <      
+        item
+          Title = '0|Capital'
+          Width = 80
+          Color = 16775924
+        end      
+        item
+          Title = '0|Non Capital'
+          Width = 80
+          Color = 16773601
+        end      
+        item
+          Title = '2000|Capital'
+          Width = 80
+          Color = 16775924
+        end      
+        item
+          Title = '2000|Non Capital'
+          Width = 80
+          Color = 16773601
+        end      
+        item
+          Title = '2001|Capital'
+          Width = 80
+          Color = 16775924
+        end      
+        item
+          Title = '2001|Non Capital'
+          Width = 80
+          Color = 16773601
+        end      
+        item
+          Title = '2002|Capital'
+          Width = 80
+          Color = 16775924
+        end      
+        item
+          Title = '2002|Non Capital'
+          Width = 80
+          Color = 16773601
+        end      
+        item
+          Title = '2003|Capital'
+          Width = 80
+          Color = 16775924
+        end      
+        item
+          Title = '2003|Non Capital'
+          Width = 80
+          Color = 16773601
+        end      
+        item
+          Title = '2004|Capital'
+          Width = 80
+          Color = 16775924
+        end      
+        item
+          Title = '2004|Non Capital'
+          Width = 80
+          Color = 16773601
+        end>
+      GutterKind = gkNone
+      GutterWidth = 40
+      GutterFont.Height = -11
+      GutterFont.Name = 'MS Sans Serif'
+      ShowFooter = False
+      Align = alClient
+      TabOrder = 0
+    end
+    object NiceGridSync1: TNiceGridSync
+      Cursor = 101
+      Left = 0
+      Height = 504
+      Top = 0
+      Width = 329
+      ColCount = 3
+      RowCount = 20
+      AutoAddRow = True
+      GridColor = clSilver
+      HeaderLine = 2
+      HeaderFont.Height = -11
+      HeaderFont.Name = 'MS Sans Serif'
+      FooterFont.Height = -11
+      FooterFont.Name = 'MS Sans Serif'
+      FitToWidth = True
+      Columns = <      
+        item
+          Title = 'Unit Name'
+          Width = 135
+        end      
+        item
+          Title = 'Unit Cost|Capital'
+          Width = 80
+          Color = 15790335
+          CanResize = False
+        end      
+        item
+          Title = 'Unit Cost|Non Capital'
+          Width = 80
+          Color = 14671871
+          CanResize = False
+        end>
+      GutterKind = gkNumber
+      GutterWidth = 30
+      GutterFont.Height = -11
+      GutterFont.Name = 'MS Sans Serif'
+      ShowFooter = False
+      Align = alLeft
+      TabOrder = 1
+      Grid = NiceGrid1
+    end
+  end
+end

components/nicegrid/demos/Synchronized/common/main.pas

@@ -0,0 +1,36 @@
+unit Main;
+
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+interface
+
+uses
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, NiceGrid, StdCtrls;
+
+type
+  TMainForm = class(TForm)
+    Panel1: TPanel;
+    Splitter1: TSplitter;
+    NiceGrid1: TNiceGrid;
+    NiceGridSync1: TNiceGridSync;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MainForm: TMainForm;
+
+implementation
+
+{$IFDEF FPC}
+ {$R *.lfm}
+{$ELSE}
+ {$R *.dfm}
+{$ENDIF}
+
+end.