object VMSM660M: TVMSM660M Left = 0 Top = 0 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize] Caption = 'VMS '#51221#52404#51221#48372' '#45824#49345' '#44396#44036' '#49444#51221 ClientHeight = 761 ClientWidth = 1001 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poOwnerFormCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate OnShow = FormShow DesignSize = ( 1001 761) PixelsPerInch = 96 TextHeight = 17 object ShpTitle: TShape Left = 4 Top = 4 Width = 993 Height = 40 Anchors = [akLeft, akTop, akRight] Brush.Color = 14671839 Pen.Color = 10849679 Pen.Width = 2 Visible = False ExplicitWidth = 1269 end object LblCaption: TLabel Left = 16 Top = 10 Width = 267 Height = 23 Caption = #53440#51060#53952' ' Font.Charset = DEFAULT_CHARSET Font.Color = 4740964 Font.Height = -17 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True Visible = False end object ShpList: TShape Left = 4 Top = 4 Width = 993 Height = 751 Anchors = [akLeft, akTop, akRight, akBottom] Pen.Color = 10849679 Pen.Width = 2 ExplicitWidth = 966 ExplicitHeight = 741 end object EdFocus: TEdit Left = -10 Top = -10 Width = 2 Height = 25 ImeName = 'Microsoft Office IME 2007' TabOrder = 0 Text = 'EdFocus' end object PanelBack: TPanel Left = 12 Top = 10 Width = 975 Height = 740 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone ParentBackground = False ParentColor = True TabOrder = 1 object PnlMenu: TPanel Left = 0 Top = 702 Width = 975 Height = 38 Align = alBottom BevelOuter = bvNone TabOrder = 0 DesignSize = ( 975 38) object BtnEdit: TcxButton Tag = 2 Left = 8 Top = 10 Width = 80 Height = 25 Cursor = crHandPoint Hint = #45936#51060#53552' '#54200#51665 Anchors = [akLeft, akBottom] Caption = #54200#51665 Colors.Default = 10737865 Enabled = False TabOrder = 0 Visible = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False end object BtnInsert: TcxButton Tag = 2 Left = 89 Top = 10 Width = 80 Height = 25 Cursor = crHandPoint Hint = #45936#51060#53552' '#52628#44032 Anchors = [akLeft, akBottom] Caption = #52628#44032 Colors.Default = 10737865 TabOrder = 1 Visible = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False end object BtnDelete: TcxButton Tag = 4 Left = 171 Top = 10 Width = 80 Height = 25 Cursor = crHandPoint Hint = #45936#51060#53552' '#49325#51228 Anchors = [akLeft, akBottom] Caption = #49325#51228 Colors.Default = 10737865 Enabled = False TabOrder = 2 Visible = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False end object BtnSavex: TcxButton Tag = 5 Left = 252 Top = 10 Width = 80 Height = 25 Cursor = crHandPoint Hint = #54200#51665#51089#50629' '#51200#51109 Anchors = [akLeft, akBottom] Caption = #51200#51109 Colors.Default = 10737865 Enabled = False TabOrder = 3 Visible = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False end object BtnClose: TcxButton Left = 764 Top = 7 Width = 100 Height = 25 Cursor = crHandPoint Hint = #52712#49548 Anchors = [akRight, akBottom] Caption = #52712#49548 Colors.Default = 10737865 TabOrder = 4 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False OnClick = BtnClosexClick end object BtnSave: TcxButton Tag = 4 Left = 871 Top = 7 Width = 100 Height = 25 Cursor = crHandPoint Hint = #54364#52636#44396#44036#51012' '#49444#51221' '#54633#45768#45796'.' Anchors = [akRight, akBottom] Caption = #54869#51064 Colors.Default = 10737865 TabOrder = 5 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False OnClick = BtnSaveClick end end object cxGroupBox1: TcxGroupBox Left = 0 Top = 0 Align = alTop Caption = #9654' '#44368#53685#51221#48372' '#54268 Style.BorderColor = clCaptionText Style.Shadow = False Style.TextColor = clWindowText Style.TextStyle = [fsBold] TabOrder = 1 Height = 385 Width = 975 object PnlCmd: TPanel Left = 3 Top = 19 Width = 969 Height = 356 Align = alClient BevelOuter = bvNone Enabled = False TabOrder = 0 object Panel2: TPanel Left = 0 Top = 0 Width = 969 Height = 356 Align = alClient BevelOuter = bvNone Color = clMenuHighlight Enabled = False ParentBackground = False TabOrder = 0 object ImgForm: TImage Left = 520 Top = 18 Width = 80 Height = 57 Visible = False end object PnlEdtBack: TPanel Left = 3 Top = 2 Width = 578 Height = 324 BevelInner = bvLowered Color = clSilver ParentBackground = False TabOrder = 0 object PnlEditForm: TPanel Left = 2 Top = 2 Width = 574 Height = 320 Align = alClient BevelOuter = bvNone Color = clBlack ParentBackground = False TabOrder = 0 end end end end end object GrpObj: TcxGroupBox Left = 0 Top = 385 Align = alClient Caption = #9654' '#51221#48372#51228#44277#44396#44036' '#49444#51221 Style.TextStyle = [fsBold] TabOrder = 2 Height = 317 Width = 975 object PgObject: TcxPageControl Left = 3 Top = 19 Width = 472 Height = 288 Align = alLeft Color = clWhite Focusable = False ParentBackground = False ParentColor = False ParentShowHint = False ShowHint = True TabOrder = 0 Properties.ActivePage = TsObject Properties.HotTrack = True Properties.Options = [pcoAlwaysShowGoDialogButton, pcoFixedTabWidthWhenRotated, pcoGradient, pcoGradientClientArea, pcoRedrawOnResize] Properties.OwnerDraw = True Properties.Style = 9 Properties.TabSlants.Positions = [spRight] TabSlants.Positions = [spRight] ClientRectBottom = 288 ClientRectRight = 472 ClientRectTop = 24 object TsObject: TcxTabSheet Caption = #45824#49345' '#44396#44036' '#47785#47197' ' ImageIndex = 2 object CxObjList: TcxGrid Left = 0 Top = 0 Width = 472 Height = 264 Align = alClient TabOrder = 0 LookAndFeel.Kind = lfUltraFlat LookAndFeel.NativeStyle = False object TvObjList: TcxGridTableView FilterBox.CustomizeDialog = False OnFocusedRecordChanged = TvObjListFocusedRecordChanged DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsSelection.HideFocusRectOnExit = False OptionsSelection.HideSelection = True OptionsView.GroupByBox = False object ColObj01: TcxGridColumn Caption = #54268#54805#49885 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False Width = 55 end object ColObj02: TcxGridColumn Caption = #45824#49345 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False Width = 103 end object ColObj03: TcxGridColumn Caption = #44061#52404'ID' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False Width = 53 end object ColObj04: TcxGridColumn Caption = #50689#50669 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False end object ColIfscId: TcxGridColumn Caption = #44396#44036' ID' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False Width = 53 end object ColIfscNm: TcxGridColumn Caption = #44396#44036#47749 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False Width = 92 end object ColIfscStr: TcxGridColumn Caption = #49884#51216#47749 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False Width = 111 end object ColIfscEnd: TcxGridColumn Caption = #51333#51216#47749 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False Width = 100 end object TvObjListColumn9: TcxGridColumn PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False end object TvObjListColumn10: TcxGridColumn PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False end object TvObjListColumn11: TcxGridColumn PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False end object ColMem: TcxGridColumn Caption = #47700#47784#47532 DataBinding.ValueType = 'Integer' PropertiesClassName = 'TcxCalcEditProperties' Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False VisibleForCustomization = False end object ColObjType: TcxGridColumn PropertiesClassName = 'TcxTextEditProperties' Visible = False VisibleForCustomization = False end object ColObj06: TcxGridColumn Caption = #46020#47196#47749 PropertiesClassName = 'TcxLabelProperties' Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object ColObj07: TcxGridColumn Caption = #51648#51216#47749 PropertiesClassName = 'TcxLabelProperties' Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end end object GlObjList: TcxGridLevel GridView = TvObjList end end end end object BtnListAdd: TcxButton Left = 481 Top = 92 Width = 80 Height = 25 Cursor = crHandPoint Hint = #51228#44277#44396#44036' '#49444#51221 Caption = #9664' '#51201#50857 Colors.Default = 10737865 LookAndFeel.NativeStyle = False TabOrder = 1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False OnClick = BtnListAddClick end object BtnListDelete: TcxButton Left = 481 Top = 129 Width = 80 Height = 25 Cursor = crHandPoint Hint = #51228#44277#44396#44036' '#49325#51228 Caption = #49325#51228' '#9654 Colors.Default = 10737865 LookAndFeel.NativeStyle = False TabOrder = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False OnClick = BtnListDeleteClick end object cxPageControl1: TcxPageControl Left = 571 Top = 19 Width = 401 Height = 288 Align = alRight Anchors = [akLeft, akTop, akRight, akBottom] Color = clWhite Focusable = False ParentBackground = False ParentColor = False ParentShowHint = False ShowHint = True TabOrder = 3 Properties.ActivePage = cxTabSheet1 Properties.HotTrack = True Properties.Options = [pcoAlwaysShowGoDialogButton, pcoFixedTabWidthWhenRotated, pcoGradient, pcoGradientClientArea, pcoRedrawOnResize] Properties.OwnerDraw = True Properties.Style = 9 Properties.TabSlants.Positions = [spRight] TabSlants.Positions = [spRight] ClientRectBottom = 288 ClientRectRight = 401 ClientRectTop = 24 object cxTabSheet1: TcxTabSheet Caption = #51221#48372#44396#44036#47785#47197' ' ImageIndex = 2 object CxAxis: TcxGrid Left = 0 Top = 0 Width = 401 Height = 264 Align = alClient TabOrder = 0 LookAndFeel.Kind = lfUltraFlat LookAndFeel.NativeStyle = False object TvAxis: TcxGridTableView FilterBox.CustomizeDialog = False DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnSorting = False OptionsData.Editing = False OptionsSelection.HideFocusRectOnExit = False OptionsSelection.HideSelection = True OptionsView.ColumnAutoWidth = True OptionsView.GroupByBox = False OptionsView.Indicator = True object Col00: TcxGridColumn Caption = 'VMS ID' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False Width = 99 end object Col01: TcxGridColumn Caption = #44396#44036' ID' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False Width = 61 end object Col02: TcxGridColumn Caption = #44396#44036#47749 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Options.Filtering = False Width = 109 end object Col03: TcxGridColumn Caption = #49884#51216#47749 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Width = 100 end object Col04: TcxGridColumn Caption = #51333#51216#47749 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Width = 105 end object Col05: TcxGridColumn Caption = #52629 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter OnCustomDrawCell = Col05CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Width = 40 end object Col06: TcxGridColumn Caption = #46020#47196#47749 PropertiesClassName = 'TcxLabelProperties' Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object Col07: TcxGridColumn Caption = #51648#51216#47749 PropertiesClassName = 'TcxLabelProperties' Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end end object GlAxis: TcxGridLevel GridView = TvAxis end end end end end end object BtnSearch: TcxButton Left = 819 Top = 11 Width = 80 Height = 25 Cursor = crHandPoint Hint = #51312#54924 Anchors = [akTop, akRight] Caption = #51312#54924 Colors.Default = 10737865 LookAndFeel.NativeStyle = False TabOrder = 2 Visible = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False OnClick = BtnSearchClick end object EdObjId: TcxMaskEdit Left = 186 Top = 8 Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Properties.MaskKind = emkRegExpr Properties.MaxLength = 0 Style.LookAndFeel.NativeStyle = False StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.NativeStyle = False StyleHot.LookAndFeel.NativeStyle = False TabOrder = 3 Text = '0' Visible = False Width = 56 end object EdFormId: TcxTextEdit Left = 289 Top = 8 ImeMode = imSAlpha Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Properties.ImeMode = imSAlpha Properties.MaxLength = 0 Properties.ReadOnly = True Style.LookAndFeel.Kind = lfUltraFlat Style.LookAndFeel.NativeStyle = False Style.Shadow = False StyleDisabled.LookAndFeel.Kind = lfUltraFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfUltraFlat StyleFocused.LookAndFeel.NativeStyle = False StyleHot.LookAndFeel.Kind = lfUltraFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 4 Text = '10000' Visible = False Width = 83 end object BtnClosex: TcxButton Left = 907 Top = 11 Width = 80 Height = 25 Cursor = crHandPoint Hint = #45803#44592 Anchors = [akTop, akRight] Caption = #45803#44592 Colors.Default = 10737865 TabOrder = 5 Visible = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False OnClick = BtnClosexClick end object TmrShow: TTimer Enabled = False Interval = 300 OnTimer = TmrShowTimer Left = 788 Top = 72 end object VmsDesigner1: VmsDesigner Left = 816 Top = 96 end end