object VMSSEL0M: TVMSSEL0M Left = 0 Top = 0 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Set VMS form display period' ClientHeight = 189 ClientWidth = 490 Color = clBtnFace DoubleBuffered = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poOwnerFormCenter ShowHint = True OnClose = FormClose OnShow = FormShow DesignSize = ( 490 189) PixelsPerInch = 96 TextHeight = 16 object ShpList: TShape Left = 4 Top = 4 Width = 482 Height = 147 Anchors = [akLeft, akTop, akRight, akBottom] Pen.Color = 10849679 Pen.Width = 2 Visible = False ExplicitWidth = 772 ExplicitHeight = 655 end object EdFocus: TEdit Left = -10 Top = -10 Width = 2 Height = 24 ImeName = 'Microsoft Office IME 2007' TabOrder = 2 Text = 'EdFocus' end object BtnSelect: TcxButton Tag = 4 Left = 386 Top = 159 Width = 100 Height = 25 Cursor = crHandPoint Hint = #54364#52636#44592#44036#51012' '#49444#51221' '#54633#45768#45796'.' Anchors = [akRight, akBottom] Caption = #54869#51064 Colors.Default = 10737865 TabOrder = 3 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False OnClick = BtnSelectClick end object cxGroupBox1: TcxGroupBox Left = 4 Top = 4 Anchors = [akLeft, akTop, akRight, akBottom] Caption = #9654' Display period' Style.LookAndFeel.SkinName = 'Black' Style.TextStyle = [fsBold] StyleDisabled.LookAndFeel.SkinName = 'Black' StyleFocused.LookAndFeel.SkinName = 'Black' StyleHot.LookAndFeel.SkinName = 'Black' TabOrder = 4 Height = 148 Width = 483 object ImgDesc11: TImage Left = 9 Top = 40 Width = 9 Height = 9 Transparent = True end object ImgDesc01: TImage Left = 9 Top = 79 Width = 9 Height = 9 Transparent = True end object cxLabel18: TcxLabel Left = 22 Top = 35 Caption = 'Display start time' Style.TextStyle = [fsBold] Properties.Alignment.Horz = taRightJustify Properties.Alignment.Vert = taVCenter Transparent = True AnchorX = 141 AnchorY = 45 end object cxLabel1: TcxLabel Left = 31 Top = 74 Caption = 'Display end time' Style.TextStyle = [fsBold] Properties.Alignment.Horz = taRightJustify Properties.Alignment.Vert = taVCenter Transparent = True AnchorX = 141 AnchorY = 84 end object DtEndDate: TDateTimePicker Left = 147 Top = 73 Width = 161 Height = 24 BevelInner = bvNone BevelOuter = bvNone Date = 40452.000000000000000000 Time = 40452.000000000000000000 Color = clBtnFace ImeName = 'Microsoft Office IME 2007' ParentColor = True TabOrder = 2 end object DtStrDate: TDateTimePicker Left = 147 Top = 34 Width = 161 Height = 24 BevelInner = bvNone BevelOuter = bvNone Date = 40452.000000000000000000 Time = 40452.000000000000000000 Color = clBtnFace ImeName = 'Microsoft Office IME 2007' ParentColor = True TabOrder = 3 end object DtStrTime: TDateTimePicker Left = 315 Top = 34 Width = 135 Height = 24 BevelInner = bvNone BevelOuter = bvNone Date = 40452.000000000000000000 Time = 40452.000000000000000000 Color = clBtnFace ImeName = 'Microsoft Office IME 2007' Kind = dtkTime ParentColor = True TabOrder = 4 end object DtEndTime: TDateTimePicker Left = 315 Top = 73 Width = 135 Height = 24 BevelInner = bvNone BevelOuter = bvNone Date = 40452.000000000000000000 Time = 40452.000000000000000000 Color = clBtnFace ImeName = 'Microsoft Office IME 2007' Kind = dtkTime ParentColor = True TabOrder = 5 end end object BtnClose: TcxButton Left = 279 Top = 159 Width = 100 Height = 25 Cursor = crHandPoint Hint = #52712#49548 Anchors = [akRight, akBottom] Caption = #52712#49548 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 = BtnCloseClick end object BtnSearch: TcxButton Left = 152 Top = 158 Width = 75 Height = 25 Cursor = crHandPoint Hint = #51312#54924 Anchors = [akTop, akRight] Caption = #51312#54924 Colors.Default = 10737865 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 OnClick = BtnSearchClick end object TmrShow: TTimer Enabled = False Interval = 100 OnTimer = TmrShowTimer Left = 44 Top = 159 end end