object VMSM610M: TVMSM610M Left = 0 Top = 0 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMaximize] Caption = 'VMS '#47700#49884#51648' '#54268' '#44396#44036' '#49444#51221 ClientHeight = 761 ClientWidth = 1193 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 = ( 1193 761) PixelsPerInch = 96 TextHeight = 17 object ShpTitle: TShape Left = 4 Top = 4 Width = 1185 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 = 1185 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 = 2 Top = 2 Width = 1187 Height = 756 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone ParentBackground = False ParentColor = True TabOrder = 1 object PnlMenu: TPanel Left = 0 Top = 722 Width = 1187 Height = 34 Align = alBottom BevelOuter = bvNone TabOrder = 0 DesignSize = ( 1187 34) object BtnSave: TcxButton Tag = 4 Left = 1030 Top = 5 Width = 154 Height = 25 Cursor = crHandPoint Hint = #47700#49884#51648' '#54268' '#51221#48372#47484' '#49444#51221' '#54633#45768#45796'.' Anchors = [akRight, akBottom] Caption = #49444#51221' '#51221#48372' '#54869#51064 Colors.Default = 10737865 TabOrder = 0 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' VMS '#47700#49884#51648' '#54268 Style.BorderColor = clCaptionText Style.Shadow = False Style.TextColor = clWindowText Style.TextStyle = [fsBold] TabOrder = 1 Height = 385 Width = 1187 object PnlCmd: TPanel Left = 3 Top = 19 Width = 1181 Height = 356 Align = alClient BevelOuter = bvNone Enabled = False TabOrder = 0 object ScrollBox2: TScrollBox Left = 0 Top = 0 Width = 1181 Height = 356 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Align = alClient BevelInner = bvNone BevelOuter = bvNone BorderStyle = bsNone ParentBackground = True TabOrder = 0 object ImgForm: TImage Left = 538 Top = 82 Width = 80 Height = 57 Visible = False end object ImgTemp: TImage Left = 632 Top = 237 Width = 92 Height = 88 AutoSize = True Center = True Visible = False end object PnlEdtBack: TPanel Left = 3 Top = 2 Width = 310 Height = 63 BevelInner = bvLowered Color = clSilver ParentBackground = False TabOrder = 0 object PnlEditForm: TPanel Left = 2 Top = 2 Width = 306 Height = 59 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' VMS '#47700#49884#51648' '#54268' '#49444#51221 Style.TextStyle = [fsBold] TabOrder = 2 Height = 337 Width = 1187 object PnlTitle: TPanel Left = 3 Top = 19 Width = 1181 Height = 43 Align = alTop BevelOuter = bvNone ParentColor = True TabOrder = 0 object ImgDesc00: TImage Left = 9 Top = 12 Width = 9 Height = 9 Transparent = True end object ImgDesc02: TImage Left = 632 Top = 12 Width = 9 Height = 9 Transparent = True end object CbVmsDsplCndt: TcxComboBox Left = 128 Top = 5 Properties.Alignment.Vert = taVCenter Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 20 Properties.DropDownSizeable = True Properties.HideSelection = False Properties.Items.Strings = ( '') Style.BorderStyle = ebsUltraFlat Style.LookAndFeel.Kind = lfUltraFlat Style.LookAndFeel.NativeStyle = False Style.ButtonStyle = btsUltraFlat Style.PopupBorderStyle = epbsFlat StyleDisabled.LookAndFeel.Kind = lfUltraFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfUltraFlat StyleFocused.LookAndFeel.NativeStyle = False StyleFocused.TextStyle = [fsBold] StyleHot.LookAndFeel.Kind = lfUltraFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 0 Width = 490 end object SeDsplHh: TcxSpinEdit Left = 708 Top = 5 Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Properties.AssignedValues.MinValue = True Properties.MaxValue = 9999.000000000000000000 Properties.ReadOnly = False Properties.OnEditValueChanged = SeDsplHrPropertiesEditValueChanged Style.LookAndFeel.Kind = lfUltraFlat Style.LookAndFeel.NativeStyle = False Style.ButtonStyle = btsUltraFlat StyleDisabled.LookAndFeel.Kind = lfUltraFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfUltraFlat StyleFocused.LookAndFeel.NativeStyle = False StyleFocused.TextStyle = [fsBold] StyleHot.LookAndFeel.Kind = lfUltraFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 1 Value = 5 Width = 65 end object cxLabel1: TcxLabel Left = 25 Top = 7 Caption = #47700#49884#51648' '#54364#52636#51312#44148 Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter Transparent = True AnchorY = 18 end object cxLabel2: TcxLabel Left = 648 Top = 7 Caption = #54364#52636#49884#44036 Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter Transparent = True AnchorY = 18 end object SeFormSn: TcxSpinEdit Left = 1049 Top = 5 Enabled = False Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Properties.AssignedValues.MaxValue = True Properties.AssignedValues.MinValue = True Properties.ReadOnly = False Style.LookAndFeel.Kind = lfUltraFlat Style.LookAndFeel.NativeStyle = False Style.ButtonStyle = btsUltraFlat StyleDisabled.LookAndFeel.Kind = lfUltraFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfUltraFlat StyleFocused.LookAndFeel.NativeStyle = False StyleFocused.TextStyle = [fsBold] StyleHot.LookAndFeel.Kind = lfUltraFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 4 Value = 5 Visible = False Width = 65 end object EdCtlrId: TcxTextEdit Left = 779 Top = 5 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 = 5 Text = 'CtrlId' Visible = False Width = 83 end object EdFormId: TcxTextEdit Left = 959 Top = 5 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 = 6 Text = 'FormId' Visible = False Width = 83 end object EdScnrId: TcxTextEdit Left = 868 Top = 5 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 = 7 Text = 'ScnrId' Visible = False Width = 83 end end object PnlTemp: TPanel Left = 3 Top = 62 Width = 1181 Height = 265 Align = alClient BevelOuter = bvNone ParentColor = True TabOrder = 1 object CxObjList: TcxGrid Left = 0 Top = 0 Width = 618 Height = 265 Align = alClient TabOrder = 0 object TvObjList: TcxGridTableView OnCellClick = TvObjListCellClick DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnMoving = False OptionsCustomize.ColumnSorting = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsSelection.HideFocusRectOnExit = False OptionsSelection.HideSelection = True OptionsSelection.MultiSelect = True OptionsView.GroupByBox = False OptionsView.Indicator = True object ColObj01: TcxGridColumn Caption = #44061#52404' ID' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Width = 95 end object ColObj02: TcxGridColumn Caption = #44061#52404#50976#54805 PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Width = 119 end object ColIfscNm: TcxGridColumn Caption = #44396#44036#47749 PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False Width = 142 end object ColIfscStr: TcxGridColumn Caption = #49884#51216#47749 PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Width = 116 end object ColObj04: TcxGridColumn Caption = #50689#50669 PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False Width = 120 end object ColIfscEnd: TcxGridColumn Caption = #51333#51216#47749 PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Width = 115 end object ColIfscId: TcxGridColumn Caption = #44396#44036' ID' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object ColObj03: TcxGridColumn Caption = #44061#52404'ID' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object ColObjType: TcxGridColumn Caption = #44592#51456#49549#46020 PropertiesClassName = 'TcxLabelProperties' Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object ColObjKind: TcxGridColumn Caption = 'Kind' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object ColObjX: TcxGridColumn Caption = 'X' DataBinding.ValueType = 'Integer' PropertiesClassName = 'TcxSpinEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object ColObjY: TcxGridColumn Caption = 'Y' DataBinding.ValueType = 'Integer' PropertiesClassName = 'TcxSpinEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end object ColObjFillIn: TcxGridColumn Caption = 'FillIn' PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end end object GlObjList: TcxGridLevel GridView = TvObjList end end object CxSect: TcxGrid Left = 709 Top = 0 Width = 472 Height = 265 Align = alRight TabOrder = 1 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.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 = 70 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 = 149 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 = 127 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 = #50864#54924#46020#47196' ID' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Vert = taVCenter Visible = False OnCustomDrawCell = Col05CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Options.Editing = False VisibleForCustomization = False Width = 40 end end object GlAxis: TcxGridLevel GridView = TvAxis end end object PnlJob: TPanel Left = 618 Top = 0 Width = 91 Height = 265 Align = alRight BevelOuter = bvNone ParentColor = True TabOrder = 2 object LblTemp: TLabel Left = 6 Top = 178 Width = 65 Height = 17 Caption = #44544#51088#54869#51064#50857 Visible = False end object BtnListAdd: TcxButton Left = 6 Top = 56 Width = 80 Height = 25 Cursor = crHandPoint Hint = #51228#44277#44396#44036' '#49444#51221 Caption = #9664' '#51201#50857 Colors.Default = 10737865 LookAndFeel.NativeStyle = False TabOrder = 0 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 = 6 Top = 91 Width = 80 Height = 25 Cursor = crHandPoint Hint = #51228#44277#44396#44036' '#49325#51228 Caption = #49325#51228' '#9654 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 = BtnListDeleteClick end object EdObjId: TcxMaskEdit Left = 6 Top = 125 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 = 2 Text = '0' Visible = False Width = 56 end end end end end object BtnSearch: TcxButton Left = 1011 Top = 8 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 BtnClose: TcxButton Left = 1097 Top = 8 Width = 80 Height = 25 Cursor = crHandPoint Hint = #45803#44592 Anchors = [akTop, akRight] Caption = #45803#44592 Colors.Default = 10737865 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 OnClick = BtnCloseClick end object TmrShow: TTimer Enabled = False Interval = 300 OnTimer = TmrShowTimer Left = 708 Top = 8 end object VmsDesigner1: VmsDesigner Left = 624 Top = 8 end end