You've already forked lazarus-ccr
fpspreadsheet: Add functionality for adding/deleting columns/rows to fpsctrl demo
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3745 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -1217,7 +1217,7 @@ object Form1: TForm1
|
|||||||
Action = acRenameWorksheet
|
Action = acRenameWorksheet
|
||||||
end
|
end
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Left = 126
|
Left = 232
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 5
|
Width = 5
|
||||||
@ -1225,7 +1225,7 @@ object Form1: TForm1
|
|||||||
Style = tbsDivider
|
Style = tbsDivider
|
||||||
end
|
end
|
||||||
object ToolButton2: TToolButton
|
object ToolButton2: TToolButton
|
||||||
Left = 131
|
Left = 237
|
||||||
Top = 0
|
Top = 0
|
||||||
Action = AcFileExit
|
Action = AcFileExit
|
||||||
end
|
end
|
||||||
@ -1235,7 +1235,7 @@ object Form1: TForm1
|
|||||||
Action = AcFileOpen
|
Action = AcFileOpen
|
||||||
end
|
end
|
||||||
object ToolButton28: TToolButton
|
object ToolButton28: TToolButton
|
||||||
Left = 49
|
Left = 126
|
||||||
Height = 24
|
Height = 24
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 5
|
Width = 5
|
||||||
@ -1247,6 +1247,42 @@ object Form1: TForm1
|
|||||||
Top = 0
|
Top = 0
|
||||||
Action = AcFileSaveAs
|
Action = AcFileSaveAs
|
||||||
end
|
end
|
||||||
|
object ToolButton39: TToolButton
|
||||||
|
Left = 131
|
||||||
|
Top = 0
|
||||||
|
Action = AcColAdd
|
||||||
|
end
|
||||||
|
object ToolButton40: TToolButton
|
||||||
|
Left = 155
|
||||||
|
Top = 0
|
||||||
|
Action = AcColDelete
|
||||||
|
end
|
||||||
|
object ToolButton41: TToolButton
|
||||||
|
Left = 184
|
||||||
|
Top = 0
|
||||||
|
Action = AcRowAdd
|
||||||
|
end
|
||||||
|
object ToolButton42: TToolButton
|
||||||
|
Left = 208
|
||||||
|
Top = 0
|
||||||
|
Action = AcRowDelete
|
||||||
|
end
|
||||||
|
object ToolButton43: TToolButton
|
||||||
|
Left = 49
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Width = 5
|
||||||
|
Caption = 'ToolButton43'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object ToolButton44: TToolButton
|
||||||
|
Left = 179
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Width = 5
|
||||||
|
Caption = 'ToolButton44'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ToolBar3: TToolBar
|
object ToolBar3: TToolBar
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -1326,7 +1362,7 @@ object Form1: TForm1
|
|||||||
object AcAddWorksheet: TsWorksheetAddAction
|
object AcAddWorksheet: TsWorksheetAddAction
|
||||||
Category = 'FPSpreadsheet'
|
Category = 'FPSpreadsheet'
|
||||||
WorkbookSource = WorkbookSource
|
WorkbookSource = WorkbookSource
|
||||||
Caption = 'Add'
|
Caption = 'Add worksheet'
|
||||||
Hint = 'Add empty worksheet'
|
Hint = 'Add empty worksheet'
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
NameMask = 'Sheet%d'
|
NameMask = 'Sheet%d'
|
||||||
@ -1334,7 +1370,7 @@ object Form1: TForm1
|
|||||||
object AcDeleteWorksheet: TsWorksheetDeleteAction
|
object AcDeleteWorksheet: TsWorksheetDeleteAction
|
||||||
Category = 'FPSpreadsheet'
|
Category = 'FPSpreadsheet'
|
||||||
WorkbookSource = WorkbookSource
|
WorkbookSource = WorkbookSource
|
||||||
Caption = 'Delete...'
|
Caption = 'Delete worksheet...'
|
||||||
Hint = 'Delete worksheet'
|
Hint = 'Delete worksheet'
|
||||||
ImageIndex = 2
|
ImageIndex = 2
|
||||||
end
|
end
|
||||||
@ -2041,12 +2077,40 @@ object Form1: TForm1
|
|||||||
Caption = 'Inspector'
|
Caption = 'Inspector'
|
||||||
OnExecute = AcViewInspectorExecute
|
OnExecute = AcViewInspectorExecute
|
||||||
end
|
end
|
||||||
|
object AcRowAdd: TAction
|
||||||
|
Category = 'Edit'
|
||||||
|
Caption = 'Add row'
|
||||||
|
Hint = 'Add row'
|
||||||
|
ImageIndex = 48
|
||||||
|
OnExecute = AcRowAddExecute
|
||||||
|
end
|
||||||
|
object AcColAdd: TAction
|
||||||
|
Category = 'Edit'
|
||||||
|
Caption = 'Add column'
|
||||||
|
Hint = 'Add column'
|
||||||
|
ImageIndex = 47
|
||||||
|
OnExecute = AcColAddExecute
|
||||||
|
end
|
||||||
|
object AcRowDelete: TAction
|
||||||
|
Category = 'Edit'
|
||||||
|
Caption = 'Delete row'
|
||||||
|
Hint = 'Delete row'
|
||||||
|
ImageIndex = 50
|
||||||
|
OnExecute = AcRowDeleteExecute
|
||||||
|
end
|
||||||
|
object AcColDelete: TAction
|
||||||
|
Category = 'Edit'
|
||||||
|
Caption = 'Delete column'
|
||||||
|
Hint = 'Delete column'
|
||||||
|
ImageIndex = 49
|
||||||
|
OnExecute = AcColDeleteExecute
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ImageList: TImageList
|
object ImageList: TImageList
|
||||||
left = 176
|
left = 176
|
||||||
top = 312
|
top = 312
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C69370000001000000010000000003F9300003F9300003F9300003F9424003F
|
4C693D0000001000000010000000003F9300003F9300003F9300003F9424003F
|
||||||
948A003E93CC004095CC004095CC004095CC004095CC004095CC004095CC0040
|
948A003E93CC004095CC004095CC004095CC004095CC004095CC004095CC0040
|
||||||
95CC004095CC00409599003F9400003F9300003F9324003F938A0E4B9CD33F76
|
95CC004095CC00409599003F9400003F9300003F9324003F938A0E4B9CD33F76
|
||||||
C0EC5D90D4FF3365A9FFA0A0A0FFA9A9A9FFA9A9A9FFAAAAAAFFACACACFFAEAE
|
C0EC5D90D4FF3365A9FFA0A0A0FFA9A9A9FFA9A9A9FFAAAAAAFFACACACFFAEAE
|
||||||
@ -3551,6 +3615,198 @@ object Form1: TForm1
|
|||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A2AE8EFF5F9771FF4F8E
|
||||||
|
66FF49895FFFA2AE8EFFFFFFFF00FFFFFF00EFC2A37EEFC1A2E3EDC09FFFEBBE
|
||||||
|
9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FF9DAF91FF61AB81FF95D4B4FFBAE6
|
||||||
|
D0FF6ABB8FFF2D8F57FF196B378CFFFFFF00EEC1A1EBFBF7F4FFFBF7F4FFFBF7
|
||||||
|
F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FF498960FF90D3B1FF92D6B1FFFFFF
|
||||||
|
FFFF65BC8CFF67BC8FFF196B37F7FFFFFF00ECBF9EFFFBF7F4FF9CD5A5FF98D3
|
||||||
|
A1FF94D09DFF90CE98FF8BCB93FF87C98EFF317B4CFF9CD4B6FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFF95D2B2FF196B37FFFFFFFF00EBBD9BFFFBF7F4FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF22703EFF62BA8BFF60BA87FFFFFF
|
||||||
|
FFFF60B987FF67BC8FFF196B37F7FFFFFF00E9BA98FFFBF7F4FF4FA358FF4FA3
|
||||||
|
58FF59B163FFE9C3A6FFE9C3A6FFE9C3A6FFA2AE8EFF288C53FF64BA8DFF95D2
|
||||||
|
B2FF64BA8DFF288C53FF196B378CFFFFFF00E7B794FFFBF7F4FF489B51FFB9DF
|
||||||
|
BDFF54AB5EFFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFF84B094FF257341FF196B
|
||||||
|
37FF247240FF6C7C4AFFFFFFFF00FFFFFF00E5B48FFFFAF6F2FF42924AFFB6DD
|
||||||
|
BAFF4FA358FFE9C7ADFFE9C9AEFFE9C9B0FFE8C7ACFFE9C9B0FFE8C8B0FFE8CC
|
||||||
|
B5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E3B18CFFFAF6F1FF3B8842FFACD8
|
||||||
|
B0FF489B51FFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E1AE87FFFAF4F0FF347E3AFFA0D3
|
||||||
|
A4FF42924AFFEACCB3FFEACCB3FFEACEB7FFE8C7ACFFE8C7ACFFE8C8B0FFE8C8
|
||||||
|
AEFFF0E2D8FFC48654FFFFFFFF00FFFFFF00DFAA82FFF9F3EFFF2E7533FF92CC
|
||||||
|
97FF3B8842FFFFFFFFFFFFFFFFFFFFFFFFFFEACFBAFFFBF6F2FFFFFFFFFFFFFF
|
||||||
|
FFFFF0E2D8FFC88D5FFFFFFFFF00FFFFFF00DDA87EFFF9F3EFFF276D2CFF84C6
|
||||||
|
8AFF347E3AFFEBD0BBFFEBD0BBFFEBD1BDFFEACDB5FFEACDB5FFEACDB5FFEACD
|
||||||
|
B5FFF0E2D8FFC68A5CFFFFFFFF00FFFFFF00D9A47AFFF9F3EEFF1D5F21FF2265
|
||||||
|
26FF276D2CFFFFFFFFFFFFFFFFFFFFFFFFFFEAC7ADFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF0E2D8FFC68C5FFFFFFFFF00FFFFFF00D7A175FFF8F2EDFFF7F0EAFFF6ED
|
||||||
|
E6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFF0E2D8FFF0E2D8FFF0E2D8FFF0E2
|
||||||
|
D8FFF0E2D8FFC58A5DFDFFFFFF00FFFFFF00D69E72C4D3996EF4D19668FFCE92
|
||||||
|
63FFCB8E5EFFC98A5BFFC78756FFC38452FFC38452FFC38452FFC38452FFC384
|
||||||
|
52FFC38452FFBB7742B0FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A2AE8EFF5F9771FF4F8E
|
||||||
|
66FF49895FFFA2AE8EFFFFFFFF00FFFFFF00EFC2A37EEFC1A2E3EDC09FFFEBBE
|
||||||
|
9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FF9DAF91FF61AB81FF95D4B4FFBAE6
|
||||||
|
D0FF6ABB8FFF2D8F57FF196B378CFFFFFF00EEC1A1EBFBF7F4FFFBF7F4FFFBF7
|
||||||
|
F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FF498960FF90D3B1FF92D6B1FFFFFF
|
||||||
|
FFFF65BC8CFF67BC8FFF196B37F7FFFFFF00ECBF9EFFFBF7F4FF9CD5A5FF98D3
|
||||||
|
A1FF94D09DFF90CE98FF8BCB93FF87C98EFF317B4CFF9CD4B6FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFF95D2B2FF196B37FFFFFFFF00EBBD9BFFFBF7F4FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF22703EFF62BA8BFF60BA87FFFFFF
|
||||||
|
FFFF60B987FF67BC8FFF196B37F7FFFFFF00E9BA98FFFBF7F4FFE9C3A6FFE9C3
|
||||||
|
A6FFE9C3A6FFE9C3A6FFE9C3A6FFE9C3A6FFA2AE8EFF288C53FF64BA8DFF95D2
|
||||||
|
B2FF64BA8DFF288C53FF196B378CFFFFFF00E7B794FFFBF7F4FFE9C3A6FFFFFF
|
||||||
|
FFFFE8C4A9FFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFF84B094FF257341FF196B
|
||||||
|
37FF247240FF6C7C4AFFFFFFFF00FFFFFF00E5B48FFFFAF6F2FFE9C6AAFFE9C6
|
||||||
|
ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FFE8C7ACFFE9C9B0FFE8C8B0FFE8CC
|
||||||
|
B5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E3B18CFFFAF6F1FFEAC9AEFFFFFF
|
||||||
|
FFFFEAC9B0FFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E1AE87FFFAF4F0FF59B163FF54AB
|
||||||
|
5EFF4FA358FF4FA358FF489B51FF42924AFF3B8842FF347E3AFF2E7533FF276D
|
||||||
|
2CFFF0E2D8FFC48654FFFFFFFF00FFFFFF00DFAA82FFF9F3EFFF58B162FFB9DF
|
||||||
|
BDFFB6DDBAFFB6DDBAFFACD8B0FFA0D3A4FF92CC97FF84C68AFF79C17EFF2265
|
||||||
|
26FFF0E2D8FFC88D5FFFFFFFFF00FFFFFF00DDA87EFFF9F3EFFF4FA358FF489B
|
||||||
|
51FF42924AFF42924AFF3B8842FF347E3AFF2E7533FF276D2CFF226526FF1D5F
|
||||||
|
21FFF0E2D8FFC68A5CFFFFFFFF00FFFFFF00D9A47AFFF9F3EEFFEBD2BEFFFFFF
|
||||||
|
FFFFEBD3BFFFFFFFFFFFFFFFFFFFFFFFFFFFEAC7ADFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF0E2D8FFC68C5FFFFFFFFF00FFFFFF00D7A175FFF8F2EDFFF7F0EAFFF6ED
|
||||||
|
E6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFF0E2D8FFF0E2D8FFF0E2D8FFF0E2
|
||||||
|
D8FFF0E2D8FFC58A5DFDFFFFFF00FFFFFF00D69E72C4D3996EF4D19668FFCE92
|
||||||
|
63FFCB8E5EFFC98A5BFFC78756FFC38452FFC38452FFC38452FFC38452FFC384
|
||||||
|
52FFC38452FFBB7742B0FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007591C3FF235BC0FF0543
|
||||||
|
BCFF1D58BFFF7591C2FFFFFFFF00FFFFFF00EFC2A37EEFC1A2E3EDC09FFFEBBE
|
||||||
|
9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FF96B1E3FF3D76D2FF8DB5F7FFB8D6
|
||||||
|
FEFF72A8F5FF2E6BCAFF0443BA6DFFFFFF00EEC1A1EBFBF7F4FFFBF7F4FFFBF7
|
||||||
|
F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FF255DC2FF8DB5F6FF4D92FFFF1177
|
||||||
|
FFFF2186FFFF408AEBFF0344B9DEFFFFFF00ECBF9EFFFBF7F4FF9CD5A5FF98D3
|
||||||
|
A1FF94D09DFF90CE98FF8BCB93FF87C98EFF0543BCFFAECDFEFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFF187FEFFF0442BCFEFFFFFF00EBBD9BFFFBF7F4FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF164BAEFF639DF4FF187FFFFF0076
|
||||||
|
F8FF0076EEFF0368E1FF0345B9E4FFFFFF00E9BA98FFFBF7F4FF6D6FFCFF7478
|
||||||
|
FEFF7478FEFFE9C3A6FFE9C3A6FFE9C3A6FF818DB5FF2865C8FF2177E6FF0579
|
||||||
|
EAFF0164DDFF064EBCFF0345B87AFFFFFF00E7B794FFFBF7F4FF6263FAFFC4CE
|
||||||
|
FDFF7478FEFFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFF95B0E3FF235CC2FF0543
|
||||||
|
BCFF1E58BEFF6B6C8AFFFFFFFF00FFFFFF00E5B48FFFFAF6F2FF5654F7FFC1CB
|
||||||
|
FCFF6D6FFCFFE9C7ADFFE9C9AEFFE9C9B0FFE8C7ACFFE9C9B0FFE8C8B0FFE8CC
|
||||||
|
B5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E3B18CFFFAF6F1FF3A35F1FFB1B9
|
||||||
|
FBFF5654F7FFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E1AE87FFFAF4F0FF2E26EEFFA6AD
|
||||||
|
FBFF4845F4FFEACCB3FFEACCB3FFEACEB7FFE8C7ACFFE8C7ACFFE8C8B0FFE8C8
|
||||||
|
AEFFF0E2D8FFC48654FFFFFFFF00FFFFFF00DFAA82FFF9F3EFFF231AECFF9CA2
|
||||||
|
FAFF3A35F1FFFFFFFFFFFFFFFFFFFFFFFFFFEACFBAFFFBF6F2FFFFFFFFFFFFFF
|
||||||
|
FFFFF0E2D8FFC88D5FFFFFFFFF00FFFFFF00DDA87EFFF9F3EFFF1C11EAFF9399
|
||||||
|
F9FF2E26EEFFEBD0BBFFEBD0BBFFEBD1BDFFEACDB5FFEACDB5FFEACDB5FFEACD
|
||||||
|
B5FFF0E2D8FFC68A5CFFFFFFFF00FFFFFF00D9A47AFFF9F3EEFF1C11EAFF1C11
|
||||||
|
EAFF231AECFFFFFFFFFFFFFFFFFFFFFFFFFFEAC7ADFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF0E2D8FFC68C5FFFFFFFFF00FFFFFF00D7A175FFF8F2EDFFF7F0EAFFF6ED
|
||||||
|
E6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFF0E2D8FFF0E2D8FFF0E2D8FFF0E2
|
||||||
|
D8FFF0E2D8FFC58A5DFDFFFFFF00FFFFFF00D69E72C4D3996EF4D19668FFCE92
|
||||||
|
63FFCB8E5EFFC98A5BFFC78756FFC38452FFC38452FFC38452FFC38452FFC384
|
||||||
|
52FFC38452FFBB7742B0FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007590C3FF2359BFFF0541
|
||||||
|
BBFF1D55BFFF758FC1FFFFFFFF00FFFFFF00EFC1A37EEFC0A1E3EDBF9FFFEBBD
|
||||||
|
9DFFEBBB99FFE9B995FFE7B693FFE6B390FF95B0E3FF3D73D1FF8DB3F7FFB8D5
|
||||||
|
FEFF71A5F5FF2E69CAFF0440BA6DFFFFFF00EEBFA0EBFBF6F3FFFBF6F3FFFBF6
|
||||||
|
F3FFFBF6F3FFFBF6F3FFFBF6F3FFFBF6F3FF255BC1FF8CB2F6FF4D91FFFF1174
|
||||||
|
FFFF2184FFFF3F86EBFF0342B9DEFFFFFF00ECBE9EFFFBF6F3FF9BD5A3FF97D3
|
||||||
|
A0FF94D09DFF90CE97FF8BCB92FF87C98DFF0541BBFFAECCFEFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFF187BEEFF0441BCFEFFFFFF00EBBC9BFFFBF6F3FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1648AEFF629CF4FF177BFFFF0073
|
||||||
|
F8FF0073EEFF0366E1FF0342B9E4FFFFFF00E9B997FFFBF6F3FFE9C1A5FFE9C1
|
||||||
|
A5FFE9C1A5FFE9C1A5FFE9C1A5FFE9C1A5FF818CB5FF2862C8FF2075E6FF0577
|
||||||
|
E9FF0164DDFF064BBCFF0342B77AFFFFFF00E7B693FFFBF6F3FFE9C1A5FFFFFF
|
||||||
|
FFFFE8C2A8FFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFF95AFE3FF235AC1FF0541
|
||||||
|
BBFF1E56BEFF6B6B89FFFFFFFF00FFFFFF00E5B28FFFFAF6F2FFE9C4A9FFE9C4
|
||||||
|
ABFFEAC6ACFFE9C7ADFFE9C8ADFFE9C8AFFFE8C7ACFFE9C8AFFFE8C7B0FFE8CB
|
||||||
|
B4FFF2E7DEFFC88858FFFFFFFF00FFFFFF00E3AF8BFFFAF5F0FFEAC9AEFFFFFF
|
||||||
|
FFFFEAC8B0FFFFFFFFFFFFFFFFFFFFFFFFFFE8C7ACFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF1E4DBFFC58555FFFFFFFF00FFFFFF00E1AE87FFFAF4F0FF7476FEFF7476
|
||||||
|
FEFF7476FEFF6C6CFCFF6262FAFF5353F7FF4644F4FF3835F1FF2C26EEFF211A
|
||||||
|
ECFFF0E2D8FFC48454FFFFFFFF00FFFFFF00DFA881FFF9F3EFFF7476FEFFC3CC
|
||||||
|
FDFFC3CCFDFFC0CAFCFFBAC2FCFFB1B8FBFFA5AAFBFF9CA0FAFF9398F9FF1B11
|
||||||
|
E9FFF0E2D8FFC88B5EFFFFFFFF00FFFFFF00DDA67DFFF9F3EFFF6C6CFCFF6262
|
||||||
|
FAFF6262FAFF5353F7FF4644F4FF3835F1FF2C26EEFF211AECFF1B11E9FF1B11
|
||||||
|
E9FFF0E2D8FFC6895CFFFFFFFF00FFFFFF00D9A279FFF9F2EDFFEBD0BDFFFFFF
|
||||||
|
FFFFEBD2BFFFFFFFFFFFFFFFFFFFFFFFFFFFEAC5ACFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF0E2D8FFC68B5EFFFFFFFF00FFFFFF00D79F75FFF8F1ECFFF7EFE9FFF6EC
|
||||||
|
E6FFF4E9E2FFF3E6DDFFF1E3DBFFF0E2D8FFF0E2D8FFF0E2D8FFF0E2D8FFF0E2
|
||||||
|
D8FFF0E2D8FFC5885DFDFFFFFF00FFFFFF00D69D72C4D3976DF4D09568FFCE90
|
||||||
|
62FFCB8C5DFFC9885BFFC78655FFC28252FFC28252FFC28252FFC28252FFC282
|
||||||
|
52FFC28252FFBA7642B0FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003B7F320015A9000015A9000015A9
|
||||||
|
000015A9000015AA009915AA00CC15AA00CC15AA009915A9000015A9000015A9
|
||||||
|
000015A90000119A0000FFFFFF00FFFFFF00119A0000129F000014A8000014A8
|
||||||
|
000014A8000014A800CC72E961FF71E860FF14A800CC14A8000014A8000014A8
|
||||||
|
0000129F0000119A0000FFFFFF00FFFFFF00119A0000119B0000129E000014A5
|
||||||
|
000014A5000014A500CC69E058FF69E058FF14A500CC14A5000014A50000129E
|
||||||
|
0000119B0000119A0000FFFFFF00FFFFFF00119A0000119B0000119B0000129D
|
||||||
|
000013A2000013A200CC62D951FF61D850FF13A200CC13A20000129D0000119B
|
||||||
|
0000119B0000119A0000FFFFFF00FFFFFF00119A0000119B0000119B0000119B
|
||||||
|
0000129C0000129E00CC5AD149FF59D048FF129E00CC129C0000119B0000119B
|
||||||
|
0000119B0000119A0000FFFFFF00FFFFFF00119A0099119A00CC119A00CC119A
|
||||||
|
00CC119A00CC119A00CC54CB43FF52C941FF119A00CC119A00CC119A00CC119A
|
||||||
|
00CC119A00CC119A0099FFFFFF00FFFFFF00109600CC5ED54DFF55CC44FF54CB
|
||||||
|
43FF53CA42FF52C941FF4BC23AFF4AC139FF4FC63EFF4EC53DFF4DC43CFF4CC3
|
||||||
|
3BFF4EC53DFF109600CCFFFFFF00FFFFFF000F9200CC59D048FF50C73FFF50C7
|
||||||
|
3FFF4FC63EFF4AC139FF3BB32AFF31A920FF31A920FF2CA51BFF2BA31AFF2DA5
|
||||||
|
1CFF33AB22FF0F9200CCFFFFFF00FFFFFF000E8E00990E8D00CC0E8D00CC0E8D
|
||||||
|
00CC0E8D00CC0E8D00CC2DAE1CFF2BAC1AFF0E8D00CC0E8D00CC0E8D00CC0E8D
|
||||||
|
00CC0E8D00CC0E8E0099FFFFFF00FFFFFF000E8D00000E8C00000E8C00000E8C
|
||||||
|
00000E8B00000D8900CC29B618FF27B416FF0D8900CC0E8B00000E8C00000E8C
|
||||||
|
00000E8C00000E8D0000FFFFFF00FFFFFF000E8D00000E8C00000E8C00000E8A
|
||||||
|
00000C8400000C8400CC25C014FF24C013FF0C8400CC0C8400000E8A00000E8C
|
||||||
|
00000E8C00000E8D0000FFFFFF00FFFFFF000E8D00000E8C00000D8800000A7D
|
||||||
|
00000A7D00000A7D00CC23CD12FF22CC11FF0A7D00CC0A7D00000A7D00000D88
|
||||||
|
00000E8C00000E8D0000FFFFFF00FFFFFF000E8D00000C830000066D0000066D
|
||||||
|
0000066D0000066D00CC22D811FF22D811FF066D00CC066D0000066D0000066D
|
||||||
|
00000C8300000E8D0000FFFFFF00FFFFFF000E8D000003600000036000000360
|
||||||
|
000003600000035F0099025D00CC025D00CC035F009903600000036000000360
|
||||||
|
0000036000000E8D0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A7990000A8CC0000A8CC0000
|
||||||
|
A8CC0000A8CC0000A8CC0000A8CC0000A8CC0000A8CC0000A8CC0000A8CC0000
|
||||||
|
A8CC0000A8CC0000A799FFFFFF00FFFFFF0000009ECC6666EEFF5B5BE3FF5555
|
||||||
|
DDFF4F4FD7FF4A4AD2FF4545CDFF4343CBFF4141C9FF4040C8FF3F3FC7FF3E3E
|
||||||
|
C6FF4040C8FF00009ECCFFFFFF00FFFFFF0000008FCC5F5FE7FF5252DAFF4C4C
|
||||||
|
D4FF4646CEFF4141C9FF3E3EC6FF3D3DC5FF3C3CC4FF3B3BC3FF3A3AC2FF3939
|
||||||
|
C1FF3A3AC2FF00008FCCFFFFFF00FFFFFF0000007E99000078CC000078CC0000
|
||||||
|
78CC000078CC000078CC000078CC000078CC000078CC000078CC000078CC0000
|
||||||
|
78CC000078CC00007E99FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
@ -3844,6 +4100,24 @@ object Form1: TForm1
|
|||||||
Action = acRenameWorksheet
|
Action = acRenameWorksheet
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object MnuColumn: TMenuItem
|
||||||
|
Caption = 'Column'
|
||||||
|
object MenuItem90: TMenuItem
|
||||||
|
Action = AcColAdd
|
||||||
|
end
|
||||||
|
object MenuItem93: TMenuItem
|
||||||
|
Action = AcColDelete
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MnuRow: TMenuItem
|
||||||
|
Caption = 'Row'
|
||||||
|
object MenuItem91: TMenuItem
|
||||||
|
Action = AcRowAdd
|
||||||
|
end
|
||||||
|
object MenuItem92: TMenuItem
|
||||||
|
Action = AcRowDelete
|
||||||
|
end
|
||||||
|
end
|
||||||
object MenuItem9: TMenuItem
|
object MenuItem9: TMenuItem
|
||||||
Caption = 'Cell'
|
Caption = 'Cell'
|
||||||
object MenuItem89: TMenuItem
|
object MenuItem89: TMenuItem
|
||||||
|
|||||||
@ -14,6 +14,10 @@ type
|
|||||||
{ TForm1 }
|
{ TForm1 }
|
||||||
|
|
||||||
TForm1 = class(TForm)
|
TForm1 = class(TForm)
|
||||||
|
AcRowDelete: TAction;
|
||||||
|
AcColDelete: TAction;
|
||||||
|
AcRowAdd: TAction;
|
||||||
|
AcColAdd: TAction;
|
||||||
AcViewInspector: TAction;
|
AcViewInspector: TAction;
|
||||||
ActionList: TActionList;
|
ActionList: TActionList;
|
||||||
AcFileExit: TFileExit;
|
AcFileExit: TFileExit;
|
||||||
@ -106,6 +110,14 @@ type
|
|||||||
MenuItem87: TMenuItem;
|
MenuItem87: TMenuItem;
|
||||||
MenuItem88: TMenuItem;
|
MenuItem88: TMenuItem;
|
||||||
MenuItem89: TMenuItem;
|
MenuItem89: TMenuItem;
|
||||||
|
MenuItem90: TMenuItem;
|
||||||
|
MenuItem91: TMenuItem;
|
||||||
|
MnuColumn: TMenuItem;
|
||||||
|
MenuItem93: TMenuItem;
|
||||||
|
MenuItem94: TMenuItem;
|
||||||
|
MnuAddWorksheet: TMenuItem;
|
||||||
|
MnuRow: TMenuItem;
|
||||||
|
MenuItem92: TMenuItem;
|
||||||
MnuView: TMenuItem;
|
MnuView: TMenuItem;
|
||||||
MenuItem6: TMenuItem;
|
MenuItem6: TMenuItem;
|
||||||
MenuItem7: TMenuItem;
|
MenuItem7: TMenuItem;
|
||||||
@ -223,7 +235,13 @@ type
|
|||||||
ToolButton36: TToolButton;
|
ToolButton36: TToolButton;
|
||||||
ToolButton37: TToolButton;
|
ToolButton37: TToolButton;
|
||||||
ToolButton38: TToolButton;
|
ToolButton38: TToolButton;
|
||||||
|
ToolButton39: TToolButton;
|
||||||
ToolButton4: TToolButton;
|
ToolButton4: TToolButton;
|
||||||
|
ToolButton40: TToolButton;
|
||||||
|
ToolButton41: TToolButton;
|
||||||
|
ToolButton42: TToolButton;
|
||||||
|
ToolButton43: TToolButton;
|
||||||
|
ToolButton44: TToolButton;
|
||||||
ToolButton5: TToolButton;
|
ToolButton5: TToolButton;
|
||||||
ToolButton6: TToolButton;
|
ToolButton6: TToolButton;
|
||||||
ToolButton7: TToolButton;
|
ToolButton7: TToolButton;
|
||||||
@ -232,8 +250,12 @@ type
|
|||||||
WorkbookSource: TsWorkbookSource;
|
WorkbookSource: TsWorkbookSource;
|
||||||
WorkbookTabControl: TsWorkbookTabControl;
|
WorkbookTabControl: TsWorkbookTabControl;
|
||||||
WorksheetGrid: TsWorksheetGrid;
|
WorksheetGrid: TsWorksheetGrid;
|
||||||
|
procedure AcColAddExecute(Sender: TObject);
|
||||||
|
procedure AcColDeleteExecute(Sender: TObject);
|
||||||
procedure AcFileOpenAccept(Sender: TObject);
|
procedure AcFileOpenAccept(Sender: TObject);
|
||||||
procedure AcFileSaveAsAccept(Sender: TObject);
|
procedure AcFileSaveAsAccept(Sender: TObject);
|
||||||
|
procedure AcRowAddExecute(Sender: TObject);
|
||||||
|
procedure AcRowDeleteExecute(Sender: TObject);
|
||||||
procedure AcViewInspectorExecute(Sender: TObject);
|
procedure AcViewInspectorExecute(Sender: TObject);
|
||||||
procedure InspectorTabControlChange(Sender: TObject);
|
procedure InspectorTabControlChange(Sender: TObject);
|
||||||
private
|
private
|
||||||
@ -290,6 +312,40 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ Adds a column before the active cell }
|
||||||
|
procedure TForm1.AcColAddExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.InsertCol(WorksheetGrid.Col);
|
||||||
|
WorksheetGrid.Col := WorksheetGrid.Col + 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Deletes the column with the active cell }
|
||||||
|
procedure TForm1.AcColDeleteExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
c: Integer;
|
||||||
|
begin
|
||||||
|
c := WorksheetGrid.Col;
|
||||||
|
WorksheetGrid.DeleteCol(c);
|
||||||
|
WorksheetGrid.Col := c;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Adds a row before the active cell }
|
||||||
|
procedure TForm1.AcRowAddExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WorksheetGrid.InsertRow(WorksheetGrid.Row);
|
||||||
|
WorksheetGrid.Row := WorksheetGrid.Row + 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Deletes the row with the active cell }
|
||||||
|
procedure TForm1.AcRowDeleteExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
r: Integer;
|
||||||
|
begin
|
||||||
|
r := WorksheetGrid.Row;
|
||||||
|
WorksheetGrid.DeleteRow(r);
|
||||||
|
WorksheetGrid.Row := r;
|
||||||
|
end;
|
||||||
|
|
||||||
{ Toggles the spreadsheet inspector on and off }
|
{ Toggles the spreadsheet inspector on and off }
|
||||||
procedure TForm1.AcViewInspectorExecute(Sender: TObject);
|
procedure TForm1.AcViewInspectorExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -532,10 +532,10 @@ begin
|
|||||||
SetLength(destSelection, Length(FPendingSelection));
|
SetLength(destSelection, Length(FPendingSelection));
|
||||||
for i := 0 to High(FPendingSelection) do
|
for i := 0 to High(FPendingSelection) do
|
||||||
destSelection[i] := TsCellRange(Rect(
|
destSelection[i] := TsCellRange(Rect(
|
||||||
FPendingSelection[i].Row1 + ofsRow,
|
LongInt(FPendingSelection[i].Row1) + ofsRow,
|
||||||
FPendingSelection[i].Col1 + ofsCol,
|
LongInt(FPendingSelection[i].Col1) + ofsCol,
|
||||||
FPendingSelection[i].Row2 + ofsRow,
|
LongInt(FPendingSelection[i].Row2) + ofsRow,
|
||||||
FPendingSelection[i].Col2 + ofsCol
|
LongInt(FPendingSelection[i].Col2) + ofsCol
|
||||||
));
|
));
|
||||||
|
|
||||||
// Check for intersection between source and destination ranges
|
// Check for intersection between source and destination ranges
|
||||||
|
|||||||
Reference in New Issue
Block a user