Hot Shareware 35/hot35.iso/ficheros/9UTI/TDP_FULL.ZIP/_SETUP.1/todopro.exe/0/RCDATA/TFRMADDTASK/TFRMADDTASK.txt

Text File | 1998-01-21 | 8KB | 340 lines

object frmAddTask: TfrmAddTask
  Left = 250
  Top = 191
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsSingle
  Caption = 'Add New Task'
  ClientHeight = 247
  ClientWidth = 371
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object PanelManager1: TPanelManager
    Left = 0
    Top = 75
    Width = 371
    Height = 170
    Caption = 'PanelManager1'
    TabOrder = 0
    TabHeight = 15
    OnPanelChange = PanelManager1PanelChange
    object AdvPanel: TMPanel
      Left = 10
      Top = 0
      Width = 361
      Height = 43
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      TabCaption = 'Advanced Options'
      ParentTabColor = True
      object Label8: TLabel
        Left = 8
        Top = 2
        Width = 35
        Height = 13
        AutoSize = False
        Caption = 'Due at:'
      end
      object Label3: TLabel
        Left = 108
        Top = 2
        Width = 62
        Height = 13
        AutoSize = False
        Caption = 'Type of task:'
      end
      object edtTime1: TpvlTimeEdit
        Left = 13
        Top = 20
        Width = 89
        Height = 22
        QuickChangeWrap = True
        QuickChangeType = qcNone
        LoadTime = False
        Glyph.Data = {
          32010000424D3201000000000000360000002800000009000000090000000100
          180000000000FC00000000000000000000000000000000000000C0B79FC0B79F
          C0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79FC0B79FC0
          B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79FC0B79FC0B79FC0B7
          9FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79FC0B79FC0B79F000000C0B79F
          C0B79FC0B79F01FE9F00C0B79FC0B79FC0B79F000000000000000000C0B79FC0
          B79F01FE9F00C0B79FC0B79F000000000000000000000000000000C0B79F01FE
          9F00C0B79FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B7
          9FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00C0B79FC0B79F
          C0B79FC0B79FC0B79FC0B79FC0B79FC0B79F01FE9F00}
        Enabled = True
        ReadOnly = False
        TabOrder = 2
        Visible = False
        DisplayFormat = dfShort
        SeparateHourHand = True
      end
      object Panel5: TPanel
        Left = 204
        Top = 6
        Width = 152
        Height = 32
        Caption = 'Panel5'
        TabOrder = 3
        object chkEnableAlarm: TCheckBox
          Left = 7
          Top = 9
          Width = 139
          Height = 15
          Caption = 'Enable &alarm for this task'
          TabOrder = 0
        end
      end
      object edtTime: TMaskEdit
        Left = 6
        Top = 17
        Width = 87
        Height = 21
        EditMask = '!00:00> LL;0;_'
        MaxLength = 8
        TabOrder = 0
      end
      object cboTaskType: TComboBox
        Left = 106
        Top = 17
        Width = 88
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'one-time'
          'daily'
          'weekly'
          'bi-weekly'
          'monthly')
        TabOrder = 1
      end
    end
    object NotesPanel: TMPanel
      Left = 10
      Top = 43
      Width = 361
      Height = 125
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      TabCaption = 'Notes'
      ParentTabColor = False
      object Label2: TLabel
        Left = 8
        Top = 7
        Width = 31
        Height = 13
        AutoSize = False
        Caption = 'Notes:'
      end
      object Bevel1: TBevel
        Left = 0
        Top = 0
        Width = 361
        Height = 2
        Align = alTop
      end
      object Label4: TLabel
        Left = 239
        Top = 7
        Width = 67
        Height = 13
        AutoSize = False
        Caption = 'Task Created:'
        Enabled = False
      end
      object lblCreateDate: TLabel
        Left = 309
        Top = 7
        Width = 46
        Height = 13
        AutoSize = False
        Caption = '01/01/80'
        Enabled = False
      end
      object mmoNotes: TMemo
        Left = 6
        Top = 22
        Width = 354
        Height = 101
        ScrollBars = ssVertical
        TabOrder = 0
        OnChange = mmoNotesChange
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 371
    Height = 75
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 18
      Top = 10
      Width = 27
      Height = 13
      Alignment = taRightJustify
      Caption = 'Task:'
    end
    object Label7: TLabel
      Left = 18
      Top = 33
      Width = 38
      Height = 13
      AutoSize = False
      Caption = 'Due on:'
    end
    object Label10: TLabel
      Left = 216
      Top = 33
      Width = 34
      Height = 13
      AutoSize = False
      Caption = 'Priority:'
    end
    object Label9: TLabel
      Left = 118
      Top = 33
      Width = 45
      Height = 13
      AutoSize = False
      Caption = 'Category:'
    end
    object edtTask: TEdit
      Left = 48
      Top = 6
      Width = 205
      Height = 21
      TabOrder = 0
    end
    object edtDate: TEdit
      Left = 16
      Top = 49
      Width = 66
      Height = 21
      TabOrder = 1
      OnChange = edtDateChange
    end
    object btnShowCal: TBitBtn
      Left = 82
      Top = 49
      Width = 21
      Height = 21
      TabOrder = 2
      TabStop = False
      OnClick = btnShowCalClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777000000000000007707778FF7FF7FF077077788F78F78F07708888877877
        87077077780078F78F077077780E0FF78F0770888870E0777707700000FF0E07
        FF077077770F70E0FF07077777707F0E0F070F7555707FF0E0070F7577704444
        0E070F757770000000E070FFF707777777007700007777777777}
      Layout = blGlyphTop
    end
    object Panel3: TPanel
      Left = 274
      Top = 6
      Width = 93
      Height = 65
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 5
      object btnOK: TBitBtn
        Left = 9
        Top = 6
        Width = 75
        Height = 25
        TabOrder = 0
        OnClick = btnOKClick
        Kind = bkOK
      end
      object btnCancel: TBitBtn
        Left = 9
        Top = 34
        Width = 75
        Height = 25
        TabOrder = 1
        Kind = bkCancel
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 10
      Height = 75
      TabOrder = 6
    end
    object edtPriority: TComboBox
      Left = 214
      Top = 49
      Width = 39
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        '1'
        '2'
        '3')
      TabOrder = 4
    end
    object cboCategory: TComboBox
      Left = 116
      Top = 49
      Width = 88
      Height = 21
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object CalComp1: TCalComp
    Day = 27
    Month = 11
    Year = 1997
    Top = 208
    Left = 24
    Color = clBtnFace
    TextColor = clBlack
    SelectColor = clHighlight
    InversColor = clWhite
    WeekendColor = clBlack
    AlignControl = edtDate
    ShowMethod = smBottom
    NameofDays.Monday = 'Mo'
    NameofDays.Tuesday = 'Tu'
    NameofDays.Wednesday = 'We'
    NameofDays.Thursday = 'Th'
    NameofDays.Friday = 'Fr'
    NameofDays.Saturday = 'Sa'
    NameofDays.Sunday = 'Su'
    NameofMonths.January = 'Jan'
    NameofMonths.February = 'Feb'
    NameofMonths.March = 'Mar'
    NameofMonths.April = 'Apr'
    NameofMonths.May = 'May'
    NameofMonths.June = 'Jun'
    NameofMonths.July = 'Jul'
    NameofMonths.August = 'Aug'
    NameofMonths.September = 'Sep'
    NameofMonths.October = 'Oct'
    NameofMonths.November = 'Nov'
    NameofMonths.December = 'Dec'
    ShowWeeks = False
    Firstday = sdSunday
    YearStartAt.StartDay = 1
    YearStartAt.StartMonth = 1
  end
end