lazarus-ccr/components/exctrls/examples/CurrSpinEditEx/main.lfm

object MainForm: TMainForm
  Left = 353
  Height = 223
  Top = 132
  Width = 304
  AutoSize = True
  BorderStyle = bsSingle
  Caption = 'Savings calculator'
  ClientHeight = 223
  ClientWidth = 304
  OnCreate = Calculate
  LCLVersion = '2.1.0.0'
  object sePayment: TCurrSpinEditEx
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    Left = 168
    Height = 23
    Top = 24
    Width = 103
    BorderSpacing.Top = 24
    BorderSpacing.Right = 24
    MaxLength = 0
    TabOrder = 0
    OnChange = Calculate
    CurrencyFormat = secfValSpaceCurr
    CurrencyString = '€'
    Decimals = 2
    DecimalSeparator = '.'
    MaxValue = 0
    MinValue = 0
    NegCurrencyFormat = sencfMinusValSpaceCurr
    NullValue = 0
    ThousandSeparator = ','
    Value = 100
  end
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = sePayment
    AnchorSideTop.Side = asrCenter
    Left = 24
    Height = 15
    Top = 28
    Width = 136
    BorderSpacing.Left = 24
    BorderSpacing.Right = 8
    Caption = 'Amount saved per month'
    ParentColor = False
  end
  object seInterestRate: TFloatSpinEditEx
    AnchorSideLeft.Control = sePayment
    Left = 168
    Height = 23
    Top = 57
    Width = 103
    MaxLength = 0
    TabOrder = 1
    OnChange = Calculate
    Increment = 0.1
    MinValue = 0
    NullValue = 0
    Value = 2
  end
  object seYears: TSpinEditEx
    AnchorSideLeft.Control = sePayment
    Left = 168
    Height = 23
    Top = 88
    Width = 103
    MaxLength = 0
    TabOrder = 2
    OnChange = Calculate
    Value = 10
  end
  object Label2: TLabel
    AnchorSideTop.Control = seInterestRate
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = seInterestRate
    Left = 77
    Height = 15
    Top = 61
    Width = 83
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    Caption = 'Interest rate (%)'
    ParentColor = False
  end
  object Label3: TLabel
    AnchorSideTop.Control = seYears
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = seYears
    Left = 133
    Height = 15
    Top = 92
    Width = 27
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    Caption = 'Years'
    ParentColor = False
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = sePayment
    AnchorSideTop.Control = seYears
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = sePayment
    AnchorSideRight.Side = asrBottom
    Left = 168
    Height = 8
    Top = 123
    Width = 103
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 12
    Shape = bsBottomLine
  end
  object seFutureValue: TCurrSpinEditEx
    AnchorSideLeft.Control = sePayment
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    Left = 168
    Height = 23
    Top = 147
    Width = 103
    BorderSpacing.Top = 16
    BorderSpacing.Bottom = 24
    Font.Style = [fsBold]
    MaxLength = 0
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    CurrencyFormat = secfValSpaceCurr
    CurrencyString = '€'
    Decimals = 2
    DecimalSeparator = '.'
    MaxValue = 0
    MinValue = 0
    NegCurrencyFormat = sencfMinusValSpaceCurr
    NullValue = 0
    ThousandSeparator = ','
    UpDownVisible = False
    Value = 0
  end
  object Label4: TLabel
    AnchorSideTop.Control = seFutureValue
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = seFutureValue
    Left = 90
    Height = 15
    Top = 151
    Width = 70
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    Caption = 'Future value'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
end