calcdemou.dfm

一套及时通讯的原码

            'Flat Rectangular Buttons')
          TabOrder = 0
        end
        object HotTrackButtonsCheckbox: TCheckBox
          Left = 8
          Top = 197
          Width = 137
          Height = 17
          Caption = 'Hot Track Buttons'
          TabOrder = 1
        end
        object HideBorderCheckbox: TCheckBox
          Left = 8
          Top = 217
          Width = 137
          Height = 17
          Caption = 'Flat Border'
          TabOrder = 2
        end
        object DrawStyleRadio: TRadioGroup
          Left = 8
          Top = 15
          Width = 225
          Height = 86
          Caption = ' Background Draw Style '
          ItemIndex = 0
          Items.Strings = (
            'Tile'
            'Stretch'
            'Center'
            'TopLeft')
          TabOrder = 3
        end
      end
    end
    object OutlookPanel2: TfcOutlookPanel
      Left = 0
      Top = 0
      Width = 255
      Height = 0
      object Bevel2: TBevel
        Left = 8
        Top = 8
        Width = 241
        Height = 50
      end
      object fcLabel1: TfcLabel
        Left = 8
        Top = 144
        Width = 58
        Height = 13
        Caption = 'Panel Color:'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaTop
      end
      object fcCalcEdit2: TfcCalcEdit
        Left = 24
        Top = 24
        Width = 209
        Height = 21
        CalcOptions.BackgroundStyle = cbdStretch
        ButtonStyle = cbsDownArrow
        MaxLength = 20
        ReadOnly = False
        TabOrder = 0
        Text = '0'
        OnBeforeDropDown = fcCalcEdit2BeforeDropDown
      end
      object ButtonArrangementRadio: TRadioGroup
        Left = 8
        Top = 64
        Width = 233
        Height = 73
        Caption = ' Button Configurations '
        ItemIndex = 1
        Items.Strings = (
          'Simple Calculator'
          'Normal Calculator with Memory Buttons'
          'Normal Calculator without Memory Buttons')
        TabOrder = 1
      end
      object fcColorList1: TfcColorList
        Left = 8
        Top = 160
        Width = 233
        Height = 52
        ColorWidth = 12
        GreyScaleIncrement = 10
        IntegralHeight = True
        Options = [ccoShowSystemColors, ccoShowStandardColors, ccoShowColorNames, ccoGroupSystemColors]
        SelectedColor = clBtnFace
        TabOrder = 2
        ItemHeight = 16
      end
      object ButtonAppearanceRadio2: TRadioGroup
        Left = 8
        Top = 216
        Width = 233
        Height = 90
        Caption = 'Button Appearance '
        ItemIndex = 2
        Items.Strings = (
          'Flat Transparent Buttons'
          'Rounded Buttons'
          'Normal Buttons'
          'Flat Rectangular Buttons')
        TabOrder = 3
      end
    end
    object OutlookPanel3: TfcOutlookPanel
      Left = 0
      Top = 0
      Width = 255
      Height = 0
      object Bevel3: TBevel
        Left = 8
        Top = 8
        Width = 241
        Height = 49
      end
      object fcCalcEdit3: TfcCalcEdit
        Left = 24
        Top = 24
        Width = 209
        Height = 21
        CalcOptions.BackgroundStyle = cbdStretch
        ButtonStyle = cbsDownArrow
        MaxLength = 20
        ReadOnly = False
        TabOrder = 0
        Text = '0'
        OnBeforeDropDown = fcCalcEdit3BeforeDropDown
      end
      object CloseOnEqualsCheckbox: TCheckBox
        Left = 8
        Top = 72
        Width = 233
        Height = 17
        Caption = 'Close When Equals is Pressed'
        TabOrder = 1
      end
      object ShowDecimalCheckbox: TCheckBox
        Left = 8
        Top = 128
        Width = 225
        Height = 17
        Caption = 'Show Decimal while Typing'
        TabOrder = 2
        OnClick = ShowDecimalCheckboxClick
      end
      object DigitGroupingCheckbox: TCheckBox
        Left = 8
        Top = 99
        Width = 233
        Height = 17
        Caption = 'Show Thousands Separator while Typing'
        TabOrder = 3
        OnClick = ShowDecimalCheckboxClick
      end
      object ShowDropDownCheckbox: TCheckBox
        Left = 8
        Top = 156
        Width = 145
        Height = 17
        Caption = 'Show Drop Down Button'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = ShowDropDownCheckboxClick
      end
    end
    object OutlookPanel4: TfcOutlookPanel
      Left = 0
      Top = 0
      Width = 255
      Height = 0
      object Bevel4: TBevel
        Left = 8
        Top = 24
        Width = 241
        Height = 121
      end
      object fcLabel2: TfcLabel
        Left = 8
        Top = 8
        Width = 190
        Height = 13
        Caption = 'Display Formatting examples: (Unbound)'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaTop
      end
      object fcCalcEdit4: TfcCalcEdit
        Left = 16
        Top = 32
        Width = 225
        Height = 21
        CalcOptions.BackgroundStyle = cbdStretch
        ButtonStyle = cbsDownArrow
        DisplayFormat = '##0.00 cm'
        MaxLength = 20
        ReadOnly = False
        TabOrder = 0
        Text = '0'
      end
      object fcCalcEdit5: TfcCalcEdit
        Left = 16
        Top = 72
        Width = 225
        Height = 21
        CalcOptions.BackgroundStyle = cbdStretch
        ButtonStyle = cbsDownArrow
        DisplayFormat = '$#,##0.00'
        MaxLength = 20
        ReadOnly = False
        TabOrder = 1
        Text = '0'
      end
      object fcCalcEdit6: TfcCalcEdit
        Left = 16
        Top = 112
        Width = 225
        Height = 21
        CalcOptions.BackgroundStyle = cbdStretch
        ButtonStyle = cbsDownArrow
        DisplayFormat = '##0.00 in'
        MaxLength = 20
        ReadOnly = False
        TabOrder = 2
        Text = '0'
      end
      object fcDemoRichEdit1: TfcDemoRichEdit
        Left = 8
        Top = 152
        Width = 241
        Height = 153
        TabOrder = 3
        RichEditLines = {
          7B5C727466315C616E73695C616E7369637067313235325C64656666305C6465
          666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C66636861
          7273657430204D532053616E732053657269663B7D7B5C66315C666E696C204D
          532053616E732053657269663B7D7D0D0A7B5C636F6C6F7274626C203B5C7265
          643235355C677265656E305C626C7565303B7D0D0A5C766965776B696E64345C
          7563315C706172645C66305C667331362054686520317374436C617373205C62
          2054666343616C6345646974205C623020636F6E74726F6C2061646473205C63
          66315C6220646973706C617920666F726D617474696E67206361706162696C69
          74795C6366305C623020207768696C652074686520636F6E74726F6C20697320
          626F756E64206F7220756E626F756E6420617320696E20746865206578616D70
          6C65732061626F76652E20205479706520696E2061206E756D626572206F7220
          612063616C63756C6174696F6E20616E6420746162206177617920746F207365
          652074686520666F726D617474696E6720726573746F7265642E5C6631200D0A
          5C706172207D0D0A00}
      end
    end
  end
end