object VMSM650M: TVMSM650M Left = 0 Top = 0 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize] Caption = 'VMS '#49828#52992#51572' '#50836#51068#48324' '#49444#51221 ClientHeight = 369 ClientWidth = 1104 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 = ( 1104 369) PixelsPerInch = 96 TextHeight = 17 object ShpTitle: TShape Left = 4 Top = 4 Width = 1096 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 = 1096 Height = 359 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 = 1078 Height = 348 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone ParentBackground = False ParentColor = True TabOrder = 1 object PnlMenu: TPanel Left = 0 Top = 310 Width = 1078 Height = 38 Align = alBottom BevelOuter = bvNone TabOrder = 0 DesignSize = ( 1078 38) object BtnClose: TcxButton Left = 867 Top = 7 Width = 100 Height = 25 Cursor = crHandPoint Hint = #52712#49548 Anchors = [akRight, akBottom] Caption = #52712#49548 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 = BtnClosexClick end object BtnSave: TcxButton Tag = 4 Left = 974 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 = 1 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 Anchors = [akLeft, akTop, akRight, akBottom] Caption = #9654' '#50836#51068#48324' '#49828#52992#51572 Style.BorderColor = clCaptionText Style.Shadow = False Style.TextColor = clWindowText Style.TextStyle = [fsBold] TabOrder = 1 DesignSize = ( 1078 298) Height = 305 Width = 1078 object CxList: TcxGrid Left = 3 Top = 83 Width = 1072 Height = 198 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 object TvList: TcxGridTableView Navigator.Buttons.Append.Visible = True Navigator.Buttons.SaveBookmark.Visible = False Navigator.InfoPanel.Visible = True FilterBox.CustomizeDialog = False DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> FilterRow.InfoText = '<'#44160#49353#50612#47484' '#51077#47141' '#54616#49464#50836'>' OptionsBehavior.CellHints = True OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnMoving = False OptionsCustomize.ColumnSorting = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Inserting = False OptionsSelection.HideFocusRectOnExit = False OptionsSelection.HideSelection = True OptionsView.ColumnAutoWidth = True OptionsView.GroupByBox = False OptionsView.Indicator = True object ColWeek: TcxGridColumn Caption = #50836#51068 PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter Options.Editing = False Width = 134 end object ColumnSel: TcxGridColumn Caption = #49440#53469 DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter Width = 45 end object Col00: TcxGridColumn Caption = '00' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn2: TcxGridColumn Caption = '01' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn3: TcxGridColumn Caption = '02' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn4: TcxGridColumn Caption = '03' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn5: TcxGridColumn Caption = '04' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn6: TcxGridColumn Caption = '05' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn7: TcxGridColumn Caption = '06' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn8: TcxGridColumn Caption = '07' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn9: TcxGridColumn Caption = '08' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn10: TcxGridColumn Caption = '09' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn11: TcxGridColumn Caption = '10' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn12: TcxGridColumn Caption = '11' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn13: TcxGridColumn Caption = '12' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn14: TcxGridColumn Caption = '13' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn15: TcxGridColumn Caption = '14' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn16: TcxGridColumn Caption = '15' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn17: TcxGridColumn Caption = '16' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn18: TcxGridColumn Caption = '17' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn19: TcxGridColumn Caption = '18' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn20: TcxGridColumn Caption = '19' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn21: TcxGridColumn Caption = '20' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn22: TcxGridColumn Caption = '21' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn23: TcxGridColumn Caption = '22' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object TvListColumn24: TcxGridColumn Caption = '23' DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked OnCustomDrawCell = Col00CustomDrawCell HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 35 Width = 35 end object ColCheck: TcxGridColumn Caption = #49440#53469'/'#54644#51228 DataBinding.ValueType = 'Boolean' PropertiesClassName = 'TcxCheckBoxProperties' Properties.Alignment = taCenter Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.OnEditValueChanged = ColCheckPropertiesEditValueChanged HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter MinWidth = 65 Width = 65 end object ColCode: TcxGridColumn Caption = #50836#51068#53076#46300 PropertiesClassName = 'TcxLabelProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Visible = False HeaderAlignmentHorz = taCenter HeaderAlignmentVert = vaCenter VisibleForCustomization = False end end object GlList: TcxGridLevel GridView = TvList end end end end object BtnSearch: TcxButton Left = 922 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 = 546 Top = 11 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 = 649 Top = 11 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 = 1010 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 = 820 Top = 8 end end