lazarus-ccr/components/fpspreadsheet/examples/visual/shared/sformatsettingsform.lfm

object FormatSettingsForm: TFormatSettingsForm
  Left = 417
  Height = 494
  Top = 229
  Width = 470
  BorderStyle = bsDialog
  Caption = 'Workbook format settings'
  ClientHeight = 494
  ClientWidth = 470
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  Position = poMainFormCenter
  ShowHint = True
  LCLVersion = '1.5'
  object PageControl: TPageControl
    Left = 8
    Height = 438
    Top = 8
    Width = 454
    ActivePage = PgCurrency
    Align = alClient
    BorderSpacing.Around = 8
    TabIndex = 1
    TabOrder = 0
    OnChange = PageControlChange
    object PgNumber: TTabSheet
      Caption = 'Number'
      ClientHeight = 410
      ClientWidth = 446
      object LblDecimalSeparator: TLabel
        Left = 16
        Height = 15
        Top = 19
        Width = 98
        Caption = 'Decimal separator:'
        ParentColor = False
      end
      object LblThousandSeparator: TLabel
        Left = 16
        Height = 15
        Top = 51
        Width = 108
        Caption = 'Thousand separator:'
        ParentColor = False
      end
      object Label1: TLabel
        Left = 4
        Height = 15
        Top = 391
        Width = 438
        Align = alBottom
        BorderSpacing.Around = 4
        Caption = 'The current workbook is automatically updated to these settings.'
        ParentColor = False
        WordWrap = True
      end
      object Bevel3: TBevel
        Left = 0
        Height = 3
        Top = 384
        Width = 446
        Align = alBottom
        Shape = bsBottomLine
      end
    end
    object PgCurrency: TTabSheet
      Caption = 'Currency'
      ClientHeight = 410
      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 = 200
        Height = 23
        Top = 16
        Width = 202
        Anchors = [akTop, akLeft, akRight]
        OnChange = EdCurrencySymbolChange
        TabOrder = 0
      end
      object LblCurrencySymbol1: TLabel
        Left = 16
        Height = 15
        Top = 52
        Width = 132
        Caption = 'Currency decimal places:'
        FocusControl = EdCurrencyDecimals
        ParentColor = False
      end
      object EdCurrencyDecimals: TSpinEdit
        Left = 200
        Height = 23
        Top = 48
        Width = 66
        TabOrder = 1
      end
      object LblPosCurrencyFormat: TLabel
        Left = 16
        Height = 15
        Top = 84
        Width = 135
        Caption = 'Format of positive values:'
        FocusControl = CbPosCurrencyFormat
        ParentColor = False
      end
      object CbPosCurrencyFormat: TComboBox
        Left = 200
        Height = 23
        Top = 80
        Width = 231
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 15
        Style = csDropDownList
        TabOrder = 2
      end
      object LblNegCurrencyFormat: TLabel
        Left = 16
        Height = 15
        Top = 116
        Width = 139
        Caption = 'Format of negative values:'
        FocusControl = CbNegCurrencyFormat
        ParentColor = False
      end
      object CbNegCurrencyFormat: TComboBox
        Left = 200
        Height = 23
        Top = 112
        Width = 231
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 15
        Style = csDropDownList
        TabOrder = 3
      end
      object Label2: TLabel
        Left = 4
        Height = 15
        Top = 391
        Width = 438
        Align = alBottom
        BorderSpacing.Around = 4
        Caption = 'These settings are only respected in new cells.'
        ParentColor = False
        WordWrap = True
      end
      object Bevel2: TBevel
        Left = 0
        Height = 3
        Top = 384
        Width = 446
        Align = alBottom
        Shape = bsBottomLine
      end
      object BtnCurrency: TBitBtn
        Left = 406
        Height = 25
        Top = 15
        Width = 25
        Caption = '...'
        OnClick = BtnCurrencyClick
        TabOrder = 4
      end
    end
    object PgDateTime: TTabSheet
      Caption = 'Date/time'
      ClientHeight = 401
      ClientWidth = 446
      object LblNumFormat1: TLabel
        Left = 16
        Height = 20
        Top = 20
        Width = 160
        Caption = 'Long date format string:'
        ParentColor = False
      end
      object CbLongDateFormat: TComboBox
        Left = 200
        Height = 23
        Top = 16
        Width = 231
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 15
        ItemIndex = 0
        Items.Strings = (
          '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 = 'ddd, d/mm/yyyy'
      end
      object LblNumFormat2: TLabel
        Left = 16
        Height = 20
        Top = 52
        Width = 162
        Caption = 'Short date format string:'
        ParentColor = False
      end
      object CbShortDateFormat: TComboBox
        Left = 200
        Height = 23
        Top = 48
        Width = 231
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 15
        ItemIndex = 0
        Items.Strings = (
          '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 = 'd/m/yy'
      end
      object LblDateSeparator: TLabel
        Left = 16
        Height = 20
        Top = 83
        Width = 102
        Caption = 'Date separator:'
        ParentColor = False
      end
      object LblLongMonthNames: TLabel
        Left = 16
        Height = 20
        Top = 116
        Width = 130
        Caption = 'Long month names:'
        ParentColor = False
      end
      object LblShortMonthNames: TLabel
        Left = 16
        Height = 20
        Top = 148
        Width = 132
        Caption = 'Short month names:'
        ParentColor = False
      end
      object LblLongDayNames: TLabel
        Left = 16
        Height = 20
        Top = 180
        Width = 111
        Caption = 'Long day names:'
        ParentColor = False
      end
      object LblShortDayNames: TLabel
        Left = 16
        Height = 20
        Top = 212
        Width = 113
        Caption = 'Short day names:'
        ParentColor = False
      end
      object LblNumFormat3: TLabel
        Left = 16
        Height = 20
        Top = 252
        Width = 160
        Caption = 'Long time format string:'
        ParentColor = False
      end
      object LblNumFormat4: TLabel
        Left = 16
        Height = 20
        Top = 284
        Width = 162
        Caption = 'Short time format string:'
        ParentColor = False
      end
      object LblTimeSeparator: TLabel
        Left = 16
        Height = 20
        Top = 315
        Width = 103
        Caption = 'Time separator:'
        ParentColor = False
      end
      object CbLongTimeFormat: TComboBox
        Left = 200
        Height = 23
        Top = 248
        Width = 231
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 15
        ItemIndex = 1
        Items.Strings = (
          'h:n:s'
          'h:nn:ss'
          'hh:nn:ss'
        )
        OnChange = DateTimeFormatChange
        OnEnter = DateTimeFormatChange
        TabOrder = 2
        Text = 'h:nn:ss'
      end
      object CbShortTimeFormat: TComboBox
        Left = 200
        Height = 23
        Top = 280
        Width = 231
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 15
        ItemIndex = 1
        Items.Strings = (
          'h:n'
          'h:nn'
          'hh:nn'
        )
        OnChange = DateTimeFormatChange
        OnEnter = DateTimeFormatChange
        TabOrder = 3
        Text = 'h:nn'
      end
      object Label3: TLabel
        Left = 4
        Height = 40
        Top = 357
        Width = 438
        Align = alBottom
        BorderSpacing.Around = 4
        Caption = 'Only the date and time separator are automatically respected by the workbook; the other settings are considered only for new cells.'
        ParentColor = False
        WordWrap = True
      end
      object Bevel1: TBevel
        Left = 0
        Height = 3
        Top = 350
        Width = 446
        Align = alBottom
        Shape = bsBottomLine
      end
    end
  end
  object ButtonPanel: TButtonPanel
    Left = 6
    Height = 34
    Top = 454
    Width = 458
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    OKButton.OnClick = OKButtonClick
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 1
    ShowButtons = [pbOK, pbCancel]
    object LblDateTimeSample: TLabel
      Left = 6
      Height = 36
      Top = 2
      Width = 287
      Anchors = [akTop, akLeft, akRight]
      AutoSize = False
      Caption = 'sample'
      Layout = tlCenter
      ParentColor = False
      WordWrap = True
    end
  end
end