object ProjectGLFrame: TProjectGLFrame Left = 0 Top = 0 Width = 946 Height = 313 TabOrder = 0 object zgProjectGL: TZJGrid Left = 0 Top = 0 Width = 646 Height = 313 Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection] OptionsEx = [] ColCount = 18 RowCount = 6 FixedRowCount = 2 ShowGridLine = False DefaultColWidth = 73 DefaultFixedColWidth = 25 Selection.AlphaBlend = False Selection.TransparentColor = False FrozenCol = 0 FrozenRow = 0 OnMouseDown = zgProjectGLMouseDown Align = alClient end object zgGather: TZJGrid Left = 646 Top = 0 Width = 300 Height = 313 Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection] OptionsEx = [] ColCount = 4 ShowGridLine = False DefaultColWidth = 73 DefaultFixedColWidth = 25 Selection.AlphaBlend = False Selection.TransparentColor = False FrozenCol = 0 FrozenRow = 0 Align = alRight end object saProjectGL: TsdGridDBA Columns = < item Title.Caption = #32534#21495 Title.CaptionAcrossCols = '1' Title.CaptionAcrossRows = 2 Title.Font.Charset = GB2312_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -12 Title.Font.Name = #23435#20307 Title.Font.Style = [] Alignment = taCenter Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] FieldName = 'Code' Width = 60 ReadOnly = False end item Title.Caption = #21517#31216 Title.CaptionAcrossCols = '1' Title.CaptionAcrossRows = 2 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' Width = 150 ReadOnly = False end item Title.Caption = #21333#20301 Title.CaptionAcrossCols = '1' Title.CaptionAcrossRows = 2 Title.Font.Charset = GB2312_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -12 Title.Font.Name = #23435#20307 Title.Font.Style = [] Alignment = taCenter Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'smartSimSun' Font.Style = [] FieldName = 'Units' Width = 45 ReadOnly = False end item Title.Caption = #35268#26684 Title.CaptionAcrossCols = '1' Title.CaptionAcrossRows = 2 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 = 'Specs' Width = 60 ReadOnly = False end item Title.Caption = #26412#26399#24212#32791#25968#37327 Title.CaptionAcrossCols = '1' Title.CaptionAcrossRows = 2 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 = 'PM_Quantity' Width = 85 ReadOnly = True end item Title.Caption = #22522#20934#20215 Title.CaptionAcrossCols = '1' Title.CaptionAcrossRows = 2 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 = 'BasePrice' Width = 60 ReadOnly = False end item Title.Caption = #26412#26399#20449#24687#20215'|'#20215#26684 Title.CaptionAcrossCols = '3' 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 = 'InfoPrice' Width = 60 ReadOnly = False end item Title.Caption = '|'#26102#38388 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 = 'InfoDate' ReadOnly = False end item Title.Caption = '|'#20215#24046 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 = 'DeltaPrice' Width = 60 ReadOnly = True end item Title.Caption = #26412#26399#26448#26009#35843#24046'|'#39118#38505#24133#24230 Title.CaptionAcrossCols = '3' 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 = 'RiskRange' Width = 60 ReadOnly = False end item Title.Caption = '|'#26377#25928#20215#24046 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 = 'ValidDeltaPrice' Width = 60 ReadOnly = True end item Title.Caption = '|'#35843#24046#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 = 'PM_TotalPrice' Width = 60 ReadOnly = True end item Title.Caption = #26412#26399#23454#32791#20998#26512'|'#26412#26399#23454#32791#25968#37327 Title.CaptionAcrossCols = '5' 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 = 'UsedQuantity' Width = 85 ReadOnly = False end item Title.Caption = #26412#26399#28040#32791#30408#20111'|'#25968#37327#24046 Title.CaptionAcrossCols = '4' 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 = 'PAL_UsedQuantity' Width = 60 ReadOnly = True end item Title.Caption = '|'#25968#37327#24046#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 = 'PAL_UsedTotalPrice' Width = 70 ReadOnly = True end item Title.Caption = '|'#23454#32791#20215#24046#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 = 'PAL_DeltaPrice' Width = 85 ReadOnly = True end item Title.Caption = '|'#33410#20313#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 = 'PAL_Total' Width = 60 ReadOnly = True end> Grid = zgProjectGL ExtendRowCount = 3 Options = [aoAllowInsert, aoAllowEdit, aoAllowDelete, aoAutoInsert] Left = 96 Top = 88 end object dxpmProjectGL: TdxBarPopupMenu BarManager = MainForm.dxBarManager ItemLinks = < item Item = MainForm.dxbtnCalculatePriceMargin Visible = True end item BeginGroup = True Item = MainForm.dxbtnCopy Visible = True end item Item = MainForm.dxbtnPaste Visible = True end item BeginGroup = True Item = MainForm.dxbtnDelete Visible = True end> UseOwnFont = False OnPopup = dxpmProjectGLPopup Left = 152 Top = 88 end object actnProjectGL: TActionList Images = MainForm.Images Left = 208 Top = 88 object actnCalculatePriceMargin: TAction Caption = #20215#24046#35745#31639 ImageIndex = 15 OnExecute = actnCalculatePriceMarginExecute end end object saGather: TsdGridDBA Columns = < item Title.Caption = #36153#29992#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' Width = 80 ReadOnly = True end item Title.Caption = #26412#26399#37329#39069'('#20803')' 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 = 85 ReadOnly = True end item Title.Caption = #32047#35745#37329#39069'('#20803')' 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 = 'AddTotalPrice' Width = 85 ReadOnly = True end> Grid = zgGather ExtendRowCount = 0 Options = [] Left = 744 Top = 104 end end