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 item BeginGroup = True Item = MainForm.dxbtnCanCalc Visible = True end item BeginGroup = True Item = MainForm.dxbtnWithoutCalcCurPay 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 object actnCanCalc: TAction Caption = #20572#29992'/'#21551#29992 OnExecute = actnCanCalcExecute OnUpdate = actnCanCalcUpdate end object actnWithoutCalcCurPay: TAction Caption = #19981#21442#19982#26412#26399#24212#20184#35745#31639 OnExecute = actnWithoutCalcCurPayExecute OnUpdate = actnWithoutCalcCurPayUpdate end end end