fpspreadsheet: Add some cell border buttons to the fpsgrid demo of TsWorksheetGrid.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3027 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2014-05-08 15:33:25 +00:00
parent 8c95f13bc8
commit 79a4dd708f
4 changed files with 1976 additions and 842 deletions
--- a/components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi
+++ b/components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi
@ -116,7 +116,7 @@
        <WindowIndex Value="0"/>
        <TopLine Value="1"/>
        <CursorPos X="10" Y="7"/>
-        <UsageCount Value="156"/>
+        <UsageCount Value="157"/>
        <Loaded Value="True"/>
      </Unit0>
      <Unit1>
@ -129,11 +129,11 @@
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="1"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="379"/>
-        <CursorPos X="36" Y="405"/>
-        <UsageCount Value="156"/>
+        <TopLine Value="410"/>
+        <CursorPos X="25" Y="429"/>
+        <UsageCount Value="157"/>
        <Bookmarks Count="1">
-          <Item0 X="17" Y="382" ID="1"/>
+          <Item0 X="17" Y="438" ID="1"/>
        </Bookmarks>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
@ -143,8 +143,8 @@
        <UnitName Value="fpspreadsheet"/>
        <EditorIndex Value="4"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="136"/>
-        <CursorPos X="38" Y="161"/>
+        <TopLine Value="273"/>
+        <CursorPos X="15" Y="381"/>
        <UsageCount Value="73"/>
        <Loaded Value="True"/>
      </Unit2>
@ -153,8 +153,8 @@
        <UnitName Value="fpspreadsheetgrid"/>
        <EditorIndex Value="3"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="753"/>
-        <CursorPos X="29" Y="796"/>
+        <TopLine Value="70"/>
+        <CursorPos X="15" Y="67"/>
        <UsageCount Value="74"/>
        <Loaded Value="True"/>
      </Unit3>
@ -490,124 +490,124 @@
    </Units>
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
-        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="84" Column="51" TopLine="71"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="403" Column="36" TopLine="377"/>
      </Position1>
      <Position2>
        <Filename Value="mainform.pas"/>
-        <Caret Line="129" Column="57" TopLine="123"/>
+        <Caret Line="404" Column="36" TopLine="378"/>
      </Position2>
      <Position3>
-        <Filename Value="..\..\fpspreadsheet.pas"/>
-        <Caret Line="218" Column="17" TopLine="146"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="405" Column="36" TopLine="379"/>
      </Position3>
      <Position4>
        <Filename Value="mainform.pas"/>
-        <Caret Line="129" Column="57" TopLine="123"/>
+        <Caret Line="406" Column="36" TopLine="380"/>
      </Position4>
      <Position5>
        <Filename Value="mainform.pas"/>
-        <Caret Line="130" Column="57" TopLine="124"/>
+        <Caret Line="407" Column="36" TopLine="381"/>
      </Position5>
      <Position6>
        <Filename Value="mainform.pas"/>
-        <Caret Line="131" Column="57" TopLine="125"/>
+        <Caret Line="408" Column="36" TopLine="382"/>
      </Position6>
      <Position7>
        <Filename Value="mainform.pas"/>
-        <Caret Line="132" Column="57" TopLine="126"/>
+        <Caret Line="409" Column="36" TopLine="383"/>
      </Position7>
      <Position8>
        <Filename Value="mainform.pas"/>
-        <Caret Line="134" Column="57" TopLine="128"/>
+        <Caret Line="410" Column="36" TopLine="384"/>
      </Position8>
      <Position9>
        <Filename Value="mainform.pas"/>
-        <Caret Line="216" Column="7" TopLine="188"/>
+        <Caret Line="417" Column="36" TopLine="391"/>
      </Position9>
      <Position10>
        <Filename Value="mainform.pas"/>
-        <Caret Line="394" Column="36" TopLine="368"/>
+        <Caret Line="121" Column="15" TopLine="107"/>
      </Position10>
      <Position11>
        <Filename Value="mainform.pas"/>
-        <Caret Line="395" Column="36" TopLine="369"/>
+        <Caret Line="122" Column="15" TopLine="108"/>
      </Position11>
      <Position12>
        <Filename Value="mainform.pas"/>
-        <Caret Line="396" Column="36" TopLine="370"/>
+        <Caret Line="123" Column="15" TopLine="109"/>
      </Position12>
      <Position13>
        <Filename Value="mainform.pas"/>
-        <Caret Line="397" Column="36" TopLine="371"/>
+        <Caret Line="124" Column="15" TopLine="110"/>
      </Position13>
      <Position14>
        <Filename Value="mainform.pas"/>
-        <Caret Line="398" Column="36" TopLine="372"/>
+        <Caret Line="125" Column="15" TopLine="111"/>
      </Position14>
      <Position15>
        <Filename Value="mainform.pas"/>
-        <Caret Line="399" Column="36" TopLine="373"/>
+        <Caret Line="126" Column="15" TopLine="112"/>
      </Position15>
      <Position16>
        <Filename Value="mainform.pas"/>
-        <Caret Line="400" Column="36" TopLine="374"/>
+        <Caret Line="127" Column="15" TopLine="113"/>
      </Position16>
      <Position17>
        <Filename Value="mainform.pas"/>
-        <Caret Line="401" Column="36" TopLine="375"/>
+        <Caret Line="128" Column="15" TopLine="114"/>
      </Position17>
      <Position18>
        <Filename Value="mainform.pas"/>
-        <Caret Line="402" Column="36" TopLine="376"/>
+        <Caret Line="162" Column="18" TopLine="147"/>
      </Position18>
      <Position19>
        <Filename Value="mainform.pas"/>
-        <Caret Line="403" Column="36" TopLine="377"/>
+        <Caret Line="165" Column="29" TopLine="150"/>
      </Position19>
      <Position20>
        <Filename Value="mainform.pas"/>
-        <Caret Line="402" Column="36" TopLine="376"/>
+        <Caret Line="162" Column="6" TopLine="153"/>
      </Position20>
      <Position21>
        <Filename Value="mainform.pas"/>
-        <Caret Line="401" Column="36" TopLine="375"/>
+        <Caret Line="174" Column="19" TopLine="159"/>
      </Position21>
      <Position22>
        <Filename Value="mainform.pas"/>
-        <Caret Line="400" Column="36" TopLine="374"/>
+        <Caret Line="176" Column="46" TopLine="159"/>
      </Position22>
      <Position23>
        <Filename Value="mainform.pas"/>
-        <Caret Line="399" Column="36" TopLine="373"/>
+        <Caret Line="179" Column="18" TopLine="161"/>
      </Position23>
      <Position24>
        <Filename Value="mainform.pas"/>
-        <Caret Line="398" Column="36" TopLine="372"/>
+        <Caret Line="176" Column="41" TopLine="157"/>
      </Position24>
      <Position25>
        <Filename Value="mainform.pas"/>
-        <Caret Line="399" Column="36" TopLine="373"/>
+        <Caret Line="181" Column="46" TopLine="157"/>
      </Position25>
      <Position26>
        <Filename Value="mainform.pas"/>
-        <Caret Line="400" Column="36" TopLine="374"/>
+        <Caret Line="187" Column="84" TopLine="163"/>
      </Position26>
      <Position27>
        <Filename Value="mainform.pas"/>
-        <Caret Line="401" Column="36" TopLine="375"/>
+        <Caret Line="181" Column="19" TopLine="164"/>
      </Position27>
      <Position28>
        <Filename Value="mainform.pas"/>
-        <Caret Line="402" Column="36" TopLine="376"/>
+        <Caret Line="180" Column="27" TopLine="165"/>
      </Position28>
      <Position29>
        <Filename Value="mainform.pas"/>
-        <Caret Line="403" Column="36" TopLine="377"/>
+        <Caret Line="181" Column="30" TopLine="166"/>
      </Position29>
      <Position30>
        <Filename Value="mainform.pas"/>
-        <Caret Line="404" Column="36" TopLine="378"/>
+        <Caret Line="425" Column="12" TopLine="410"/>
      </Position30>
    </JumpHistory>
  </ProjectOptions>
--- a/components/fpspreadsheet/examples/fpsgrid/mainform.lfm
+++ b/components/fpspreadsheet/examples/fpsgrid/mainform.lfm
@ -1,11 +1,11 @@
 object Form1: TForm1
  Left = 370
-  Height = 386
+  Height = 406
  Top = 258
-  Width = 518
+  Width = 636
  Caption = 'fpsGrid'
-  ClientHeight = 361
-  ClientWidth = 518
+  ClientHeight = 381
+  ClientWidth = 636
  Menu = MainMenu1
  OnActivate = FormActivate
  OnCreate = FormCreate
@ -14,12 +14,12 @@ object Form1: TForm1
  object Panel1: TPanel
    Left = 0
    Height = 73
-    Top = 288
-    Width = 518
+    Top = 308
+    Width = 636
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 73
-    ClientWidth = 518
+    ClientWidth = 636
    TabOrder = 0
    object CbShowHeaders: TCheckBox
      Left = 8
@ -80,9 +80,9 @@ object Form1: TForm1
  end
  object PageControl1: TPageControl
    Left = 0
-    Height = 230
+    Height = 250
    Top = 58
-    Width = 518
+    Width = 636
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
@ -90,13 +90,13 @@ object Form1: TForm1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Sheet1'
-      ClientHeight = 197
-      ClientWidth = 510
+      ClientHeight = 217
+      ClientWidth = 628
      object sWorksheetGrid1: TsWorksheetGrid
        Left = 0
-        Height = 197
+        Height = 217
        Top = 0
-        Width = 510
+        Width = 628
        FrozenCols = 0
        FrozenRows = 0
        Align = alClient
@ -118,7 +118,7 @@ object Form1: TForm1
    Left = 0
    Height = 26
    Top = 0
-    Width = 518
+    Width = 636
    ButtonHeight = 24
    Caption = 'ToolBar1'
    EdgeBorders = []
@ -162,7 +162,7 @@ object Form1: TForm1
  object FormatToolBar: TToolBar
    Left = 0
    Top = 26
-    Width = 518
+    Width = 636
    ButtonHeight = 28
    Caption = 'FormatToolBar'
    Images = ImageList1
@ -261,6 +261,43 @@ object Form1: TForm1
      Top = 2
      Action = AcVAlignBottom
    end
+    object ToolButton19: TToolButton
+      Left = 416
+      Top = 2
+      Width = 5
+      Caption = 'ToolButton19'
+      Style = tbsDivider
+    end
+    object ToolButton20: TToolButton
+      Left = 421
+      Top = 2
+      Action = AcBorderLeft
+    end
+    object ToolButton21: TToolButton
+      Left = 444
+      Top = 2
+      Action = AcBorderTop
+    end
+    object ToolButton22: TToolButton
+      Left = 467
+      Top = 2
+      Action = AcBorderBottom
+    end
+    object ToolButton23: TToolButton
+      Left = 490
+      Top = 2
+      Action = AcBorderBottomDbl
+    end
+    object ToolButton24: TToolButton
+      Left = 513
+      Top = 2
+      Action = AcBorderBottomMedium
+    end
+    object ToolButton25: TToolButton
+      Left = 536
+      Top = 2
+      Action = AcBorderRight
+    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.xls'
@ -453,6 +490,42 @@ object Form1: TForm1
      Caption = 'Format'
      object MnuFOnt: TMenuItem
        Action = AcFont
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CE68
+          38AEDA8F5DFEDB9060FFD78350EDC4502B8DBD422310BC3F222AC34D2BA2D071
+          42EAD67E51FFD57C4DFFC65531BDB6391D31FFFFFF00FFFFFF00FFFFFF00CA5C
+          2F0ACB5F3044E1A475FFDA8C58ECC6522C3DFFFFFF00FFFFFF00BF452413C348
+          277FDC966BFFDB8F60FFBD3F2154B6381E02FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00CB5D3001D3743F9BE2A97CFFCC663799FFFFFF00FFFFFF00FFFFFF00CC63
+          37B1DFA077FFDA895AFFBB3E2222FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00CC633215DB935EEAE2A779FFD8834AD3CF6A3AB2CE6839B5D57A
+          45D8E3A881FFD98656F9BE41231BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00CF6A365CDF9D68F6DA8B52D1CB5F314EC7592E2ACD67
+          37A0E1A67AFFD88653F2BF46250DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00D06A3503D78042AADF9F6AF7CD663466C95D2F0ACC61
+          3388E1A679FFD57A44D2C24A2706FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00D1713822DE9B63E2DC965EDFCF693554CF69
+          3580E2A97CFFD16C3AA5FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4793C77E2A670F7DA8847ADD67E
+          43A0E4AE82FFCF6D3A99FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D67D3B1CDD9656BAE3A973F2E1A8
+          73F5E1A471F7D3773E98CB5F3008FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D7833E53E2A76CDEE9BC91FFE7BA
+          8FFFE7B78BFFE2A471FBD67E42B6CB5C2F0AFFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D8874040D88B4385DA8E4994D989
+          438FD8844090D884419AD3733A8ACC62320DC95B2E01FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+        }
      end
      object MnuHorAlignment: TMenuItem
        Caption = 'Horizontal alignment'
@ -464,12 +537,120 @@ object Form1: TForm1
        end
        object MenuItem3: TMenuItem
          Action = AcLeftAlign
+          Bitmap.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF003C3C3CFF353535FF2F2F2FFF292929FF242424FF1E1E1EFF191919FF1414
+            14FF0F0F0FFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF004A4A4AFF444444FF3E3E3EFF383838FF323232FF2C2C2CFF262626FF2020
+            20FF1B1B1BFF161616FF111111FF0C0C0CFFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00585858FF525252FF4C4C4CFF464646FF404040FF3A3A3AFF343434FF2E2E
+            2EFF282828FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00646464FF5F5F5FFF5A5A5AFF545454FF4F4F4FFF494949FF434343FF3D3D
+            3DFF373737FF313131FF2B2B2BFF252525FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF006F6F6FFF6B6B6BFF666666FF616161FF5C5C5CFF575757FF515151FF4B4B
+            4BFF454545FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00767676FF747474FF707070FF6C6C6CFF686868FF636363FF5E5E5EFF5959
+            59FF535353FF4E4E4EFF484848FF424242FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
        end
        object MenuItem4: TMenuItem
          Action = AcHorCenterAlign
+          Bitmap.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF003535356B2F2F2FFF292929FF242424FF1E1E1EFF191919FF1414
+            14FF0F0F0FFF0B0B0BFF0707076BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF004A4A4AFF444444FF3E3E3EFF383838FF323232FF2C2C2CFF262626FF2020
+            20FF1B1B1BFF161616FF111111FF0C0C0CFFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF005252526B4C4C4CFF464646FF404040FF3A3A3AFF343434FF2E2E
+            2EFF282828FF232323FF1D1D1D6BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00646464FF5F5F5FFF5A5A5AFF545454FF4F4F4FFF494949FF434343FF3D3D
+            3DFF373737FF313131FF2B2B2BFF252525FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF006B6B6B6B666666FF616161FF5C5C5CFF575757FF515151FF4B4B
+            4BFF454545FF3F3F3FFF3939396BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00767676FF747474FF707070FF6C6C6CFF686868FF636363FF5E5E5EFF5959
+            59FF535353FF4E4E4EFF484848FF424242FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
        end
        object MenuItem5: TMenuItem
          Action = AcRightAlign
+          Bitmap.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00292929FF242424FF1E1E1EFF191919FF1414
+            14FF0F0F0FFF0B0B0BFF070707FF030303FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF004A4A4AFF444444FF3E3E3EFF383838FF323232FF2C2C2CFF262626FF2020
+            20FF1B1B1BFF161616FF111111FF0C0C0CFFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00464646FF404040FF3A3A3AFF343434FF2E2E
+            2EFF282828FF232323FF1D1D1DFF181818FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00646464FF5F5F5FFF5A5A5AFF545454FF4F4F4FFF494949FF434343FF3D3D
+            3DFF373737FF313131FF2B2B2BFF252525FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00616161FF5C5C5CFF575757FF515151FF4B4B
+            4BFF454545FF3F3F3FFF393939FF333333FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00767676FF747474FF707070FF6C6C6CFF686868FF636363FF5E5E5EFF5959
+            59FF535353FF4E4E4EFF484848FF424242FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
        end
      end
      object MnuVertAlignment: TMenuItem
@ -482,12 +663,120 @@ object Form1: TForm1
        end
        object MnuVertTop: TMenuItem
          Action = AcVAlignTop
+          Bitmap.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF003B3B3B00343434002E2E2E0028282800232323001D1D1D00181818001313
+            13000F0F0F000B0B0B000707070003030300FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF0049494900434343003D3D3D0037373700313131002B2B2B00252525001F1F
+            1F001A1A1A0015151500111111000C0C0C00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF0057575700515151004B4B4B00454545003F3F3F0039393900333333002D2D
+            2D0027272700222222001C1C1C0017171700FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00636363005E5E5E0059595900535353004E4E4E0048484800424242003C3C
+            3C0036363600303030002A2A2A0024242400FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF006E6E6EFF6A6A6AFF656565FF606060FF5B5B5BFF565656FF505050FF4A4A
+            4AFF444444FF3E3E3EFF383838FF323232FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00757575FF737373FF6F6F6FFF6B6B6BFF676767FF626262FF5D5D5DFF5858
+            58FF525252FF4D4D4DFF474747FF414141FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
        end
        object MnuVertCentered: TMenuItem
          Action = AcVAlignCenter
+          Bitmap.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF003B3B3B00343434002E2E2E0028282800232323001D1D1D00181818001313
+            13000F0F0F000B0B0B000707070003030300FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF0049494900434343003D3D3D0037373700313131002B2B2B00252525001F1F
+            1F001A1A1A0015151500111111000C0C0C00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00575757FF515151FF4B4B4BFF454545FF3F3F3FFF393939FF333333FF2D2D
+            2DFF272727FF222222FF1C1C1CFF171717FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00636363FF5E5E5EFF595959FF535353FF4E4E4EFF484848FF424242FF3C3C
+            3CFF363636FF303030FF2A2A2AFF242424FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF006E6E6E006A6A6A0065656500606060005B5B5B0056565600505050004A4A
+            4A00444444003E3E3E003838380032323200FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF0075757500737373006F6F6F006B6B6B0067676700626262005D5D5D005858
+            5800525252004D4D4D004747470041414100FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
        end
        object MnuVertBottom: TMenuItem
          Action = AcVAlignBottom
+          Bitmap.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF003B3B3BFF343434FF2E2E2EFF282828FF232323FF1D1D1DFF181818FF1313
+            13FF0F0F0FFF0B0B0BFF070707FF030303FFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00494949FF434343FF3D3D3DFF373737FF313131FF2B2B2BFF252525FF1F1F
+            1FFF1A1A1AFF151515FF111111FF0C0C0CFFFFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF0057575700515151004B4B4B00454545003F3F3F0039393900333333002D2D
+            2D0027272700222222001C1C1C0017171700FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00636363005E5E5E0059595900535353004E4E4E0048484800424242003C3C
+            3C0036363600303030002A2A2A0024242400FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF006E6E6E006A6A6A0065656500606060005B5B5B0056565600505050004A4A
+            4A00444444003E3E3E003838380032323200FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF0075757500737373006F6F6F006B6B6B0067676700626262005D5D5D005858
+            5800525252004D4D4D004747470041414100FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
        end
      end
    end
@ -496,7 +785,7 @@ object Form1: TForm1
    left = 176
    top = 120
    Bitmap = {
-      4C690F0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      4C69150000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CF5D09E6DF6CC96
      5FDAC479427EB2673C09FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00E5BE96FFFFFFFEFFFDF3E9FFFDF3EAFFFCF2E8FFFAEFE3FFFAF2
@ -976,6 +1265,198 @@ object Form1: TForm1
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000004D0000000D000000670000
+      000D000000670000000D000000670000000D000000670000000D000000670000
+      000D0000004DFFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000D000000000000000000000000000000000000
+      00000000000DFFFFFF00FFFFFF00FFFFFF000000006B00000000000000000000
+      000000000000000000000000006B000000000000000000000000000000000000
+      00000000006BFFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000E000000000000000000000000000000000000
+      00000000000EFFFFFF00FFFFFF00FFFFFF000000007100000000000000000000
+      0000000000000000000000000071000000000000000000000000000000000000
+      000000000071FFFFFF00FFFFFF00FFFFFF000000000F00000000000000000000
+      000000000000000000000000000F000000000000000000000000000000000000
+      00000000000FFFFFFF00FFFFFF00FFFFFF00000000780000000F000000780000
+      000F000000780000000F000000780000000F000000780000000F000000780000
+      000F00000078FFFFFF00FFFFFF00FFFFFF000000001000000000000000000000
+      0000000000000000000000000010000000000000000000000000000000000000
+      000000000010FFFFFF00FFFFFF00FFFFFF000000008000000000000000000000
+      0000000000000000000000000080000000000000000000000000000000000000
+      000000000080FFFFFF00FFFFFF00FFFFFF000000001100000000000000000000
+      0000000000000000000000000011000000000000000000000000000000000000
+      000000000011FFFFFF00FFFFFF00FFFFFF000101018901010100000000000000
+      0000000000000101010001010189010101000000000000000000000000000101
+      010001010189FFFFFF00FFFFFF00FFFFFF000101011400000000000000000000
+      0000000000000000000001010113010101000000000000000000000000000000
+      000001010113FFFFFF00FFFFFF00FFFFFF00000000AC000000E6000000E60000
+      00E6000000E6000000E6000000E6000000E6000000E6000000E6000000E60000
+      00E6000000ACFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000004D0000000D000000670000
+      000D000000670000000D000000670000000D000000670000000D000000670000
+      000D0000004DFFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000D000000000000000000000000000000000000
+      00000000000DFFFFFF00FFFFFF00FFFFFF000000006B00000000000000000000
+      000000000000000000000000006B000000000000000000000000000000000000
+      00000000006BFFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000E000000000000000000000000000000000000
+      00000000000EFFFFFF00FFFFFF00FFFFFF000000007100000000000000000000
+      0000000000000000000000000071000000000000000000000000000000000000
+      000000000071FFFFFF00FFFFFF00FFFFFF000000000F00000000000000000000
+      000000000000000000000000000F000000000000000000000000000000000000
+      00000000000FFFFFFF00FFFFFF00FFFFFF00000000780000000F000000780000
+      000F000000780000000F000000780000000F000000780000000F000000780000
+      000F00000078FFFFFF00FFFFFF00FFFFFF000000001000000000000000000000
+      0000000000000000000000000010000000000000000000000000000000000000
+      000000000010FFFFFF00FFFFFF00FFFFFF000000008000000000010101000101
+      0100010101000000000000000080000000000101010001010100010101000000
+      000000000080FFFFFF00FFFFFF00FFFFFF000101011101010100010101000101
+      0100010101000101010001010111010101000101010001010100010101000101
+      010001010111FFFFFF00FFFFFF00FFFFFF00010101CC010101CC010101CC0101
+      01CC010101CC010101CC010101CC010101CC010101CC010101CC010101CC0101
+      01CC010101CCFFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00000000AC000000E6000000E60000
+      00E6000000E6000000E6000000E6000000E6000000E6000000E6000000E60000
+      00E6000000ACFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000004D0000000D000000670000
+      000D000000670000000D000000670000000D000000670000000D000000670000
+      000D0000004DFFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000D000000000000000000000000000000000000
+      00000000000DFFFFFF00FFFFFF00FFFFFF000000006B00000000000000000000
+      000000000000000000000000006B000000000000000000000000000000000000
+      00000000006BFFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000E000000000000000000000000000000000000
+      00000000000EFFFFFF00FFFFFF00FFFFFF000000007100000000000000000000
+      0000000000000000000000000071000000000000000000000000000000000000
+      000000000071FFFFFF00FFFFFF00FFFFFF000000000F00000000000000000000
+      000000000000000000000000000F000000000000000000000000000000000000
+      00000000000FFFFFFF00FFFFFF00FFFFFF00000000780000000F000000780000
+      000F000000780000000F000000780000000F000000780000000F000000780000
+      000F00000078FFFFFF00FFFFFF00FFFFFF000000001000000000000000000000
+      0000000000000000000000000010000000000000000000000000000000000000
+      000000000010FFFFFF00FFFFFF00FFFFFF000000008000000000000000000000
+      0000000000000000000000000080000000000000000000000000000000000000
+      000000000080FFFFFF00FFFFFF00FFFFFF000000001100000000000000000000
+      0000000000000000000000000011000000000000000000000000000000000000
+      000000000011FFFFFF00FFFFFF00FFFFFF000101018900000000000000000000
+      0000000000000000000001010189000000000000000000000000000000000000
+      000001010189FFFFFF00FFFFFF00FFFFFF00000000D9000000D9000000D90000
+      00D9000000D9000000D9000000D9000000D9000000D9000000D9000000D90000
+      00D9000000D9FFFFFF00FFFFFF00FFFFFF00000000AC000000E6000000E60000
+      00E6000000E6000000E6000000E6000000E6000000E6000000E6000000E60000
+      00E6000000ACFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00010101810000000D000000670000
+      000D000000670000000D000000670000000D000000670000000D000000670000
+      000D0000004DFFFFFF00FFFFFF00FFFFFF00010101AE01010100000000000000
+      000000000000000000000000000D000000000000000000000000000000000000
+      00000000000DFFFFFF00FFFFFF00FFFFFF00010101B001010100010101000000
+      000000000000000000000000006B000000000000000000000000000000000000
+      00000000006BFFFFFF00FFFFFF00FFFFFF00010101B301010100010101000101
+      010000000000000000000000000E000000000000000000000000000000000000
+      00000000000EFFFFFF00FFFFFF00FFFFFF00010101B601010100010101000000
+      0000000000000000000000000071000000000000000000000000000000000000
+      000000000071FFFFFF00FFFFFF00FFFFFF00010101B901010100000000000000
+      000000000000000000000000000F000000000000000000000000000000000000
+      00000000000FFFFFFF00FFFFFF00FFFFFF00010101BC0000000F000000780000
+      000F000000780000000F000000780000000F000000780000000F000000780000
+      000F00000078FFFFFF00FFFFFF00FFFFFF00010101C001010100000000000000
+      0000000000000000000000000010000000000000000000000000000000000000
+      000000000010FFFFFF00FFFFFF00FFFFFF00010101C401010100010101000000
+      0000000000000000000000000080000000000000000000000000000000000000
+      000000000080FFFFFF00FFFFFF00FFFFFF00010101C701010100010101000101
+      0100010101000000000000000011000000000101010001010100010101000000
+      000000000011FFFFFF00FFFFFF00FFFFFF00010101CC01010100010101000101
+      0100010101000101010001010189010101000101010001010100010101000101
+      010001010189FFFFFF00FFFFFF00FFFFFF00000000D901010100010101000101
+      0100010101000101010001010113010101000101010001010100010101000101
+      010001010113FFFFFF00FFFFFF00FFFFFF00000000AC01010115010101A40101
+      0115010101A401010115010101A401010115010101A401010115010101A40101
+      01150101017BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000004D0000000D000000670000
+      000D000000670000000D000000670000000D000000670000000D000000670101
+      010D01010181FFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000D000000000000000000000000000000000101
+      0100010101AEFFFFFF00FFFFFF00FFFFFF000000006B00000000000000000000
+      000000000000000000000000006B000000000000000000000000010101000101
+      0100010101B0FFFFFF00FFFFFF00FFFFFF000000000E00000000000000000000
+      000000000000000000000000000E000000000000000001010100010101000101
+      0100010101B3FFFFFF00FFFFFF00FFFFFF000000007100000000000000000000
+      0000000000000000000000000071000000000000000000000000010101000101
+      0100010101B6FFFFFF00FFFFFF00FFFFFF000000000F00000000000000000000
+      000000000000000000000000000F000000000000000000000000000000000101
+      0100010101B9FFFFFF00FFFFFF00FFFFFF00000000780000000F000000780000
+      000F000000780000000F000000780000000F000000780000000F000000780101
+      010F010101BCFFFFFF00FFFFFF00FFFFFF000000001000000000000000000000
+      0000000000000000000000000010000000000000000000000000000000000101
+      0100010101C0FFFFFF00FFFFFF00FFFFFF000000008000000000000000000000
+      0000000000000000000000000080000000000000000000000000010101000101
+      0100010101C4FFFFFF00FFFFFF00FFFFFF000000001100000000010101000101
+      0100010101000000000000000011000000000101010001010100010101000101
+      0100010101C7FFFFFF00FFFFFF00FFFFFF000101018901010100010101000101
+      0100010101000101010001010189010101000101010001010100010101000101
+      0100010101CCFFFFFF00FFFFFF00FFFFFF000101011401010100010101000101
+      0100010101000101010001010113010101000101010001010100010101000101
+      0100000000D9FFFFFF00FFFFFF00FFFFFF000101017B01010115010101A40101
+      0115010101A401010115010101A401010115010101A401010115010101A40101
+      0115000000ACFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0001010181010101AC010101AC0101
+      01AC010101AC010101AC010101AC010101AC010101AC010101AC010101AC0101
+      01AC01010181FFFFFF00FFFFFF00FFFFFF000101010E01010100010101000101
+      010001010100010101000101010D010101000101010001010100010101000101
+      01000101010DFFFFFF00FFFFFF00FFFFFF000000006B00000000010101000101
+      010001010100000000000000006B000000000101010001010100010101000000
+      00000000006BFFFFFF00FFFFFF00FFFFFF000000000E00000000010101000101
+      010001010100000000000000000E000000000000000001010100010101000000
+      00000000000EFFFFFF00FFFFFF00FFFFFF000000007100000000000000000000
+      0000000000000000000000000071000000000000000000000000000000000000
+      000000000071FFFFFF00FFFFFF00FFFFFF000000000F00000000000000000000
+      000000000000000000000000000F000000000000000000000000000000000000
+      00000000000FFFFFFF00FFFFFF00FFFFFF00000000780000000F000000780000
+      000F000000780000000F000000780000000F000000780000000F000000780000
+      000F00000078FFFFFF00FFFFFF00FFFFFF000000001000000000000000000000
+      0000000000000000000000000010000000000000000000000000000000000000
+      000000000010FFFFFF00FFFFFF00FFFFFF000000008000000000000000000000
+      0000000000000000000000000080000000000000000000000000000000000000
+      000000000080FFFFFF00FFFFFF00FFFFFF000000001100000000010101000101
+      0100010101000000000000000011000000000101010001010100010101000000
+      000000000011FFFFFF00FFFFFF00FFFFFF000101018901010100010101000101
+      0100010101000101010001010189010101000101010001010100010101000101
+      010001010189FFFFFF00FFFFFF00FFFFFF000101011401010100010101000101
+      0100010101000101010001010113010101000101010001010100010101000101
+      010001010113FFFFFF00FFFFFF00FFFFFF000101017B01010115010101A40101
+      0115010101A401010115010101A401010115010101A401010115010101A40101
+      01150101017BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00
    }
  end
@ -1102,6 +1583,51 @@ object Form1: TForm1
      ImageIndex = 14
      OnExecute = AcVertAlignmentExecute
    end
+    object AcBorderTop: TAction
+      Category = 'Format'
+      AutoCheck = True
+      Caption = 'Top'
+      ImageIndex = 20
+      OnExecute = AcBorderExecute
+    end
+    object AcBorderBottom: TAction
+      Category = 'Format'
+      AutoCheck = True
+      Caption = 'Bottom'
+      GroupIndex = 120
+      ImageIndex = 15
+      OnExecute = AcBorderExecute
+    end
+    object AcBorderBottomDbl: TAction
+      Category = 'Format'
+      AutoCheck = True
+      Caption = 'Bottom/double'
+      GroupIndex = 120
+      ImageIndex = 16
+      OnExecute = AcBorderExecute
+    end
+    object AcBorderBottomMedium: TAction
+      Category = 'Format'
+      AutoCheck = True
+      Caption = 'Bottom/thick'
+      GroupIndex = 120
+      ImageIndex = 17
+      OnExecute = AcBorderExecute
+    end
+    object AcBorderLeft: TAction
+      Category = 'Format'
+      AutoCheck = True
+      Caption = 'Left'
+      ImageIndex = 18
+      OnExecute = AcBorderExecute
+    end
+    object AcBorderRight: TAction
+      Category = 'Format'
+      AutoCheck = True
+      Caption = 'Right'
+      ImageIndex = 19
+      OnExecute = AcBorderExecute
+    end
  end
  object FontDialog1: TFontDialog
    MinFontSize = 0
--- a/components/fpspreadsheet/examples/fpsgrid/mainform.lrs
+++ b/components/fpspreadsheet/examples/fpsgrid/mainform.lrs
--- a/components/fpspreadsheet/examples/fpsgrid/mainform.pas
+++ b/components/fpspreadsheet/examples/fpsgrid/mainform.pas
@ -27,6 +27,12 @@ type
    AcFontStrikeout: TAction;
    AcFontUnderline: TAction;
    AcFont: TAction;
+    AcBorderTop: TAction;
+    AcBorderBottom: TAction;
+    AcBorderBottomDbl: TAction;
+    AcBorderBottomMedium: TAction;
+    AcBorderLeft: TAction;
+    AcBorderRight: TAction;
    AcVAlignDefault: TAction;
    AcVAlignTop: TAction;
    AcVAlignCenter: TAction;
@ -82,7 +88,14 @@ type
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
+    ToolButton19: TToolButton;
    ToolButton2: TToolButton;
+    ToolButton20: TToolButton;
+    ToolButton21: TToolButton;
+    ToolButton22: TToolButton;
+    ToolButton23: TToolButton;
+    ToolButton24: TToolButton;
+    ToolButton25: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
@ -90,6 +103,7 @@ type
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
+    procedure AcBorderExecute(Sender: TObject);
    procedure AcEditExecute(Sender: TObject);
    procedure AcFontExecute(Sender: TObject);
    procedure AcFontStyleExecute(Sender: TObject);
@ -111,6 +125,7 @@ type
  private
    { private declarations }
    procedure LoadFile(const AFileName: String);
+    procedure UpdateBorders(ACell: PCell);
    procedure UpdateHorAlignment(AValue: TsHorAlignment);
    procedure UpdateFont(AFont: TsFont);
    procedure UpdateVertAlignment(AValue: TsVertAlignment);
@ -141,6 +156,33 @@ begin
    sWorksheetGrid1.Options := sWorksheetGrid1.Options - [goEditing];
 end;

+procedure TForm1.AcBorderExecute(Sender: TObject);
+var
+  r,c: Cardinal;
+  borders: TsCellBorders;
+  lCell: PCell;
+begin
+  with sWorksheetGrid1 do begin
+    if Worksheet <> nil then begin
+      c := GetWorksheetCol(Col);
+      r := GetWorksheetRow(Row);
+      borders := [];
+      if AcBorderTop.Checked then borders := borders + [cbNorth];
+      if AcBorderLeft.Checked then borders := borders + [cbWest];
+      if AcBorderRight.Checked then borders := borders + [cbEast];
+      if AcBorderBottom.Checked or AcBorderBottomDbl.Checked or AcBorderBottomMedium.Checked then
+        borders := borders + [cbSouth];
+      Worksheet.WriteBorders(r, c, borders);
+      if AcBorderBottom.Checked then
+        Worksheet.WriteBorderLineStyle(r, c, cbSouth, lsThin);
+      if AcBorderBottomMedium.Checked then
+        Worksheet.WriteBorderLineStyle(r, c, cbSouth, lsMedium);
+      if AcBorderBottomDbl.Checked then
+        Worksheet.WriteBorderLineStyle(r, c, cbSouth, lsDouble);
+    end;
+  end;
+end;
+
 { Changes the font of the selected cell by calling a standard font dialog.
  Note that the worksheet's and grid's fonts are implemented differently.
  In particular, the worksheet's font color is an index into the workbook's
@ -367,12 +409,26 @@ begin
  end;
  if cell = nil then
    exit;
+  UpdateBorders(cell);
  UpdateHorAlignment(cell^.HorAlignment);
  UpdateVertAlignment(cell^.VertAlignment);
  lFont := sWorksheetGrid1.Workbook.GetFont(cell^.FontIndex);
  UpdateFont(lFont);
 end;

+procedure TForm1.UpdateBorders(ACell: PCell);
+begin
+  AcBorderTop.Checked := cbNorth in ACell^.Border;
+  AcBorderLeft.Checked := cbWest in ACell^.Border;
+  AcBorderRight.Checked := cbEast in ACell^.Border;
+  AcBorderBottom.Checked := (cbSouth in ACell^.BOrder) and
+   (ACell^.BorderStyles[cbSouth].LineStyle = lsThin);
+  AcBorderBottomDbl.Checked := (cbSouth in ACell^.Border) and
+    (ACell^.BorderStyles[cbSouth].LineStyle = lsDouble);
+  AcBorderBottomMedium.Checked := (cbSouth in ACell^.Border) and
+    (ACell^.BorderStyles[cbSouth].LineStyle = lsMedium);
+end;
+
 procedure TForm1.UpdateHorAlignment(AValue: TsHorAlignment);
 var
  i: Integer;