PC Plus SuperCD 45/SuperCD45.iso/talleres/delphi/td.dfm/td.txt

Text File | 1999-11-30 | 8KB | 346 lines

object ToDoForm: TToDoForm
  Left = 196
  Top = 108
  Width = 774
  Height = 606
  ActiveControl = Panel1
  Caption = 'Things To Do '
  ParentFont = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 766
    Height = 41
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 8
      Top = 8
      Width = 240
      Height = 25
      DataSource = DataSource1
      Ctl3D = False
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 766
    Height = 538
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 754
      Height = 526
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 380
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 269
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      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 = 374
        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 = DataSource1
        ReadOnly = True
        TabOrder = 0
      end
      object EditItem: TDBEdit
        Left = 86
        Top = 27
        Width = 288
        Height = 21
        DataField = 'Item'
        DataSource = DataSource1
        TabOrder = 1
      end
      object CheckBoxDone: TDBCheckBox
        Left = 86
        Top = 114
        Width = 97
        Height = 17
        DataField = 'Done'
        DataSource = DataSource1
        TabOrder = 2
        ValueChecked = 'Done'
        ValueUnchecked = 'Pending'
      end
      object DBRichEdit1: TDBRichEdit
        Left = 456
        Top = 8
        Width = 257
        Height = 241
        DataField = 'Notes'
        DataSource = DataSource1
        TabOrder = 3
        OnKeyUp = DBRichEdit1KeyUp
      end
      object DTPDateEntered: TDateTimePicker
        Left = 86
        Top = 69
        Width = 186
        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 = 88
        Top = 144
        Width = 185
        Height = 105
        Caption = 'Priority (set via values property)'
        DataField = 'Priority'
        DataSource = DataSource1
        Items.Strings = (
          'High'
          'Medium'
          'Low')
        TabOrder = 5
        Values.Strings = (
          '1'
          '2'
          '3')
      end
      object DBComboBox1: TDBComboBox
        Left = 86
        Top = 48
        Width = 145
        Height = 21
        DataField = 'Type'
        DataSource = DataSource1
        ItemHeight = 13
        Items.Strings = (
          'Personal'
          'Business'
          'Financial'
          'Instructions')
        TabOrder = 6
      end
      object DBGrid1: TDBGrid
        Left = 88
        Top = 264
        Width = 633
        Height = 201
        DataSource = DataSource1
        TabOrder = 7
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            FieldName = 'Item'
            Width = 300
          end
          item
            FieldName = 'Priority'
            PickList.Strings = (
              '1'
              '2'
              '3')
            Width = 50
          end
          item
            FieldName = 'Type'
            Width = 80
          end
          item
            FieldName = 'Date entered'
          end
          item
            FieldName = 'Date due'
            Width = 66
          end
          item
            FieldName = 'Done'
            PickList.Strings = (
              'Done'
              'Pending')
          end>
      end
      object DTPDatedue: TDateTimePicker
        Left = 86
        Top = 93
        Width = 186
        Height = 21
        CalAlignment = dtaLeft
        Date = 36490.770359259260000000
        Time = 36490.770359259260000000
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        OnChange = DTPDatedueChange
      end
      object GroupBox1: TGroupBox
        Left = 88
        Top = 472
        Width = 633
        Height = 49
        Caption = ' Sort By... '
        TabOrder = 9
        object ItemBtn: TButton
          Left = 64
          Top = 16
          Width = 113
          Height = 25
          Caption = 'Item Name'
          TabOrder = 0
          OnClick = ItemBtnClick
        end
        object DoneBtn: TButton
          Left = 496
          Top = 16
          Width = 113
          Height = 25
          Caption = 'Outstanding Items'
          TabOrder = 1
          OnClick = DoneBtnClick
        end
        object PriorityBtn: TButton
          Left = 280
          Top = 16
          Width = 113
          Height = 25
          Caption = 'Priority'
          TabOrder = 2
          OnClick = PriorityBtnClick
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 287
    Top = 5
  end
  object Table1: TTable
    AfterInsert = Table1AfterInsert
    AfterScroll = Table1AfterScroll
    TableName = 'TodoDB1.db'
    Left = 259
    Top = 5
    object Table1ItemNumber: TAutoIncField
      FieldName = 'Item Number'
    end
    object Table1Item: TStringField
      FieldName = 'Item'
      Size = 100
    end
    object Table1Priority: TSmallintField
      FieldName = 'Priority'
      MaxValue = 3
      MinValue = 1
    end
    object Table1Type: TStringField
      FieldName = 'Type'
      Size = 30
    end
    object Table1Dateentered: TDateField
      FieldName = 'Date entered'
    end
    object Table1Datedue: TDateField
      FieldName = 'Date due'
    end
    object Table1Done: TBooleanField
      FieldName = 'Done'
    end
    object Table1Notes: TBlobField
      FieldName = 'Notes'
      BlobType = ftFmtMemo
      Size = 240
    end
  end
end