pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3027 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-05-08 15:33:25 +00:00
parent 8c95f13bc8
commit 79a4dd708f
4 changed files with 1976 additions and 842 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi
View File

@ -116,7 +116,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="10" Y="7"/> <CursorPos X="10" Y="7"/>
<UsageCount Value="156"/> <UsageCount Value="157"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -129,11 +129,11 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="379"/> <TopLine Value="410"/>
<CursorPos X="36" Y="405"/> <CursorPos X="25" Y="429"/>
<UsageCount Value="156"/> <UsageCount Value="157"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="17" Y="382" ID="1"/> <Item0 X="17" Y="438" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -143,8 +143,8 @@
<UnitName Value="fpspreadsheet"/> <UnitName Value="fpspreadsheet"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="136"/> <TopLine Value="273"/>
<CursorPos X="38" Y="161"/> <CursorPos X="15" Y="381"/>
<UsageCount Value="73"/> <UsageCount Value="73"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
@ -153,8 +153,8 @@
<UnitName Value="fpspreadsheetgrid"/> <UnitName Value="fpspreadsheetgrid"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="753"/> <TopLine Value="70"/>
<CursorPos X="29" Y="796"/> <CursorPos X="15" Y="67"/>
<UsageCount Value="74"/> <UsageCount Value="74"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
@ -490,124 +490,124 @@
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="84" Column="51" TopLine="71"/> <Caret Line="403" Column="36" TopLine="377"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="129" Column="57" TopLine="123"/> <Caret Line="404" Column="36" TopLine="378"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="218" Column="17" TopLine="146"/> <Caret Line="405" Column="36" TopLine="379"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="129" Column="57" TopLine="123"/> <Caret Line="406" Column="36" TopLine="380"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="130" Column="57" TopLine="124"/> <Caret Line="407" Column="36" TopLine="381"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="131" Column="57" TopLine="125"/> <Caret Line="408" Column="36" TopLine="382"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="132" Column="57" TopLine="126"/> <Caret Line="409" Column="36" TopLine="383"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="134" Column="57" TopLine="128"/> <Caret Line="410" Column="36" TopLine="384"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="216" Column="7" TopLine="188"/> <Caret Line="417" Column="36" TopLine="391"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="394" Column="36" TopLine="368"/> <Caret Line="121" Column="15" TopLine="107"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="395" Column="36" TopLine="369"/> <Caret Line="122" Column="15" TopLine="108"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="396" Column="36" TopLine="370"/> <Caret Line="123" Column="15" TopLine="109"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="397" Column="36" TopLine="371"/> <Caret Line="124" Column="15" TopLine="110"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="398" Column="36" TopLine="372"/> <Caret Line="125" Column="15" TopLine="111"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="399" Column="36" TopLine="373"/> <Caret Line="126" Column="15" TopLine="112"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="400" Column="36" TopLine="374"/> <Caret Line="127" Column="15" TopLine="113"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="401" Column="36" TopLine="375"/> <Caret Line="128" Column="15" TopLine="114"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="402" Column="36" TopLine="376"/> <Caret Line="162" Column="18" TopLine="147"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="403" Column="36" TopLine="377"/> <Caret Line="165" Column="29" TopLine="150"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="402" Column="36" TopLine="376"/> <Caret Line="162" Column="6" TopLine="153"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="401" Column="36" TopLine="375"/> <Caret Line="174" Column="19" TopLine="159"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="400" Column="36" TopLine="374"/> <Caret Line="176" Column="46" TopLine="159"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="399" Column="36" TopLine="373"/> <Caret Line="179" Column="18" TopLine="161"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="398" Column="36" TopLine="372"/> <Caret Line="176" Column="41" TopLine="157"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="399" Column="36" TopLine="373"/> <Caret Line="181" Column="46" TopLine="157"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="400" Column="36" TopLine="374"/> <Caret Line="187" Column="84" TopLine="163"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="401" Column="36" TopLine="375"/> <Caret Line="181" Column="19" TopLine="164"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="402" Column="36" TopLine="376"/> <Caret Line="180" Column="27" TopLine="165"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="403" Column="36" TopLine="377"/> <Caret Line="181" Column="30" TopLine="166"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="404" Column="36" TopLine="378"/> <Caret Line="425" Column="12" TopLine="410"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

558
components/fpspreadsheet/examples/fpsgrid/mainform.lfm
View File

@ -1,11 +1,11 @@
object Form1: TForm1 object Form1: TForm1
Left = 370 Left = 370
Height = 386 Height = 406
Top = 258 Top = 258
Width = 518 Width = 636
Caption = 'fpsGrid' Caption = 'fpsGrid'
ClientHeight = 361 ClientHeight = 381
ClientWidth = 518 ClientWidth = 636
Menu = MainMenu1 Menu = MainMenu1
OnActivate = FormActivate OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
@ -14,12 +14,12 @@ object Form1: TForm1
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 73 Height = 73
Top = 288 Top = 308
Width = 518 Width = 636
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 73 ClientHeight = 73
ClientWidth = 518 ClientWidth = 636
TabOrder = 0 TabOrder = 0
object CbShowHeaders: TCheckBox object CbShowHeaders: TCheckBox
Left = 8 Left = 8
@ -80,9 +80,9 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 230 Height = 250
Top = 58 Top = 58
Width = 518 Width = 636
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
@ -90,13 +90,13 @@ object Form1: TForm1
OnChange = PageControl1Change OnChange = PageControl1Change
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Sheet1' Caption = 'Sheet1'
ClientHeight = 197 ClientHeight = 217
ClientWidth = 510 ClientWidth = 628
object sWorksheetGrid1: TsWorksheetGrid object sWorksheetGrid1: TsWorksheetGrid
Left = 0 Left = 0
Height = 197 Height = 217
Top = 0 Top = 0
Width = 510 Width = 628
FrozenCols = 0 FrozenCols = 0
FrozenRows = 0 FrozenRows = 0
Align = alClient Align = alClient
@ -118,7 +118,7 @@ object Form1: TForm1
Left = 0 Left = 0
Height = 26 Height = 26
Top = 0 Top = 0
Width = 518 Width = 636
ButtonHeight = 24 ButtonHeight = 24
Caption = 'ToolBar1' Caption = 'ToolBar1'
EdgeBorders = [] EdgeBorders = []
@ -162,7 +162,7 @@ object Form1: TForm1
object FormatToolBar: TToolBar object FormatToolBar: TToolBar
Left = 0 Left = 0
Top = 26 Top = 26
Width = 518 Width = 636
ButtonHeight = 28 ButtonHeight = 28
Caption = 'FormatToolBar' Caption = 'FormatToolBar'
Images = ImageList1 Images = ImageList1
@ -261,6 +261,43 @@ object Form1: TForm1
Top = 2 Top = 2
Action = AcVAlignBottom Action = AcVAlignBottom
end 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 end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
DefaultExt = '.xls' DefaultExt = '.xls'
@ -453,6 +490,42 @@ object Form1: TForm1
Caption = 'Format' Caption = 'Format'
object MnuFOnt: TMenuItem object MnuFOnt: TMenuItem
Action = AcFont 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 end
object MnuHorAlignment: TMenuItem object MnuHorAlignment: TMenuItem
Caption = 'Horizontal alignment' Caption = 'Horizontal alignment'
@ -464,12 +537,120 @@ object Form1: TForm1
end end
object MenuItem3: TMenuItem object MenuItem3: TMenuItem
Action = AcLeftAlign 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 end
object MenuItem4: TMenuItem object MenuItem4: TMenuItem
Action = AcHorCenterAlign 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 end
object MenuItem5: TMenuItem object MenuItem5: TMenuItem
Action = AcRightAlign 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
end end
object MnuVertAlignment: TMenuItem object MnuVertAlignment: TMenuItem
@ -482,12 +663,120 @@ object Form1: TForm1
end end
object MnuVertTop: TMenuItem object MnuVertTop: TMenuItem
Action = AcVAlignTop 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 end
object MnuVertCentered: TMenuItem object MnuVertCentered: TMenuItem
Action = AcVAlignCenter 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 end
object MnuVertBottom: TMenuItem object MnuVertBottom: TMenuItem
Action = AcVAlignBottom 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 end
end end
@ -496,7 +785,7 @@ object Form1: TForm1
left = 176 left = 176
top = 120 top = 120
Bitmap = { Bitmap = {
4C690F0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 4C69150000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CF5D09E6DF6CC96 FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CF5D09E6DF6CC96
5FDAC479427EB2673C09FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 5FDAC479427EB2673C09FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00E5BE96FFFFFFFEFFFDF3E9FFFDF3EAFFFCF2E8FFFAEFE3FFFAF2 FF00FFFFFF00E5BE96FFFFFFFEFFFDF3E9FFFDF3EAFFFCF2E8FFFAEFE3FFFAF2
@ -976,6 +1265,198 @@ object Form1: TForm1
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 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 FF00FFFFFF00FFFFFF00FFFFFF00
} }
end end
@ -1102,6 +1583,51 @@ object Form1: TForm1
ImageIndex = 14 ImageIndex = 14
OnExecute = AcVertAlignmentExecute OnExecute = AcVertAlignmentExecute
end 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 end
object FontDialog1: TFontDialog object FontDialog1: TFontDialog
MinFontSize = 0 MinFontSize = 0

2122
components/fpspreadsheet/examples/fpsgrid/mainform.lrs
View File

File diff suppressed because it is too large Load Diff

56
components/fpspreadsheet/examples/fpsgrid/mainform.pas
View File

@ -27,6 +27,12 @@ type
AcFontStrikeout: TAction; AcFontStrikeout: TAction;
AcFontUnderline: TAction; AcFontUnderline: TAction;
AcFont: TAction; AcFont: TAction;
AcBorderTop: TAction;
AcBorderBottom: TAction;
AcBorderBottomDbl: TAction;
AcBorderBottomMedium: TAction;
AcBorderLeft: TAction;
AcBorderRight: TAction;
AcVAlignDefault: TAction; AcVAlignDefault: TAction;
AcVAlignTop: TAction; AcVAlignTop: TAction;
AcVAlignCenter: TAction; AcVAlignCenter: TAction;
@ -82,7 +88,14 @@ type
ToolButton16: TToolButton; ToolButton16: TToolButton;
ToolButton17: TToolButton; ToolButton17: TToolButton;
ToolButton18: TToolButton; ToolButton18: TToolButton;
ToolButton19: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ToolButton20: TToolButton;
ToolButton21: TToolButton;
ToolButton22: TToolButton;
ToolButton23: TToolButton;
ToolButton24: TToolButton;
ToolButton25: TToolButton;
ToolButton3: TToolButton; ToolButton3: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
ToolButton5: TToolButton; ToolButton5: TToolButton;
@ -90,6 +103,7 @@ type
ToolButton7: TToolButton; ToolButton7: TToolButton;
ToolButton8: TToolButton; ToolButton8: TToolButton;
ToolButton9: TToolButton; ToolButton9: TToolButton;
procedure AcBorderExecute(Sender: TObject);
procedure AcEditExecute(Sender: TObject); procedure AcEditExecute(Sender: TObject);
procedure AcFontExecute(Sender: TObject); procedure AcFontExecute(Sender: TObject);
procedure AcFontStyleExecute(Sender: TObject); procedure AcFontStyleExecute(Sender: TObject);
@ -111,6 +125,7 @@ type
private private
{ private declarations } { private declarations }
procedure LoadFile(const AFileName: String); procedure LoadFile(const AFileName: String);
procedure UpdateBorders(ACell: PCell);
procedure UpdateHorAlignment(AValue: TsHorAlignment); procedure UpdateHorAlignment(AValue: TsHorAlignment);
procedure UpdateFont(AFont: TsFont); procedure UpdateFont(AFont: TsFont);
procedure UpdateVertAlignment(AValue: TsVertAlignment); procedure UpdateVertAlignment(AValue: TsVertAlignment);
@ -141,6 +156,33 @@ begin
sWorksheetGrid1.Options := sWorksheetGrid1.Options - [goEditing]; sWorksheetGrid1.Options := sWorksheetGrid1.Options - [goEditing];
end; 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. { 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. 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 In particular, the worksheet's font color is an index into the workbook's
@ -367,12 +409,26 @@ begin
end; end;
if cell = nil then if cell = nil then
exit; exit;
UpdateBorders(cell);
UpdateHorAlignment(cell^.HorAlignment); UpdateHorAlignment(cell^.HorAlignment);
UpdateVertAlignment(cell^.VertAlignment); UpdateVertAlignment(cell^.VertAlignment);
lFont := sWorksheetGrid1.Workbook.GetFont(cell^.FontIndex); lFont := sWorksheetGrid1.Workbook.GetFont(cell^.FontIndex);
UpdateFont(lFont); UpdateFont(lFont);
end; 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); procedure TForm1.UpdateHorAlignment(AValue: TsHorAlignment);
var var
i: Integer; i: Integer;