fpspreadsheet: Add vertical alignment buttons to fpsgrid demo of TsWorksheetGrid

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3026 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2014-05-08 14:53:16 +00:00
parent 7d01cec936
commit 8c95f13bc8
4 changed files with 1173 additions and 986 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="155"/>
+        <UsageCount Value="156"/>
        <Loaded Value="True"/>
      </Unit0>
      <Unit1>
@ -126,13 +126,14 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="mainform"/>
+        <IsVisibleTab Value="True"/>
        <EditorIndex Value="1"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="123"/>
-        <CursorPos X="57" Y="129"/>
-        <UsageCount Value="155"/>
+        <TopLine Value="379"/>
+        <CursorPos X="36" Y="405"/>
+        <UsageCount Value="156"/>
        <Bookmarks Count="1">
-          <Item0 X="17" Y="347" ID="1"/>
+          <Item0 X="17" Y="382" ID="1"/>
        </Bookmarks>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
@ -140,8 +141,7 @@
      <Unit2>
        <Filename Value="..\..\fpspreadsheet.pas"/>
        <UnitName Value="fpspreadsheet"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="4"/>
        <WindowIndex Value="0"/>
        <TopLine Value="136"/>
        <CursorPos X="38" Y="161"/>
@ -151,7 +151,7 @@
      <Unit3>
        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
        <UnitName Value="fpspreadsheetgrid"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="3"/>
        <WindowIndex Value="0"/>
        <TopLine Value="753"/>
        <CursorPos X="29" Y="796"/>
@ -232,7 +232,7 @@
      <Unit13>
        <Filename Value="..\..\fpsutils.pas"/>
        <UnitName Value="fpsutils"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="2"/>
        <WindowIndex Value="0"/>
        <TopLine Value="35"/>
        <CursorPos X="1" Y="62"/>
@ -264,7 +264,7 @@
      <Unit17>
        <Filename Value="..\..\xlsbiff8.pas"/>
        <UnitName Value="xlsbiff8"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="6"/>
        <WindowIndex Value="0"/>
        <TopLine Value="1881"/>
        <CursorPos X="24" Y="1898"/>
@ -289,7 +289,7 @@
      <Unit20>
        <Filename Value="..\..\xlscommon.pas"/>
        <UnitName Value="xlscommon"/>
-        <EditorIndex Value="9"/>
+        <EditorIndex Value="5"/>
        <WindowIndex Value="0"/>
        <TopLine Value="1530"/>
        <CursorPos X="47" Y="1554"/>
@ -299,7 +299,7 @@
      <Unit21>
        <Filename Value="..\..\xlsbiff5.pas"/>
        <UnitName Value="xlsbiff5"/>
-        <EditorIndex Value="11"/>
+        <EditorIndex Value="7"/>
        <WindowIndex Value="0"/>
        <TopLine Value="1319"/>
        <CursorPos X="3" Y="1325"/>
@ -309,7 +309,7 @@
      <Unit22>
        <Filename Value="..\..\xlsbiff2.pas"/>
        <UnitName Value="xlsbiff2"/>
-        <EditorIndex Value="12"/>
+        <EditorIndex Value="8"/>
        <WindowIndex Value="0"/>
        <TopLine Value="547"/>
        <CursorPos X="1" Y="563"/>
@ -420,12 +420,10 @@
      <Unit36>
        <Filename Value="C:\development\lazarus\lcl\graphics.pp"/>
        <UnitName Value="Graphics"/>
-        <EditorIndex Value="4"/>
        <WindowIndex Value="0"/>
        <TopLine Value="2053"/>
        <CursorPos X="30" Y="1945"/>
        <UsageCount Value="13"/>
-        <Loaded Value="True"/>
      </Unit36>
      <Unit37>
        <Filename Value="C:\development\fpc\packages\fcl-image\src\fpcanvas.pp"/>
@ -461,12 +459,10 @@
      <Unit41>
        <Filename Value="C:\development\lazarus\lcl\lcltype.pp"/>
        <UnitName Value="LCLType"/>
-        <EditorIndex Value="5"/>
        <WindowIndex Value="0"/>
        <TopLine Value="1628"/>
        <CursorPos X="3" Y="1643"/>
        <UsageCount Value="12"/>
-        <Loaded Value="True"/>
      </Unit41>
      <Unit42>
        <Filename Value="C:\development\lazarus\lcl\graphutil.pp"/>
@ -479,143 +475,139 @@
      <Unit43>
        <Filename Value="C:\development\fpc\rtl\objpas\math.pp"/>
        <UnitName Value="math"/>
-        <EditorIndex Value="3"/>
        <WindowIndex Value="0"/>
        <TopLine Value="120"/>
        <CursorPos X="10" Y="135"/>
        <UsageCount Value="10"/>
-        <Loaded Value="True"/>
      </Unit43>
      <Unit44>
        <Filename Value="C:\development\fpc\rtl\i386\i386.inc"/>
-        <EditorIndex Value="2"/>
        <WindowIndex Value="0"/>
        <TopLine Value="1499"/>
        <CursorPos X="1" Y="1513"/>
        <UsageCount Value="10"/>
-        <Loaded Value="True"/>
      </Unit44>
    </Units>
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="376" Column="20" TopLine="362"/>
+        <Caret Line="84" Column="51" TopLine="71"/>
      </Position1>
      <Position2>
-        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="204" Column="53" TopLine="189"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="129" Column="57" TopLine="123"/>
      </Position2>
      <Position3>
-        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="822" Column="53" TopLine="808"/>
+        <Filename Value="..\..\fpspreadsheet.pas"/>
+        <Caret Line="218" Column="17" TopLine="146"/>
      </Position3>
      <Position4>
        <Filename Value="mainform.pas"/>
-        <Caret Line="142" Column="77" TopLine="126"/>
+        <Caret Line="129" Column="57" TopLine="123"/>
      </Position4>
      <Position5>
-        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="805" Column="1" TopLine="800"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="130" Column="57" TopLine="124"/>
      </Position5>
      <Position6>
-        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="853" Column="49" TopLine="829"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="131" Column="57" TopLine="125"/>
      </Position6>
      <Position7>
        <Filename Value="mainform.pas"/>
-        <Caret Line="142" Column="77" TopLine="117"/>
+        <Caret Line="132" Column="57" TopLine="126"/>
      </Position7>
      <Position8>
        <Filename Value="mainform.pas"/>
-        <Caret Line="135" Column="1" TopLine="117"/>
+        <Caret Line="134" Column="57" TopLine="128"/>
      </Position8>
      <Position9>
        <Filename Value="mainform.pas"/>
-        <Caret Line="136" Column="1" TopLine="117"/>
+        <Caret Line="216" Column="7" TopLine="188"/>
      </Position9>
      <Position10>
        <Filename Value="mainform.pas"/>
-        <Caret Line="137" Column="1" TopLine="117"/>
+        <Caret Line="394" Column="36" TopLine="368"/>
      </Position10>
      <Position11>
        <Filename Value="mainform.pas"/>
-        <Caret Line="138" Column="1" TopLine="117"/>
+        <Caret Line="395" Column="36" TopLine="369"/>
      </Position11>
      <Position12>
        <Filename Value="mainform.pas"/>
-        <Caret Line="139" Column="1" TopLine="117"/>
+        <Caret Line="396" Column="36" TopLine="370"/>
      </Position12>
      <Position13>
        <Filename Value="mainform.pas"/>
-        <Caret Line="135" Column="1" TopLine="117"/>
+        <Caret Line="397" Column="36" TopLine="371"/>
      </Position13>
      <Position14>
        <Filename Value="mainform.pas"/>
-        <Caret Line="136" Column="1" TopLine="117"/>
+        <Caret Line="398" Column="36" TopLine="372"/>
      </Position14>
      <Position15>
        <Filename Value="mainform.pas"/>
-        <Caret Line="137" Column="1" TopLine="117"/>
+        <Caret Line="399" Column="36" TopLine="373"/>
      </Position15>
      <Position16>
        <Filename Value="mainform.pas"/>
-        <Caret Line="138" Column="1" TopLine="117"/>
+        <Caret Line="400" Column="36" TopLine="374"/>
      </Position16>
      <Position17>
        <Filename Value="mainform.pas"/>
-        <Caret Line="139" Column="1" TopLine="117"/>
+        <Caret Line="401" Column="36" TopLine="375"/>
      </Position17>
      <Position18>
        <Filename Value="mainform.pas"/>
-        <Caret Line="140" Column="1" TopLine="117"/>
+        <Caret Line="402" Column="36" TopLine="376"/>
      </Position18>
      <Position19>
        <Filename Value="mainform.pas"/>
-        <Caret Line="141" Column="1" TopLine="117"/>
+        <Caret Line="403" Column="36" TopLine="377"/>
      </Position19>
      <Position20>
        <Filename Value="mainform.pas"/>
-        <Caret Line="142" Column="1" TopLine="117"/>
+        <Caret Line="402" Column="36" TopLine="376"/>
      </Position20>
      <Position21>
-        <Filename Value="..\..\fpspreadsheet.pas"/>
-        <Caret Line="1458" Column="1" TopLine="1442"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="401" Column="36" TopLine="375"/>
      </Position21>
      <Position22>
-        <Filename Value="..\..\fpspreadsheet.pas"/>
-        <Caret Line="1459" Column="1" TopLine="1442"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="400" Column="36" TopLine="374"/>
      </Position22>
      <Position23>
-        <Filename Value="..\..\fpspreadsheet.pas"/>
-        <Caret Line="1460" Column="1" TopLine="1442"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="399" Column="36" TopLine="373"/>
      </Position23>
      <Position24>
-        <Filename Value="..\..\fpspreadsheet.pas"/>
-        <Caret Line="2162" Column="1" TopLine="2147"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="398" Column="36" TopLine="372"/>
      </Position24>
      <Position25>
-        <Filename Value="..\..\fpspreadsheet.pas"/>
-        <Caret Line="2163" Column="1" TopLine="2147"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="399" Column="36" TopLine="373"/>
      </Position25>
      <Position26>
        <Filename Value="mainform.pas"/>
-        <Caret Line="138" Column="1" TopLine="117"/>
+        <Caret Line="400" Column="36" TopLine="374"/>
      </Position26>
      <Position27>
-        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="84" Column="51" TopLine="71"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="401" Column="36" TopLine="375"/>
      </Position27>
      <Position28>
        <Filename Value="mainform.pas"/>
-        <Caret Line="129" Column="57" TopLine="123"/>
+        <Caret Line="402" Column="36" TopLine="376"/>
      </Position28>
      <Position29>
-        <Filename Value="..\..\fpspreadsheetgrid.pas"/>
-        <Caret Line="352" Column="73" TopLine="353"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="403" Column="36" TopLine="377"/>
      </Position29>
      <Position30>
-        <Filename Value="..\..\fpspreadsheet.pas"/>
-        <Caret Line="218" Column="17" TopLine="146"/>
+        <Filename Value="mainform.pas"/>
+        <Caret Line="404" Column="36" TopLine="378"/>
      </Position30>
    </JumpHistory>
  </ProjectOptions>
--- a/components/fpspreadsheet/examples/fpsgrid/mainform.lfm
+++ b/components/fpspreadsheet/examples/fpsgrid/mainform.lfm
@ -80,8 +80,8 @@ object Form1: TForm1
  end
  object PageControl1: TPageControl
    Left = 0
-    Height = 236
-    Top = 52
+    Height = 230
+    Top = 58
    Width = 518
    ActivePage = TabSheet1
    Align = alClient
@ -90,11 +90,11 @@ object Form1: TForm1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Sheet1'
-      ClientHeight = 203
+      ClientHeight = 197
      ClientWidth = 510
      object sWorksheetGrid1: TsWorksheetGrid
        Left = 0
-        Height = 203
+        Height = 197
        Top = 0
        Width = 510
        FrozenCols = 0
@ -161,9 +161,9 @@ object Form1: TForm1
  end
  object FormatToolBar: TToolBar
    Left = 0
-    Height = 26
    Top = 26
    Width = 518
+    ButtonHeight = 28
    Caption = 'FormatToolBar'
    Images = ImageList1
    TabOrder = 3
@ -239,6 +239,28 @@ object Form1: TForm1
      Caption = 'ToolButton14'
      Style = tbsDivider
    end
+    object ToolButton15: TToolButton
+      Left = 342
+      Top = 2
+      Width = 5
+      Caption = 'ToolButton15'
+      Style = tbsDivider
+    end
+    object ToolButton16: TToolButton
+      Left = 347
+      Top = 2
+      Action = AcVAlignTop
+    end
+    object ToolButton17: TToolButton
+      Left = 370
+      Top = 2
+      Action = AcVAlignCenter
+    end
+    object ToolButton18: TToolButton
+      Left = 393
+      Top = 2
+      Action = AcVAlignBottom
+    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.xls'
@ -429,7 +451,7 @@ object Form1: TForm1
    end
    object mnuFormat: TMenuItem
      Caption = 'Format'
-      object MenuItem6: TMenuItem
+      object MnuFOnt: TMenuItem
        Action = AcFont
      end
      object MnuHorAlignment: TMenuItem
@ -437,122 +459,35 @@ object Form1: TForm1
        object MnuHorDefault: TMenuItem
          Action = AcHorDefaultAlign
        end
+        object MenuItem6: TMenuItem
+          Caption = '-'
+        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
+        Caption = 'Vertical alignment'
+        object MnuVertDefault: TMenuItem
+          Action = AcVAlignDefault
+        end
+        object MenuItem7: TMenuItem
+          Caption = '-'
+        end
+        object MnuVertTop: TMenuItem
+          Action = AcVAlignTop
+        end
+        object MnuVertCentered: TMenuItem
+          Action = AcVAlignCenter
+        end
+        object MnuVertBottom: TMenuItem
+          Action = AcVAlignBottom
        end
      end
    end
@ -561,7 +496,7 @@ object Form1: TForm1
    left = 176
    top = 120
    Bitmap = {
-      4C690B0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      4C690F0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CF5D09E6DF6CC96
      5FDAC479427EB2673C09FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00E5BE96FFFFFFFEFFFDF3E9FFFDF3EAFFFCF2E8FFFAEFE3FFFAF2
@ -913,6 +848,134 @@ object Form1: TForm1
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D8874040D88B4385DA8E4994D989438FD8844090D884419AD373
+      3A8ACC62320DC95B2E01FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D7833E53E2A76CDEE9BC91FFE7BA8FFFE7B78BFFE2A471FBD67E
+      42B6CB5C2F0AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D67D3B1CDD9656BAE3A973F2E1A873F5E1A471F7D3773E98CB5F
+      3008FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00D4793C77E2A670F7DA8847ADD67E43A0E4AE82FFCF6D3A99FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00D1713822DE9B63E2DC965EDFCF693554CF693580E2A97CFFD16C3AA5FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D06A
+      3503D78042AADF9F6AF7CD663466C95D2F0ACC613388E1A679FFD57A44D2C24A
+      2706FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CF6A
+      365CDF9D68F6DA8B52D1CB5F314EC7592E2ACD6737A0E1A67AFFD88653F2BF46
+      250DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CC633215DB93
+      5EEAE2A779FFD8834AD3CF6A3AB2CE6839B5D57A45D8E3A881FFD98656F9BE41
+      231BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CB5D3001D3743F9BE2A9
+      7CFFCC663799FFFFFF00FFFFFF00FFFFFF00CC6337B1DFA077FFDA895AFFBB3E
+      2222FFFFFF00FFFFFF00FFFFFF00FFFFFF00CA5C2F0ACB5F3044E1A475FFDA8C
+      58ECC6522C3DFFFFFF00FFFFFF00BF452413C348277FDC966BFFDB8F60FFBD3F
+      2154B6381E02FFFFFF00FFFFFF00FFFFFF00CE6838AEDA8F5DFEDB9060FFD783
+      50EDC4502B8DBD422310BC3F222AC34D2BA2D07142EAD67E51FFD57C4DFFC655
+      31BDB6391D31FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00757575FF737373FF6F6F
+      6FFF6B6B6BFF676767FF626262FF5D5D5DFF585858FF525252FF4D4D4DFF4747
+      47FF414141FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006E6E6EFF6A6A6AFF6565
+      65FF606060FF5B5B5BFF565656FF505050FF4A4A4AFF444444FF3E3E3EFF3838
+      38FF323232FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00636363005E5E5E005959
+      5900535353004E4E4E0048484800424242003C3C3C0036363600303030002A2A
+      2A0024242400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0057575700515151004B4B
+      4B00454545003F3F3F0039393900333333002D2D2D0027272700222222001C1C
+      1C0017171700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0049494900434343003D3D
+      3D0037373700313131002B2B2B00252525001F1F1F001A1A1A00151515001111
+      11000C0C0C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003B3B3B00343434002E2E
+      2E0028282800232323001D1D1D0018181800131313000F0F0F000B0B0B000707
+      070003030300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0075757500737373006F6F
+      6F006B6B6B0067676700626262005D5D5D0058585800525252004D4D4D004747
+      470041414100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006E6E6E006A6A6A006565
+      6500606060005B5B5B0056565600505050004A4A4A00444444003E3E3E003838
+      380032323200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00636363FF5E5E5EFF5959
+      59FF535353FF4E4E4EFF484848FF424242FF3C3C3CFF363636FF303030FF2A2A
+      2AFF242424FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00575757FF515151FF4B4B
+      4BFF454545FF3F3F3FFF393939FF333333FF2D2D2DFF272727FF222222FF1C1C
+      1CFF171717FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0049494900434343003D3D
+      3D0037373700313131002B2B2B00252525001F1F1F001A1A1A00151515001111
+      11000C0C0C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003B3B3B00343434002E2E
+      2E0028282800232323001D1D1D0018181800131313000F0F0F000B0B0B000707
+      070003030300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0075757500737373006F6F
+      6F006B6B6B0067676700626262005D5D5D0058585800525252004D4D4D004747
+      470041414100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006E6E6E006A6A6A006565
+      6500606060005B5B5B0056565600505050004A4A4A00444444003E3E3E003838
+      380032323200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00636363005E5E5E005959
+      5900535353004E4E4E0048484800424242003C3C3C0036363600303030002A2A
+      2A0024242400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0057575700515151004B4B
+      4B00454545003F3F3F0039393900333333002D2D2D0027272700222222001C1C
+      1C0017171700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00494949FF434343FF3D3D
+      3DFF373737FF313131FF2B2B2BFF252525FF1F1F1FFF1A1A1AFF151515FF1111
+      11FF0C0C0CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003B3B3BFF343434FF2E2E
+      2EFF282828FF232323FF1D1D1DFF181818FF131313FF0F0F0FFF0B0B0BFF0707
+      07FF030303FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00
    }
  end
@ -1009,8 +1072,36 @@ object Form1: TForm1
      Category = 'Format'
      Caption = 'Font...'
      Hint = 'Font'
+      ImageIndex = 11
      OnExecute = AcFontExecute
    end
+    object AcVAlignDefault: TAction
+      Tag = 110
+      Category = 'Format'
+      Caption = 'Default'
+      OnExecute = AcVertAlignmentExecute
+    end
+    object AcVAlignTop: TAction
+      Tag = 111
+      Category = 'Format'
+      Caption = 'Top'
+      ImageIndex = 12
+      OnExecute = AcVertAlignmentExecute
+    end
+    object AcVAlignCenter: TAction
+      Tag = 112
+      Category = 'Format'
+      Caption = 'Centered'
+      ImageIndex = 13
+      OnExecute = AcVertAlignmentExecute
+    end
+    object AcVAlignBottom: TAction
+      Tag = 113
+      Category = 'Format'
+      Caption = 'Bottom'
+      ImageIndex = 14
+      OnExecute = AcVertAlignmentExecute
+    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,10 @@ type
    AcFontStrikeout: TAction;
    AcFontUnderline: TAction;
    AcFont: TAction;
+    AcVAlignDefault: TAction;
+    AcVAlignTop: TAction;
+    AcVAlignCenter: TAction;
+    AcVAlignBottom: TAction;
    ActionList1: TActionList;
    CbShowHeaders: TCheckBox;
    CbShowGridLines: TCheckBox;
@ -44,6 +48,13 @@ type
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MnuVertBottom: TMenuItem;
+    MnuVertCentered: TMenuItem;
+    MnuVertTop: TMenuItem;
+    MnuVertDefault: TMenuItem;
+    MnuVertAlignment: TMenuItem;
+    MnuFOnt: TMenuItem;
    MnuHorDefault: TMenuItem;
    MnuHorAlignment: TMenuItem;
    mnuFormat: TMenuItem;
@ -67,6 +78,10 @@ type
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
+    ToolButton15: TToolButton;
+    ToolButton16: TToolButton;
+    ToolButton17: TToolButton;
+    ToolButton18: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
@ -79,6 +94,7 @@ type
    procedure AcFontExecute(Sender: TObject);
    procedure AcFontStyleExecute(Sender: TObject);
    procedure AcHorAlignmentExecute(Sender: TObject);
+    procedure AcVertAlignmentExecute(Sender: TObject);
    procedure CbShowHeadersClick(Sender: TObject);
    procedure CbShowGridLinesClick(Sender: TObject);
    procedure acOpenExecute(Sender: TObject);
@ -97,6 +113,7 @@ type
    procedure LoadFile(const AFileName: String);
    procedure UpdateHorAlignment(AValue: TsHorAlignment);
    procedure UpdateFont(AFont: TsFont);
+    procedure UpdateVertAlignment(AValue: TsVertAlignment);
  public
    { public declarations }
  end; 
@ -111,6 +128,7 @@ uses

 const
  HORALIGN_TAG = 100;
+  VERTALIGN_TAG = 110;


 { TForm1 }
@ -193,6 +211,23 @@ begin
  end;
 end;

+procedure TForm1.AcVertAlignmentExecute(Sender: TObject);
+var
+  vertalign: TsVertAlignment;
+  c, r: Cardinal;
+begin
+  vertalign := TsVertAlignment(TAction(Sender).Tag - VERTALIGN_TAG);
+  if TAction(Sender).Checked then
+    vertalign := vaDefault;
+  UpdateVertAlignment(vertalign);
+  with sWorksheetGrid1 do begin
+    c := GetWorksheetCol(Col);
+    r := GetWorksheetRow(Row);
+    if Worksheet <> nil then
+      Worksheet.WriteVertAlignment(r, c, vertalign);
+  end;
+end;
+
 procedure TForm1.CbShowHeadersClick(Sender: TObject);
 begin
  sWorksheetGrid1.ShowHeaders := CbShowHeaders.Checked;
@ -333,6 +368,7 @@ begin
  if cell = nil then
    exit;
  UpdateHorAlignment(cell^.HorAlignment);
+  UpdateVertAlignment(cell^.VertAlignment);
  lFont := sWorksheetGrid1.Workbook.GetFont(cell^.FontIndex);
  UpdateFont(lFont);
 end;
@ -359,6 +395,19 @@ begin
  AcFontStrikeout.Checked := fssStrikeOut in AFont.Style;
 end;

+procedure TForm1.UpdateVertAlignment(AValue: TsVertAlignment);
+var
+  i: Integer;
+  ac: TAction;
+begin
+  for i:=0 to ActionList1.ActionCount-1 do begin
+    ac := TAction(ActionList1.Actions[i]);
+    if (ac.Tag >= VERTALIGN_TAG) and (ac.Tag < VERTALIGN_TAG+10) then
+      ac.Checked := ((ac.Tag - VERTALIGN_TAG) = ord(AValue));
+  end;
+end;
+
+
 initialization
  {$I mainform.lrs}