Best Sellers 33: Professional Win95/98/CD_1.iso/HOME/NcomeXpense/_SETUP.1/NX.exe/0/RCDATA/TFRMREMINDER/TFRMREMINDER.txt

Text File | 1998-10-21 | 8KB | 319 lines

object frmReminder: TfrmReminder
  Left = 226
  Top = 127
  Width = 455
  Height = 372
  HelpContext = 1
  Caption = 'Overdue Items!'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridSched: TRxDBGrid
    Left = 0
    Top = 19
    Width = 447
    Height = 296
    Align = alClient
    Color = clBtnHighlight
    Columns = <
      item
        ButtonStyle = cbsEllipsis
        FieldName = 'Pay Date'
        PickList.Strings = (
          '')
        Title.Alignment = taCenter
      end
      item
        ButtonStyle = cbsEllipsis
        FieldName = 'Due Date'
        Title.Alignment = taCenter
      end
      item
        FieldName = 'Description'
        Title.Alignment = taCenter
        Width = 181
      end
      item
        FieldName = 'Bill Amount'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Alignment = taCenter
        Title.Caption = 'Expense Amount'
        Width = 61
      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 = 62
      end
      item
        FieldName = 'Frequency'
        Title.Alignment = taCenter
        Title.Caption = 'Repeat'
        Width = 68
      end
      item
        FieldName = 'Units'
        PickList.Strings = (
          'One Time'
          'Days'
          'Weeks'
          'Half Months'
          'Months'
          'Years')
        Title.Alignment = taCenter
        Width = 79
      end
      item
        FieldName = 'End Date'
        Title.Alignment = taCenter
      end
      item
        FieldName = 'Warning Days'
        Title.Alignment = taCenter
      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 = DataSchedule
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgTabs, dgAlwaysShowSelection, dgConfirmDelete]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    TitleButtons = True
    OnGetCellParams = DBGridSchedGetCellParams
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 447
    Height = 19
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 447
      Height = 25
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvNone
      BorderWidth = 1
      BorderStyle = bsSingle
      Caption = 'The following items are overdue:'
      Color = clBtnShadow
      Ctl3D = False
      Font.Color = clBtnHighlight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      object RxLabel2: TRxLabel
        Left = 1
        Top = 1
        Width = 443
        Height = 21
        Align = alClient
        Caption = 'These items are overdue!'
        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
  end
  object Panel5: TPanel
    Left = 0
    Top = 315
    Width = 447
    Height = 30
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Panel4: TPanel
      Left = 357
      Top = 0
      Width = 90
      Height = 30
      Align = alRight
      BevelOuter = bvNone
      Caption = 'Panel4'
      ParentColor = True
      TabOrder = 0
      object ButtonOK: TBitBtn
        Left = 1
        Top = 1
        Width = 89
        Height = 29
        Caption = 'Continue'
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = ButtonOKClick
        Kind = bkOK
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 357
      Height = 30
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object CheckBoxDisplayReminder: TCheckBox
        Left = 0
        Top = 0
        Width = 281
        Height = 33
        Caption = 'Display overdue items when program starts'
        Font.Color = clBtnText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        State = cbChecked
        TabOrder = 0
      end
    end
  end
  object DataSchedule: TDataSource
    DataSet = TableResched
    Left = 279
    Top = 25
  end
  object TableResched: TTable
    AutoCalcFields = False
    IndexFieldNames = 'Due Date;Description'
    TableName = 'resched.DB'
    Left = 316
    Top = 20
    object DateField1: TDateField
      FieldName = 'Pay Date'
    end
    object DateField2: TDateField
      FieldName = 'Due Date'
    end
    object StringField1: TStringField
      FieldName = 'Description'
      Required = True
      Size = 50
    end
    object CurrencyField1: TCurrencyField
      FieldName = 'Bill Amount'
    end
    object CurrencyField2: TCurrencyField
      FieldName = 'Pay Amount'
    end
    object SmallintField1: TSmallintField
      FieldName = 'Frequency'
      Required = True
      DisplayFormat = #39'Every '#39'#,###;;'#39#39
      EditFormat = '####'
    end
    object SmallintField2: TSmallintField
      FieldName = 'Warning Days'
    end
    object StringField2: TStringField
      FieldName = 'Units'
      Size = 15
    end
    object StringField3: TStringField
      FieldName = 'User Field 1'
      Size = 50
    end
    object StringField4: TStringField
      FieldName = 'User Field 2'
      Size = 50
    end
    object StringField5: TStringField
      FieldName = 'User Field 3'
      Size = 50
    end
    object StringField6: 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'
    end
    object TableReschedPayNow: TStringField
      FieldName = 'PayNow'
      Size = 1
    end
  end
  object RxGradientCaption1: TRxGradientCaption
    Captions = <>
    DefaultFont = False
    FormCaption = 'Overdue Items!'
    Font.Color = clWindow
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Left = 233
    Top = 25
  end
end