object Frmresched: TFrmresched
  Left = 61
  Top = 70
  Width = 599
  Height = 448
  HelpContext = 300
  Caption = 'Reschedule'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefault
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 46
    Width = 591
    Height = 340
    Align = alClient
    TabOrder = 0
    object DBGridsched: TRxDBGrid
      Left = 1
      Top = 21
      Width = 589
      Height = 318
      HelpContext = 330
      Align = alClient
      Color = clWhite
      Columns = <
        item
          ButtonStyle = cbsEllipsis
          FieldName = 'Pay Date'
          Title.Alignment = taCenter
        end
        item
          ButtonStyle = cbsEllipsis
          FieldName = 'Due Date'
          Title.Alignment = taCenter
        end
        item
          FieldName = 'Description'
          Title.Alignment = taCenter
          Width = 177
        end
        item
          FieldName = 'Bill Amount'
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = 'Expense Amount'
          Width = 59
        end
        item
          FieldName = 'Pay Amount'
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = 'Income Amount'
          Width = 59
        end
        item
          FieldName = 'Frequency'
          Title.Alignment = taCenter
          Title.Caption = 'Repeat'
          Width = 59
        end
        item
          FieldName = 'Units'
          PickList.Strings = (
            'One Time'
            'Days'
            'Weeks'
            'Half Months'
            'Months'
            'Years')
          Title.Alignment = taCenter
          Width = 74
        end
        item
          ButtonStyle = cbsEllipsis
          FieldName = 'End Date'
          Title.Alignment = taCenter
          Width = 61
        end
        item
          FieldName = 'Warning Days'
          Title.Alignment = taCenter
          Width = 93
        end
        item
          FieldName = 'User Field 1'
          Title.Alignment = taCenter
          Width = 80
        end
        item
          FieldName = 'User Field 2'
          Title.Alignment = taCenter
          Width = 80
        end
        item
          FieldName = 'User Field 3'
          Title.Alignment = taCenter
          Width = 80
        end
        item
          FieldName = 'User Field 4'
          Title.Alignment = taCenter
          Width = 80
        end>
      DataSource = Dataresched
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      OnDblClick = DBGridschedDblClick
      OnEditButtonClick = DBGridschedEditButtonClick
      OnKeyDown = DBGridschedKeyDown
      OnKeyPress = DBGridschedKeyPress
      IniStorage = FormStorage1
      TitleButtons = True
      OnGetCellParams = DBGridschedGetCellParams
      OnTitleBtnClick = DBGridschedTitleBtnClick
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 589
      Height = 20
      HelpContext = 330
      Align = alTop
      BevelOuter = bvNone
      BorderWidth = 1
      BorderStyle = bsSingle
      Caption = 'Rescheduled Income/Expense Detail Records'
      Color = clBtnShadow
      Ctl3D = False
      Font.Color = clBtnHighlight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      object RxLabel2: TRxLabel
        Left = 1
        Top = 1
        Width = 585
        Height = 16
        Align = alClient
        Alignment = taCenter
        Caption = 'Rescheduled Income/Expense Detail Records'
        Color = clBtnShadow
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        ShadowColor = clBlack
        ShadowPos = spRightBottom
      end
    end
    object CheckBoxToolTip: TCheckBox
      Left = 24
      Top = 201
      Width = 177
      Height = 19
      Caption = 'Display this tip next time.'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 2
      Visible = False
    end
  end
  object Panel8: TPanel
    Left = 0
    Top = 386
    Width = 591
    Height = 16
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object LabelSort: TLabel
      Left = 137
      Top = 1
      Width = 312
      Height = 14
      Align = alClient
      Alignment = taCenter
      Caption = 'Sorted by Due Date'
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 1
      Top = 1
      Width = 35
      Height = 14
      Align = alLeft
      Caption = 'Record'
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBStatusLabel1: TDBStatusLabel
      Left = 36
      Top = 1
      Width = 97
      Height = 14
      DataSource = Dataresched
      Style = lsRecordNo
      Align = alLeft
      AutoSize = False
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 133
      Top = 1
      Width = 4
      Height = 14
      Align = alLeft
      Shape = bsLeftLine
      Style = bsRaised
    end
    object Bevel1: TBevel
      Left = 449
      Top = 1
      Width = 4
      Height = 14
      Align = alRight
      Shape = bsLeftLine
      Style = bsRaised
    end
    object Panel9: TPanel
      Left = 453
      Top = 1
      Width = 137
      Height = 14
      Align = alRight
      BevelOuter = bvNone
      Caption = 'Panel9'
      TabOrder = 0
      object DBStatusLabel2: TDBStatusLabel
        Left = 23
        Top = 0
        Width = 113
        Height = 15
        DataSource = Dataresched
        AutoSize = False
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Panel10: TPanel
        Left = 12
        Top = -1
        Width = 81
        Height = 17
        Alignment = taRightJustify
        BevelOuter = bvNone
        Caption = 'Mode:'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object SpeedBar1: TSpeedBar
    Left = 0
    Top = 0
    Width = 591
    Height = 46
    HelpContext = 320
    Font.Color = clBtnText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    BoundLines = [blTop, blBottom, blLeft, blRight]
    Options = [sbFlatBtns, sbGrayedBtns]
    BtnOffsetHorz = 3
    BtnOffsetVert = 3
    BtnWidth = 60
    BtnHeight = 40
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 2
    InternalVer = 1
    object SpeedbarSection1: TSpeedbarSection
      Caption = 'Untitled (0)'
    end
    object Calculator: TSpeedItem
      BtnCaption = 'Calculator'
      Caption = 'Calculator'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
        73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
        0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
        0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
        0333337F777777737F333308888888880333337F333333337F33330888888888
        03333373FFFFFFFF7333337000000000733333377777777733330000}
      Hint = 'Calculator|'
      NumGlyphs = 2
      Spacing = 1
      Left = 3
      Top = 3
      Visible = True
      OnClick = CalculatorClick
      SectionName = 'Untitled (0)'
    end
    object Exitbutton: TSpeedItem
      BtnCaption = 'Done'
      Caption = 'Done With Changes to Rescheduled Bills'
      Glyph.Data = {
        36010000424D3601000000000000760000002800000017000000100000000100
        040000000000C0000000C40E0000C40E00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777770
        00077777777077777777770880077777777077777F0088EE800FF77777707777
        78F8EEEE8000F7777770777778FEEEEE8000F7777770777778FEEEEE8000F700
        7770777778FEEEF8800000007770777778FEEEF8800099000070777778FEEEEE
        800099000070777778FEEEEE800000007770777778FEEEEE8000F70077707777
        78FEEEEFF000F7777770777778FEEEFF0000F7777770777778FEFFF00000F777
        7770777778F000000000F7777770777778888888888887777770}
      Hint = 'Done With Changes to Rescheduled Bills|'
      Spacing = 1
      Left = 63
      Top = 3
      Visible = True
      OnClick = ExitbuttonClick
      SectionName = 'Untitled (0)'
    end
  end
  object Tableresched: TTable
    OnPostError = TablereschedPostError
    IndexName = 'Due Date Index'
    TableName = 'resched.DB'
    Left = 430
    Top = 4
    object TablereschedDueDate: TDateField
      FieldName = 'Due Date'
      OnSetText = TablereschedDueDateSetText
    end
    object TablereschedPayDate: TDateField
      FieldName = 'Pay Date'
      OnSetText = TablereschedPayDateSetText
    end
    object TablereschedDescription: TStringField
      FieldName = 'Description'
      Required = True
      Size = 50
    end
    object TablereschedBillAmount: TCurrencyField
      FieldName = 'Bill Amount'
      OnSetText = TablereschedBillAmountSetText
    end
    object TablereschedPayAmount: TCurrencyField
      FieldName = 'Pay Amount'
      OnSetText = TablereschedPayAmountSetText
    end
    object TablereschedFrequency: TSmallintField
      FieldName = 'Frequency'
      Required = True
      DisplayFormat = #39'Every '#39'#,###;;'#39#39
      EditFormat = '####'
    end
    object TablereschedWarningDays: TSmallintField
      FieldName = 'Warning Days'
    end
    object TablereschedUnits: TStringField
      FieldName = 'Units'
      Size = 15
    end
    object TablereschedUserField1: TStringField
      FieldName = 'User Field 1'
      Size = 50
    end
    object TablereschedUserField2: TStringField
      FieldName = 'User Field 2'
      Size = 50
    end
    object TablereschedUserField3: TStringField
      FieldName = 'User Field 3'
      Size = 50
    end
    object TablereschedUserField4: TStringField
      FieldName = 'User Field 4'
      Size = 50
    end
    object TablereschedPrimaryKey: TAutoIncField
      FieldName = 'PrimaryKey'
    end
    object TablereschedProcessDate: TDateField
      FieldName = 'Process Date'
    end
    object TablereschedEndDate: TDateField
      FieldName = 'End Date'
      OnSetText = TablereschedEndDateSetText
    end
    object TablereschedPayNow: TStringField
      FieldName = 'PayNow'
      Size = 1
    end
  end
  object Dataresched: TDataSource
    DataSet = Tableresched
    OnUpdateData = DatareschedUpdateData
    Left = 478
    Top = 30
  end
  object TableSched: TTable
    TableName = 'schedule.DB'
    Left = 352
    Top = 8
    object TableSchedPayDate: TDateField
      FieldName = 'Pay Date'
    end
    object TableSchedDueDate: TDateField
      FieldName = 'Due Date'
    end
    object TableSchedDescription: TStringField
      FieldName = 'Description'
      Required = True
      Size = 50
    end
    object TableSchedBillAmount: TCurrencyField
      FieldName = 'Bill Amount'
    end
    object TableSchedPayAmount: TCurrencyField
      FieldName = 'Pay Amount'
    end
    object TableSchedFrequency: TSmallintField
      FieldName = 'Frequency'
      Required = True
    end
    object TableSchedWarningDays: TSmallintField
      FieldName = 'Warning Days'
    end
    object TableSchedUnits: TStringField
      FieldName = 'Units'
      Size = 15
    end
    object TableSchedUserField1: TStringField
      FieldName = 'User Field 1'
      Size = 50
    end
    object TableSchedUserField2: TStringField
      FieldName = 'User Field 2'
      Size = 50
    end
    object TableSchedUserField3: TStringField
      FieldName = 'User Field 3'
      Size = 50
    end
    object TableSchedUserField4: TStringField
      FieldName = 'User Field 4'
      Size = 50
    end
    object TableSchedPrimaryKey: TAutoIncField
      FieldName = 'PrimaryKey'
    end
    object TableSchedProcessDate: TDateField
      FieldName = 'Process Date'
    end
    object TableSchedEndDate: TDateField
      FieldName = 'End Date'
    end
    object TableSchedPayNow: TStringField
      FieldName = 'PayNow'
      Size = 1
    end
  end
  object MainMenu1: TMainMenu
    Left = 514
    Top = 2
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Exit1: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      ShortCut = 0
      object Calculator1: TMenuItem
        Caption = '&Calculator'
        ShortCut = 0
        OnClick = Calculator1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object HelponThisScreen1: TMenuItem
        Caption = '&Help on This Screen'
        ShortCut = 0
        OnClick = HelponThisScreen1Click
      end
      object HowtoPurchase1: TMenuItem
        Caption = 'How to &Purchase...'
        ShortCut = 0
        OnClick = HowtoPurchase1Click
      end
      object NcomeandXpenseHomePage1: TMenuItem
        Caption = '&Ncome and Xpense Home Page...'
        ShortCut = 0
        OnClick = NcomeandXpenseHomePage1Click
      end
      object RaganLockettesHomePage1: TMenuItem
        Caption = '&Ragan Lockette'#39's Home Page...'
        ShortCut = 0
        OnClick = RaganLockettesHomePage1Click
      end
      object About1: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object RxGradientCaption1: TRxGradientCaption
    Captions = <>
    DefaultFont = False
    FormCaption = 'Reschedule'
    Font.Color = clWindow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Left = 298
    Top = 18
  end
  object FormStorage1: TFormStorage
    Options = [fpPosition]
    UseRegistry = True
    StoredProps.Strings = (
      'CheckBoxToolTip.Checked')
    Left = 496
    Top = 64
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 500
    Top = 65534
  end
end