PC Plus SuperCD (UK) 2000 May/PCP163A.iso/handson/files/delphi/td.dfm/td.txt

Text File | 1999-12-22 | 11.0 KB | 460 lines

object ToDoForm: TToDoForm
  Left = 203
  Top = 143
  Width = 800
  Height = 535
  ActiveControl = Panel1
  Caption = 'Things To Do '
  ParentFont = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 25
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 8
      Top = 3
      Width = 240
      Height = 18
      DataSource = ToDoDataSource
      Flat = True
      Ctl3D = True
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 25
    Width = 792
    Height = 483
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 780
      Height = 471
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 380
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 269
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 6
        Top = 6
        Width = 74
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Item Number'
        FocusControl = EditItemNumber
      end
      object Label2: TLabel
        Left = 6
        Top = 27
        Width = 74
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Item'
        FocusControl = EditItem
      end
      object Label4: TLabel
        Left = 6
        Top = 48
        Width = 74
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Type'
      end
      object Label5: TLabel
        Left = 6
        Top = 69
        Width = 74
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Date entered'
      end
      object Label6: TLabel
        Left = 6
        Top = 93
        Width = 74
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Date due'
      end
      object Label7: TLabel
        Left = 6
        Top = 114
        Width = 74
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Done'
        FocusControl = CheckBoxDone
      end
      object Label8: TLabel
        Left = 358
        Top = 6
        Width = 74
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Notes'
      end
      object EditItemNumber: TDBEdit
        Left = 86
        Top = 6
        Width = 55
        Height = 21
        DataField = 'Item Number'
        DataSource = ToDoDataSource
        ReadOnly = True
        TabOrder = 0
      end
      object EditItem: TDBEdit
        Left = 86
        Top = 27
        Width = 315
        Height = 21
        DataField = 'Item'
        DataSource = ToDoDataSource
        TabOrder = 1
      end
      object CheckBoxDone: TDBCheckBox
        Left = 86
        Top = 114
        Width = 97
        Height = 17
        DataField = 'Done'
        DataSource = ToDoDataSource
        TabOrder = 2
        ValueChecked = 'Done'
        ValueUnchecked = 'Pending'
      end
      object DBRichEdit1: TDBRichEdit
        Left = 440
        Top = 8
        Width = 337
        Height = 121
        DataField = 'Notes'
        DataSource = ToDoDataSource
        ScrollBars = ssVertical
        TabOrder = 3
        OnKeyUp = DBRichEdit1KeyUp
      end
      object DTPDateEntered: TDateTimePicker
        Left = 86
        Top = 69
        Width = 163
        Height = 21
        CalAlignment = dtaLeft
        Date = 36486.585789814800000000
        Time = 36486.585789814800000000
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        OnChange = DTPDateEnteredChange
      end
      object DBRadioGroup1: TDBRadioGroup
        Left = 256
        Top = 48
        Width = 145
        Height = 81
        Caption = 'Priority '
        DataField = 'Priority'
        DataSource = ToDoDataSource
        Items.Strings = (
          'High'
          'Medium'
          'Low')
        TabOrder = 5
        Values.Strings = (
          '1'
          '2'
          '3')
      end
      object DTPDatedue: TDateTimePicker
        Left = 86
        Top = 93
        Width = 163
        Height = 21
        CalAlignment = dtaLeft
        Date = 36490.770359259260000000
        Time = 36490.770359259260000000
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        OnChange = DTPDatedueChange
      end
      object Panel3: TPanel
        Left = 0
        Top = 160
        Width = 780
        Height = 311
        Align = alBottom
        Caption = 'Panel3'
        TabOrder = 7
        object DBGrid1: TDBGrid
          Left = 8
          Top = 16
          Width = 633
          Height = 281
          DataSource = ToDoDataSource
          Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnEditButtonClick = DBGrid1EditButtonClick
          OnTitleClick = DBGrid1TitleClick
          Columns = <
            item
              FieldName = 'Item'
              Width = 300
            end
            item
              FieldName = 'Priority'
              PickList.Strings = (
                '1'
                '2'
                '3')
              Width = 50
            end
            item
              ButtonStyle = cbsEllipsis
              FieldName = 'Type'
              Width = 80
            end
            item
              ButtonStyle = cbsEllipsis
              FieldName = 'Date entered'
            end
            item
              ButtonStyle = cbsEllipsis
              FieldName = 'Date due'
              Width = 66
            end
            item
              FieldName = 'Done'
              PickList.Strings = (
                'True'
                'False')
            end>
        end
        object GridEditCB: TCheckBox
          Left = 648
          Top = 16
          Width = 121
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Edit data in Grid?'
          TabOrder = 1
          OnClick = GridEditCBClick
        end
        object GroupBox1: TGroupBox
          Left = 648
          Top = 64
          Width = 129
          Height = 137
          Caption = 'Filter '
          TabOrder = 2
          object Label3: TLabel
            Left = 8
            Top = 48
            Width = 31
            Height = 13
            Caption = 'Priority'
          end
          object Label9: TLabel
            Left = 8
            Top = 80
            Width = 24
            Height = 13
            Caption = 'Type'
          end
          object OverdueCB: TCheckBox
            Left = 8
            Top = 16
            Width = 113
            Height = 17
            Alignment = taLeftJustify
            Caption = 'Overdue'
            TabOrder = 0
          end
          object ApplyFilterBtn: TButton
            Left = 8
            Top = 104
            Width = 49
            Height = 17
            Caption = 'Apply'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = ApplyFilterBtnClick
          end
          object PriorityCombo: TComboBox
            Left = 72
            Top = 40
            Width = 49
            Height = 21
            ItemHeight = 13
            Items.Strings = (
              'Any'
              '1'
              '2'
              '3')
            TabOrder = 2
            Text = 'Any'
          end
          object RemoveFilterBtn: TButton
            Left = 72
            Top = 104
            Width = 49
            Height = 17
            Caption = 'Remove'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnClick = RemoveFilterBtnClick
          end
          object TypeCombo: TComboBox
            Left = 40
            Top = 72
            Width = 81
            Height = 21
            ItemHeight = 13
            TabOrder = 4
            Text = 'TypeCombo'
          end
        end
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 86
        Top = 48
        Width = 147
        Height = 21
        DataField = 'Type'
        DataSource = ToDoDataSource
        KeyField = 'Type'
        ListField = 'Type'
        ListSource = CategoriesDataSource
        TabOrder = 8
      end
      object LoadCatAddBtn: TButton
        Left = 235
        Top = 49
        Width = 14
        Height = 18
        Hint = 'Load Category Manager'
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        OnClick = LoadCatAddBtnClick
      end
    end
  end
  object ToDoDataSource: TDataSource
    DataSet = ToDoTable
    Left = 287
    Top = 2
  end
  object ToDoTable: TTable
    AfterInsert = ToDoTableAfterInsert
    AfterScroll = ToDoTableAfterScroll
    TableName = 'TodoDB1.DB'
    Left = 259
    Top = 2
    object ToDoTableItemNumber: TAutoIncField
      FieldName = 'Item Number'
    end
    object ToDoTableItem: TStringField
      FieldName = 'Item'
      Size = 100
    end
    object ToDoTablePriority: TSmallintField
      FieldName = 'Priority'
      MaxValue = 3
      MinValue = 1
    end
    object ToDoTableType: TStringField
      FieldName = 'Type'
      Size = 30
    end
    object ToDoTableDateentered: TDateField
      FieldName = 'Date entered'
    end
    object ToDoTableDatedue: TDateField
      FieldName = 'Date due'
    end
    object ToDoTableDone: TBooleanField
      FieldName = 'Done'
    end
    object ToDoTableNotes: TBlobField
      FieldName = 'Notes'
      BlobType = ftFmtMemo
      Size = 240
    end
  end
  object CategoriesDataSource: TDataSource
    DataSet = CategoriesTable
    Left = 376
    Top = 2
  end
  object CategoriesTable: TTable
    Active = True
    TableName = 'Categories.db'
    Left = 344
    Top = 2
    object CategoriesTableType: TStringField
      FieldName = 'Type'
      Required = True
      Size = 30
    end
  end
end