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

fpspreadsheet: Improved usability of the TsSpreadsheetInspector.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4164 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-05-30 14:01:10 +00:00
parent 75b30afd0a
commit 5b0181c297
3 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpspreadsheet/examples/visual/fpsctrls/main.lfm
View File

@ -13,7 +13,7 @@ object MainForm: TMainForm
Left = 0 Left = 0
Height = 518 Height = 518
Top = 83 Top = 83
Width = 682 Width = 654
TabIndex = 0 TabIndex = 0
Tabs.Strings = ( Tabs.Strings = (
'Sheet1' 'Sheet1'
@ -25,7 +25,7 @@ object MainForm: TMainForm
Left = 2 Left = 2
Height = 493 Height = 493
Top = 23 Top = 23
Width = 678 Width = 650
FrozenCols = 0 FrozenCols = 0
FrozenRows = 0 FrozenRows = 0
ReadFormulas = False ReadFormulas = False
@ -50,10 +50,10 @@ object MainForm: TMainForm
end end
end end
object InspectorTabControl: TTabControl object InspectorTabControl: TTabControl
Left = 687 Left = 659
Height = 518 Height = 518
Top = 83 Top = 83
Width = 253 Width = 281
OnChange = InspectorTabControlChange OnChange = InspectorTabControlChange
TabIndex = 0 TabIndex = 0
Tabs.Strings = ( Tabs.Strings = (
@ -69,8 +69,9 @@ object MainForm: TMainForm
Left = 2 Left = 2
Height = 493 Height = 493
Top = 23 Top = 23
Width = 249 Width = 277
Align = alClient Align = alClient
MouseWheelOption = mwGrid
RowCount = 30 RowCount = 30
TabOrder = 1 TabOrder = 1
TitleStyle = tsNative TitleStyle = tsNative
@ -120,7 +121,7 @@ object MainForm: TMainForm
end end
end end
object InspectorSplitter: TSplitter object InspectorSplitter: TSplitter
Left = 682 Left = 654
Height = 518 Height = 518
Top = 83 Top = 83
Width = 5 Width = 5

6
components/fpspreadsheet/fpsnumformatparser.pas
View File

@ -616,8 +616,10 @@ begin
end; end;
end; end;
// If we get here the token is isolated. In case we assume that it is a // If we get here the token is isolated. In this case we assume
// month - that's the way Excel does it. // that it is a month - that's the way Excel does it when reading files
// (for editing of a worksheet, however, Excel distinguishes between
// uppercase "M" for "month" and lowercase "m" for "minute".)
ASection.Elements[i].Token := nftMonth; ASection.Elements[i].Token := nftMonth;
Include(ASection.Kind, nfkDate); Include(ASection.Kind, nfkDate);
end; end;

2
components/fpspreadsheet/fpspreadsheetctrls.pas
View File

@ -434,6 +434,8 @@ type
property DisplayOptions default [doColumnTitles, doAutoColResize]; property DisplayOptions default [doColumnTitles, doAutoColResize];
{@@ inherited from TValueListEditor. Turns of the fixed column by default} {@@ inherited from TValueListEditor. Turns of the fixed column by default}
property FixedCols default 0; property FixedCols default 0;
{@@ inherited from TStringGrid, but not published in TValueListEditor. }
property ExtendedColSizing;
end; end;
var var