From 85dd9bc35dec1c1336025e7fc574b868ce51d827 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 25 Jan 2016 23:12:48 +0000
Subject: [PATCH] fpspreadsheet: Add BiDiMode to TCell record helper.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4473 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpscell.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/components/fpspreadsheet/fpscell.pas b/components/fpspreadsheet/fpscell.pas
index d86ebd85e..9f35da083 100644
--- a/components/fpspreadsheet/fpscell.pas
+++ b/components/fpspreadsheet/fpscell.pas
@@ -12,6 +12,7 @@ type
   TCellHelper = record helper for TCell
   private
     function GetBackgroundColor: TsColor;
+    function GetBiDiMode: TsBiDiMode;
     function GetBorder: TsCellBorders;
     function GetBorderStyle(const ABorder: TsCellBorder): TsCellBorderStyle;
     function GetBorderStyles: TsCellBorderStyles;
@@ -28,6 +29,7 @@ type
     function GetVertAlignment: TsVertAlignment;
     function GetWordwrap: Boolean;
     procedure SetBackgroundColor(const AValue: TsColor);
+    procedure SetBiDiMode(const AValue: TsBiDiMode);
     procedure SetBorder(const AValue: TsCellBorders);
     procedure SetBorderStyle(const ABorder: TsCellBorder; const AValue: TsCellBorderStyle);
     procedure SetBorderStyles(const AValue: TsCellBorderStyles);
@@ -50,6 +52,8 @@ type
   public
     property BackgroundColor: TsColor
       read GetBackgroundColor write SetBackgroundColor;
+    property BiDiMode: TsBiDiMode
+      read GetBiDiMode write SetBiDiMode;
     property Border: TsCellBorders
       read GetBorder write SetBorder;
     property BorderStyle[ABorder: TsCellBorder]: TsCellBorderStyle
@@ -89,6 +93,11 @@ begin
   Result := GetWorksheet.ReadBackgroundColor(@self);
 end;
 
+function TCellHelper.GetBiDiMode: TsBiDiMode;
+begin
+  Result := GetWorksheet.ReadBiDiMode(@self);
+end;
+
 function TCellHelper.GetBorder: TsCellBorders;
 begin
   Result := GetWorksheet.ReadCellBorders(@self);
@@ -188,6 +197,11 @@ begin
   GetWorksheet.WriteBackgroundColor(@self, AValue);
 end;
 
+procedure TCellHelper.SetBiDiMode(const AValue: TsBiDiMode);
+begin
+  GetWorksheet.WriteBiDiMode(@self, AValue);
+end;
+
 procedure TCellHelper.SetBorder(const AValue: TsCellBorders);
 begin
   GetWorksheet.WriteBorders(@self, AValue);