object fmSelectPeriod: TfmSelectPeriod Left = 352 Top = 107 HelpContext = 313 BorderStyle = bsDialog Caption = 'Select Period' ClientHeight = 372 ClientWidth = 195 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Scaled = False OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object SGQAPLPeriods: TStringGrid Left = 0 Top = 0 Width = 195 Height = 327 Align = alClient ColCount = 1 DefaultColWidth = 175 FixedCols = 0 RowCount = 2 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSelect] TabOrder = 0 OnMouseDown = SGQAPLPeriodsMouseDown OnMouseUp = SGQAPLPeriodsMouseUp RowHeights = ( 24 24) end object Panel1: TPanel Left = 0 Top = 327 Width = 195 Height = 45 Align = alBottom TabOrder = 1 object BtnSelect: TButton Left = 8 Top = 8 Width = 75 Height = 30 Caption = '&Select' TabOrder = 0 OnClick = BtnSelectClick end object BtnCancel: TButton Left = 92 Top = 8 Width = 75 Height = 30 Caption = '&Cancel' TabOrder = 1 OnClick = BtnCancelClick end end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = False OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 92 Top = 88 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 203) OriginalFormHeight = ( 399) OriginalFormLeft = ( 352) OriginalFormTop = ( 107) OriginalFormPPI = ( 120) OriginalClientWidth = ( 195) OriginalClientHeight = ( 372) end end