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