Measure/Frames/DealPaymentFme.dfm

object DealPaymentFrame: TDealPaymentFrame
  Left = 0
  Top = 0
  Width = 368
  Height = 455
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  ParentFont = False
  TabOrder = 0
  object pnlExprs: TPanel
    Left = 0
    Top = 20
    Width = 368
    Height = 21
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    DesignSize = (
      368
      21)
    object imgHelp: TImage
      Left = 349
      Top = 3
      Width = 32
      Height = 32
      Cursor = crHandPoint
      Anchors = [akTop, akRight]
      AutoSize = True
      Picture.Data = {
        055449636F6E0000010001001010000001002000680400001600000028000000
        1000000020000000010020000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        D098A090C09090E0B06060FF802020E0801820E0A05850B0C098906000000000
        000000000000000000000000000000000000000000000000C0808010C07870D0
        D0B0A0FFC05830FFE0A080FFF0C8B0FFF0C0A0FFD09070FF903010FFB0787080
        0000000000000000000000000000000000000000C0808070C08080FFE0C0B0FF
        D07040FFFFD0B0FFFFFFF0FFE0C8C0FF904030FFFFE8D0FFF0B890FF903010FF
        C09080600000000000000000C0888020C08080E0C09890FFE0E8E0FFE0B8A0FF
        F0B090FFFFFFFFFFFFFFFFFFE0D0C0FFD0A090FFFFE8E0FFFFE0D0FFD09070FF
        A05050B000000000C0788080C07880FFD0C8C0FFF0F8F0FFD0C8C0FFE08050FF
        FFD0B0FFFFFFFFFFFFFFFFFFFFF0F0FF905040FFC08870FFFFE8E0FFF0C0A0FF
        801810E0A08080E0C09090FFE0F0E0FFE0E8E0FFC09090FFC08880FFF08850FF
        FFD0B0FFFFFFFFFFFFFFFFFFF0E8E0FFE0D0D0FF905040FFD0A890FFFFC0A0FF
        902820E0C07870FFE0E8E0FFD0C0C0FFC07880FFC08080FFC08080FFF0A080FF
        FFC0A0FFFFFFFFFFC08880FFA05840FFE0D0D0FFA05840FFC0A090FFE0A880FF
        C06860FFC08080FFD0A8B0FFC08080FFD09090FFD09090FFD08890FFE0A8A0FF
        FFA870FFFFC8B0FFF0E8E0FFC08880FFA05840FFC08880FFF0C8B0FFD07040FF
        D09090F0D0A0A0FFD0A8B0FFD09090FFE0A0A0FFE098A0FFD09890FFD09090FF
        E0A8A0FFFFA870FFFFC0A0FFFFE0D0FFFFE0D0FFFFC0A0FFE08850FFD0C0B0FF
        E0E0E0FFD0A0A020D0A0A0FFF0D0D0FFD09890FFE0A8B0FFE0A8B0FFE0A8A0FF
        E0A0A0FFE0B0B0FFF0A890FFFF9060FFF09050FFE0A080FFD09890FFC06870FF
        C0B0B0FF00000000D0A0A030D0A0A0FFF0C8D0FFD09890FFE0B0B0FFF0B8B0FF
        E0B0B0FFE0A8B0FFE0A0A0FFE0A0A0FFD09890FFD09090FFD08880FFC07070FF
        C07070FF0000000000000000D0A0A030D0A0A0FFF0C8D0FFD09890FFE0B0B0FF
        F0C0C0FFF0B8B0FFF0B0B0FFE0B0B0FFE0A8B0FFE0A0A0FFD098A0FFD09090FF
        D08880E0000000000000000000000000D0A0A030D0A0A0FFF0C8D0FFD09890FF
        F0B8B0FFF0C8C0FFF0C0C0FFF0C0C0FFF0B8C0FFE0B0B0FFD0A8A0FFD0808090
        C080801000000000000000000000000000000000D0A0A030D0A0A0FFF0C8D0FF
        D09890FFF0C0C0FFE0C0C0FFE0C0C0FFD0A8B0FFC08080A0C080801000000000
        000000000000000000000000000000000000000000000000D0A0A030D0A0A0FF
        F0D0D0FFE0A0A0FFD0A8A0FFC08080A0C0808020000000000000000000000000
        00000000000000000000000000000000000000000000000000000000D0A0A020
        D09090D0C08080A0C08080200000000000000000000000000000000000000000
        00000000FE039C41F8019C41F0009C41C0009C4180009C4100009C4100009C41
        00009C4100009C4100009C4180009C41C0009C41E0009C41F0039C41F80F9C41
        FC3F9C41}
      OnClick = imgHelpClick
    end
    object laEdtExprs: TLabeledEdit
      Left = 56
      Top = 1
      Width = 289
      Height = 20
      Anchors = [akLeft, akTop, akRight]
      Ctl3D = True
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #34920#36798#24335#65306
      LabelPosition = lpLeft
      ParentCtl3D = False
      TabOrder = 0
      OnExit = laEdtExprsExit
      OnKeyDown = laEdtExprsKeyDown
      OnKeyPress = laEdtExprsKeyPress
    end
  end
  object pnlPayRecord: TPanel
    Left = 0
    Top = 41
    Width = 368
    Height = 289
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object zgDealPayment: TZJGrid
      Left = 0
      Top = 0
      Width = 368
      Height = 289
      Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
      OptionsEx = []
      ColCount = 7
      ShowGridLine = False
      DefaultColWidth = 73
      DefaultFixedColWidth = 25
      DefaultFixedRowHeight = 29
      Selection.AlphaBlend = False
      Selection.TransparentColor = False
      FrozenCol = 0
      FrozenRow = 0
      OnCurrentChanged = zgDealPaymentCurrentChanged
      OnCanEditAcceptKey = zgDealPaymentCanEditAcceptKey
      OnShowHint = zgDealPaymentShowHint
      OnCellGetColor = zgDealPaymentCellGetColor
      OnMouseDown = zgDealPaymentMouseDown
      Align = alClient
    end
  end
  object pnlTitle: TPanel
    Left = 0
    Top = 0
    Width = 368
    Height = 20
    Align = alTop
    BevelOuter = bvNone
    Color = clGradientInactiveCaption
    TabOrder = 2
    object labTitle: TJimGradLabel
      Left = 0
      Top = 0
      Width = 368
      Height = 20
      Align = alTop
      AutoSize = False
      ColorBegin = clGradientInactiveCaption
      ColorEnd = clGradientInactiveCaption
      Caption = ' '#21512#21516#25903#20184
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
    end
  end
  object pnlParameter: TPanel
    Left = 0
    Top = 330
    Width = 368
    Height = 125
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object zgParameter: TZJGrid
      Left = 0
      Top = 0
      Width = 368
      Height = 125
      OptionsEx = []
      ColCount = 3
      RowCount = 6
      ShowGridLine = False
      DefaultColWidth = 73
      DefaultFixedColWidth = 25
      Selection.AlphaBlend = False
      Selection.TransparentColor = False
      FrozenCol = 0
      FrozenRow = 0
      OnCellCanEdit = zgParameterCellCanEdit
      Align = alClient
    end
  end
  object sdDealPayment: TsdGridDBA
    Columns = <
      item
        Title.Caption = #21517#31216
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Name'
        ReadOnly = False
      end
      item
        Title.Caption = #25187#27454
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taCenter
        EditType = sgeCheckBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'IsMinus'
        Width = 35
        ReadOnly = False
      end
      item
        Title.Caption = #26412#26399#37329#39069' ('#34920#36798#24335')'
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'CurTotalPrice'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #32047#35745#37329#39069
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'TotalPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = #36215#25187#37329#39069
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'StartedPrice'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #20184'('#25187')'#27454#38480#39069
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'RangePrice'
        Width = 60
        ReadOnly = False
      end>
    Grid = zgDealPayment
    ExtendRowCount = 3
    Left = 72
    Top = 104
  end
  object dxpmDealPayment: TdxBarPopupMenu
    BarManager = MainForm.dxBarManager
    ItemLinks = <
      item
        Item = MainForm.dxbtnDelete
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnCalculatePhasePay
        Visible = True
      end
      item
        Item = MainForm.dxbtnSetDealPayPlan
        Visible = True
      end>
    UseOwnFont = False
    OnPopup = dxpmDealPaymentPopup
    Left = 120
    Top = 104
  end
  object actnDealPayment: TActionList
    Images = MainForm.Images
    Left = 168
    Top = 104
    object actnCalculatePhasePay: TAction
      Caption = #35745#31639#26412#26399#21512#21516#25903#20184
      ImageIndex = 15
      OnExecute = actnCalculatePhasePayExecute
      OnUpdate = actnCalculatePhasePayUpdate
    end
    object actnSetDealPayPlan: TAction
      Caption = #35774#32622#35745#25552#26399#38480
      Hint = #36798#21040#26465#20214#26102#65292#21363#21051#35745#37327#33267#20184'('#25187')'#27454#38480#39069
      OnExecute = actnSetDealPayPlanExecute
      OnUpdate = actnSetDealPayPlanUpdate
    end
  end
end