object ProjectGLFrame: TProjectGLFrame Left = 0 Top = 0 Width = 946 Height = 313 TabOrder = 0 object zgProjectGL: TZJGrid Left = 0 Top = 0 Width = 946 Height = 313 Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection] OptionsEx = [] ColCount = 13 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 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 = #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 = #39118#38505#24133#24230 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 = 'RiskRange' Width = 60 ReadOnly = False end item Title.Caption = #26412#26399#20449#24687#20215'|'#20215#26684 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 = '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 = '|'#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 = #26412#26399#20215#24046#35745#31639'|'#25968#37327 Title.CaptionAcrossCols = '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 = 60 ReadOnly = True end item Title.Caption = '|'#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> Grid = zgProjectGL ExtendRowCount = 3 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 end