18e94d29b1
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4024 8e941d3f-bd1b-0410-a28a-d453659cc2b4
555 lines
13 KiB
Plaintext
555 lines
13 KiB
Plaintext
object CSVParamsForm: TCSVParamsForm
|
|
Left = 638
|
|
Height = 555
|
|
Top = 250
|
|
Width = 470
|
|
BorderStyle = bsDialog
|
|
Caption = 'Parameters for comma-delimited files'
|
|
ClientHeight = 555
|
|
ClientWidth = 470
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
Position = poMainFormCenter
|
|
LCLVersion = '1.5'
|
|
object ButtonPanel: TButtonPanel
|
|
Left = 6
|
|
Height = 34
|
|
Top = 515
|
|
Width = 458
|
|
OKButton.Name = 'OKButton'
|
|
OKButton.DefaultCaption = True
|
|
HelpButton.Name = 'HelpButton'
|
|
HelpButton.DefaultCaption = True
|
|
CloseButton.Name = 'CloseButton'
|
|
CloseButton.DefaultCaption = True
|
|
CancelButton.Name = 'CancelButton'
|
|
CancelButton.DefaultCaption = True
|
|
TabOrder = 0
|
|
ShowButtons = [pbOK, pbCancel]
|
|
end
|
|
object PageControl: TPageControl
|
|
Left = 8
|
|
Height = 499
|
|
Top = 8
|
|
Width = 454
|
|
ActivePage = PgGeneralParams
|
|
Align = alClient
|
|
BorderSpacing.Around = 8
|
|
MultiLine = True
|
|
TabIndex = 0
|
|
TabOrder = 1
|
|
Options = [nboMultiLine]
|
|
object PgGeneralParams: TTabSheet
|
|
Caption = 'General'
|
|
ClientHeight = 471
|
|
ClientWidth = 446
|
|
object LblQuoteChar: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 84
|
|
Width = 88
|
|
Caption = 'Quote character:'
|
|
FocusControl = CbQuoteChar
|
|
ParentColor = False
|
|
end
|
|
object CbQuoteChar: TComboBox
|
|
Left = 156
|
|
Height = 23
|
|
Top = 80
|
|
Width = 275
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'none'
|
|
'double ( " )'
|
|
'single ( '' )'
|
|
)
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
Text = 'none'
|
|
end
|
|
object CbDelimiter: TComboBox
|
|
Left = 156
|
|
Height = 23
|
|
Top = 16
|
|
Width = 275
|
|
ItemHeight = 15
|
|
ItemIndex = 4
|
|
Items.Strings = (
|
|
'Comma ( , )'
|
|
'Semicolon ( ; )'
|
|
'Colon ( : )'
|
|
'Bar ( | )'
|
|
'TAB'
|
|
)
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
Text = 'TAB'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 19
|
|
Width = 96
|
|
Caption = 'Column delimiter:'
|
|
FocusControl = CbDelimiter
|
|
ParentColor = False
|
|
end
|
|
object Label4: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 51
|
|
Width = 65
|
|
Caption = 'Line ending:'
|
|
FocusControl = CbLineEnding
|
|
ParentColor = False
|
|
end
|
|
object CbLineEnding: TComboBox
|
|
Left = 156
|
|
Height = 23
|
|
Top = 48
|
|
Width = 275
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'System'
|
|
'CR+LF (Windows)'
|
|
'CR (Mac)'
|
|
'LF (Unix/Linux/OS X/BSD)'
|
|
)
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
Text = 'System'
|
|
end
|
|
object RgDetectContentType: TRadioGroup
|
|
Left = 16
|
|
Height = 80
|
|
Top = 156
|
|
Width = 415
|
|
AutoFill = True
|
|
Caption = 'Conversion of strings after reading'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 60
|
|
ClientWidth = 411
|
|
ItemIndex = 1
|
|
Items.Strings = (
|
|
'Do not convert, strings are sufficient'
|
|
'Try to convert strings to content types'
|
|
)
|
|
TabOrder = 3
|
|
end
|
|
object LbEncoding: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 116
|
|
Width = 87
|
|
Caption = 'String encoding:'
|
|
FocusControl = CbEncoding
|
|
ParentColor = False
|
|
end
|
|
object CbEncoding: TComboBox
|
|
Left = 156
|
|
Height = 23
|
|
Top = 112
|
|
Width = 275
|
|
DropDownCount = 32
|
|
ItemHeight = 15
|
|
Style = csDropDownList
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object PgNumberParams: TTabSheet
|
|
Caption = 'Number cells'
|
|
ClientHeight = 471
|
|
ClientWidth = 446
|
|
object CbAutoDetectNumberFormat: TCheckBox
|
|
Left = 16
|
|
Height = 19
|
|
Top = 16
|
|
Width = 200
|
|
Caption = 'Try to auto-detect number format'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
end
|
|
object EdNumFormat: TEdit
|
|
Left = 232
|
|
Height = 23
|
|
Top = 140
|
|
Width = 194
|
|
TabOrder = 3
|
|
end
|
|
object LblNumFormat: TLabel
|
|
Left = 17
|
|
Height = 15
|
|
Top = 144
|
|
Width = 182
|
|
Caption = 'Format string for writing numbers:'
|
|
FocusControl = EdNumFormat
|
|
ParentColor = False
|
|
end
|
|
object LblNumFormatInfo: TLabel
|
|
Left = 232
|
|
Height = 80
|
|
Top = 176
|
|
Width = 194
|
|
AutoSize = False
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Right = 8
|
|
BorderSpacing.Around = 8
|
|
Caption = 'If empty, numbers are written in the same format as they appear in the worksheet.'
|
|
FocusControl = EdNumFormat
|
|
ParentColor = False
|
|
WordWrap = True
|
|
end
|
|
object LblDecimalSeparator: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 59
|
|
Width = 98
|
|
Caption = 'Decimal separator:'
|
|
FocusControl = CbDecimalSeparator
|
|
ParentColor = False
|
|
end
|
|
object CbDecimalSeparator: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 56
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'Period ( . )'
|
|
'Comma ( , )'
|
|
)
|
|
TabOrder = 1
|
|
Text = 'like spreadsheet'
|
|
end
|
|
object LblThousandSeparator: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 91
|
|
Width = 108
|
|
Caption = 'Thousand separator:'
|
|
FocusControl = CbThousandSeparator
|
|
ParentColor = False
|
|
end
|
|
object CbThousandSeparator: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 88
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'Period ( . )'
|
|
'Comma ( , )'
|
|
'Space ( )'
|
|
)
|
|
TabOrder = 2
|
|
Text = 'like spreadsheet'
|
|
end
|
|
end
|
|
object PgCurrency: TTabSheet
|
|
Caption = 'Currency cells'
|
|
ClientHeight = 471
|
|
ClientWidth = 446
|
|
object LblCurrencySymbol: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 20
|
|
Width = 93
|
|
Caption = 'Currency symbol:'
|
|
FocusControl = EdCurrencySymbol
|
|
ParentColor = False
|
|
end
|
|
object EdCurrencySymbol: TEdit
|
|
Left = 232
|
|
Height = 23
|
|
Top = 16
|
|
Width = 194
|
|
OnEnter = DateTimeFormatChange
|
|
TabOrder = 0
|
|
Text = 'like spreadsheet'
|
|
end
|
|
end
|
|
object PgDateTimeParams: TTabSheet
|
|
Caption = 'Date/time cells'
|
|
ClientHeight = 471
|
|
ClientWidth = 446
|
|
object LblNumFormat1: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 20
|
|
Width = 128
|
|
Caption = 'Long date format string:'
|
|
ParentColor = False
|
|
end
|
|
object LblNumFormat2: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 52
|
|
Width = 129
|
|
Caption = 'Short date format string:'
|
|
ParentColor = False
|
|
end
|
|
object LblDecimalSeparator1: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 83
|
|
Width = 79
|
|
Caption = 'Date separator:'
|
|
FocusControl = CbDateSeparator
|
|
ParentColor = False
|
|
end
|
|
object CbDateSeparator: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 80
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'Dot ( . )'
|
|
'Dash ( - )'
|
|
'Slash ( / )'
|
|
)
|
|
OnChange = DateTimeFormatChange
|
|
OnEnter = DateTimeFormatChange
|
|
TabOrder = 2
|
|
Text = 'like spreadsheet'
|
|
end
|
|
object LblNumFormat3: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 268
|
|
Width = 129
|
|
Caption = 'Long time format string:'
|
|
ParentColor = False
|
|
end
|
|
object LblNumFormat4: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 300
|
|
Width = 130
|
|
Caption = 'Short time format string:'
|
|
ParentColor = False
|
|
end
|
|
object LblDecimalSeparator2: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 331
|
|
Width = 82
|
|
Caption = 'Time separator:'
|
|
FocusControl = CbTimeSeparator
|
|
ParentColor = False
|
|
end
|
|
object CbTimeSeparator: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 328
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'Dot ( . )'
|
|
'Dash ( - )'
|
|
'Slash ( / )'
|
|
'Colon ( : )'
|
|
)
|
|
OnChange = DateTimeFormatChange
|
|
OnEnter = DateTimeFormatChange
|
|
TabOrder = 5
|
|
Text = 'like spreadsheet'
|
|
end
|
|
object LblLongMonthNames: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 116
|
|
Width = 107
|
|
Caption = 'Long month names:'
|
|
ParentColor = False
|
|
end
|
|
object LblShortMonthNames: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 148
|
|
Width = 108
|
|
Caption = 'Short month names:'
|
|
ParentColor = False
|
|
end
|
|
object LblLongDayNames: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 180
|
|
Width = 90
|
|
Caption = 'Long day names:'
|
|
ParentColor = False
|
|
end
|
|
object LblShortDayNames: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 212
|
|
Width = 91
|
|
Caption = 'Short day names:'
|
|
ParentColor = False
|
|
end
|
|
object CbLongDateFormat: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 16
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'ddd, d/mm/yyyy'
|
|
'ddd, d/mmm/yyyy'
|
|
'dddd, d/mm/yyyy'
|
|
'dddd, d/mmm/yyyy'
|
|
'd/mm/yyyy'
|
|
'dd/mm/yyyy'
|
|
'dddd, mm/d/yyyy'
|
|
'dddd, mmm/d/yyyy'
|
|
'mm/d/yyyy'
|
|
'mm/dd/yyyy'
|
|
'yyyy/mm/dd'
|
|
'yyyy/mm/d'
|
|
'yyyy/mmm/d'
|
|
'yyyy/mmmm/d'
|
|
)
|
|
OnChange = DateTimeFormatChange
|
|
OnEnter = DateTimeFormatChange
|
|
TabOrder = 0
|
|
Text = 'like spreadsheet'
|
|
end
|
|
object CbShortDateFormat: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 48
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'd/m/yy'
|
|
'd/mm/yy'
|
|
'd/mm/yyyy'
|
|
'm/d/yy'
|
|
'mm/d/yy'
|
|
'mm/d/yyyy'
|
|
'yy/m/d'
|
|
'yy/mm/d'
|
|
'yyyy/mm/d'
|
|
)
|
|
OnChange = DateTimeFormatChange
|
|
OnEnter = DateTimeFormatChange
|
|
TabOrder = 1
|
|
Text = 'like spreadsheet'
|
|
end
|
|
object CbLongTimeFormat: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 264
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'h:n:s'
|
|
'h:nn:ss'
|
|
'hh:nn:ss'
|
|
)
|
|
OnChange = DateTimeFormatChange
|
|
OnEnter = DateTimeFormatChange
|
|
TabOrder = 3
|
|
Text = 'like spreadsheet'
|
|
end
|
|
object CbShortTimeFormat: TComboBox
|
|
Left = 232
|
|
Height = 23
|
|
Top = 296
|
|
Width = 194
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'like spreadsheet'
|
|
'h:n'
|
|
'h:nn'
|
|
'hh:nn'
|
|
)
|
|
OnChange = DateTimeFormatChange
|
|
OnEnter = DateTimeFormatChange
|
|
TabOrder = 4
|
|
Text = 'like spreadsheet'
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 17
|
|
Height = 58
|
|
Top = 366
|
|
Width = 409
|
|
Caption = 'Sample'
|
|
ClientHeight = 38
|
|
ClientWidth = 405
|
|
TabOrder = 6
|
|
object LblDateTimeSample: TLabel
|
|
Left = 7
|
|
Height = 20
|
|
Top = 2
|
|
Width = 388
|
|
Alignment = taCenter
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = False
|
|
Caption = 'sample'
|
|
ParentColor = False
|
|
end
|
|
end
|
|
end
|
|
object PgBoolParams: TTabSheet
|
|
Caption = 'Boolean cells'
|
|
ClientHeight = 471
|
|
ClientWidth = 446
|
|
object EdTRUE: TEdit
|
|
Left = 16
|
|
Height = 23
|
|
Top = 40
|
|
Width = 131
|
|
TabOrder = 0
|
|
end
|
|
object EdFALSE: TEdit
|
|
Left = 176
|
|
Height = 23
|
|
Top = 40
|
|
Width = 131
|
|
TabOrder = 1
|
|
end
|
|
object Label1: TLabel
|
|
Left = 19
|
|
Height = 15
|
|
Top = 16
|
|
Width = 81
|
|
Caption = 'Text for "TRUE"'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 179
|
|
Height = 15
|
|
Top = 16
|
|
Width = 85
|
|
Caption = 'Text for "FALSE"'
|
|
ParentColor = False
|
|
end
|
|
end
|
|
end
|
|
end
|