task.dfm

if you want to program an alert task like ardv

object TaskForm: TTaskForm
  Left = 607
  Top = 201
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #1047#1072#1076#1072#1085#1080#1077
  ClientHeight = 496
  ClientWidth = 564
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000011001001110000110000000001000010
    1011111111111110000001100010011101111111111111111119111111100111
    1111111111111111111111111110019111919191179111199911999999900399
    9999999919919999999999B393300993333339999333393BBBB339BB333003BB
    BBBB88888887888B88BBBBBBBBB0033BBBBBB8888888888888888BBBBBB00999
    9999933BBB883BBBB3B399999990091199999999998F79999999999199900111
    11999999993F3999911191191110011199119111197F19111199911111100111
    1110911119181111111011111110011119111990111111011119111111100111
    1101111111191911111011111110001111101111119911111111111101100101
    1111111111991111111111111110011111111111111111111191111111100111
    1111111111111111111111111110011111011111111111111111111111100011
    1111111111111111111111111110011111111111111111111111111111100111
    1111911111111111111111111110011111111111111111111111111111100111
    1111111111111011111111110110010011111111111111111111101010000001
    1111111111111111111111001010000010111001111111110111110010000000
    0111110000111100000111101100000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnKeyDown = FormKeyDown
  PixelsPerInch = 120
  TextHeight = 16
  object TaskNumL: TLabel
    Left = 0
    Top = 0
    Width = 564
    Height = 28
    Align = alTop
    Alignment = taCenter
    Caption = #1047#1072#1076#1072#1085#1080#1077' '#8470
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHotLight
    Font.Height = -23
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = False
  end
  object Label1: TLabel
    Left = 77
    Top = 36
    Width = 70
    Height = 16
    Caption = #1053#1072#1079#1074#1072#1085#1080#1077':'
  end
  object Label2: TLabel
    Left = 53
    Top = 118
    Width = 90
    Height = 16
    Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077':'
  end
  object Label3: TLabel
    Left = 18
    Top = 183
    Width = 124
    Height = 16
    Caption = #1044#1072#1090#1072' '#1074#1099#1087#1086#1083#1085#1077#1085#1080#1103':'
  end
  object Label4: TLabel
    Left = 10
    Top = 212
    Width = 133
    Height = 16
    Caption = #1042#1088#1077#1084#1103' '#1074#1099#1087#1086#1083#1085#1077#1085#1080#1103':'
  end
  object Label6: TLabel
    Left = 56
    Top = 64
    Width = 89
    Height = 16
    Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072':'
  end
  object Label7: TLabel
    Left = 47
    Top = 94
    Width = 98
    Height = 16
    Caption = #1042#1088#1077#1084#1103' '#1085#1072#1095#1072#1083#1072':'
  end
  object OKBtn: TSpeedButton
    Left = 8
    Top = 464
    Width = 105
    Height = 25
    Caption = #1044#1072
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066001EB2311FB13300
      6600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FF00660047D36D3BCB5E25A83B0066001B
      A92E1DB132006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
      4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FF00660041C563006600FF00FFFF00FFFF
      00FFFF00FF00660019AA2B006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    OnClick = OKBtnClick
  end
  object CancelBtn: TSpeedButton
    Left = 120
    Top = 464
    Width = 105
    Height = 25
    Caption = #1053#1077#1090
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFCA5D00
      CA5D00CA5D00CA5D00CA5D00CA5D00CA5D00CA5D00CA5D00CA5D00CA5D00CA5D
      00FF00FFFF00FFFF00FFFF00FFCA5D00FFFFFFFFFFFBFFFBEFFFF3E0FFEDD4FF
      E8C8FFE3BFFFE2BBFFE1BAFFEFD0CA5D00FF00FFFF00FFFF00FFFF00FFCA5D00
      FFFFFFFFF8F3FEF4E9FFEFDCFEE9D1FEE3C4FEDDB8FED9B0FED6AAFFE3BDCA5D
      00FF00FFFF00FFFF00FFFF00FFCA5D00FFFFFFFFFEFCFFFAF5FFF5EBFFF0DFFF
      EAD2FFE4C6FFDEBBFFD9B0FFE4BECA5D00FF00FFFF00FFFF00FFFF00FFCA5D00
      FFFFFFFFFFFFFFFFFEFFFBF7FFF6EDFEF0E1FFEBD5FEE5C8FEDFBCFFE8C5CA5D
      00FF00FFFF00FFFF00FFFF00FFCA5D00FFFFFFFFFFFFFFFFFFFFFFFEFFFCF8FE
      F6EDFEF2E2FFECD6FEE5C9FFEDD1CA5D00FF00FFFF00FFFF00FFFF00FFCA5D00
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCF9FFF7EF001B80FEEBD6FFF3E0CA5D
      00001B80FF00FFFF00FFFF00FFCA5D00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFF001B802355FF001B80FFFFFF001B800033FF001B80FF00FFFF00FFCA5D00
      EEB67CECB074ECB074ECB074ECB074ECB074ECB174001B802757FF001B801243
      FF001B80FF00FFFF00FFFF00FFFF00FFCA5C00CA5D00CA5D00CA5D00CA5D00CA
      5D00CA5D00CA5D00001B802B5BFF001B80FF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF001B804271FF001B802E5F
      FF001B80FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FF001B804A79FF001B80FF00FF001B803262FF001B80FF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF001B80FF00FFFF00FFFF00
      FF001B80FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    OnClick = CancelBtnClick
  end
  object NameE: TEdit
    Left = 152
    Top = 35
    Width = 401
    Height = 24
    TabOrder = 0
    Text = 'NameE'
  end
  object DescriptionM: TMemo
    Left = 152
    Top = 118
    Width = 401
    Height = 51
    Lines.Strings = (
      'DescriptionM')
    TabOrder = 1
  end
  object DateEndDTP: TDateTimePicker
    Left = 152
    Top = 177
    Width = 161
    Height = 24
    Date = 38268.737651898150000000
    Time = 38268.737651898150000000
    TabOrder = 2
  end
  object TimeEndME: TMaskEdit
    Left = 152
    Top = 207
    Width = 62
    Height = 24
    EditMask = '!90:00:00;1;_'
    MaxLength = 8
    TabOrder = 3
    Text = '  :  :  '
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 244
    Width = 545
    Height = 110
    Caption = ' '#1044#1077#1081#1089#1090#1074#1080#1103' '
    TabOrder = 4
    object Label5: TLabel
      Left = 62
      Top = 79
      Width = 166
      Height = 16
      Caption = #1048#1085#1090#1077#1088#1074#1072#1083' '#1085#1072#1087#1086#1084#1080#1085#1072#1085#1080#1103':'
    end
    object AlertCB: TCheckBox
      Left = 15
      Top = 20
      Width = 242
      Height = 21
      Caption = #1053#1072#1087#1086#1084#1085#1080#1090#1100' '#1084#1085#1077' '#1086#1073' '#1101#1090#1086#1084' '#1079#1072#1076#1072#1085#1080#1080
      TabOrder = 0
      OnClick = AlertCBClick
    end
    object AlertPCB: TCheckBox
      Left = 34
      Top = 49
      Width = 208
      Height = 21
      Caption = #1055#1077#1088#1077#1086#1076#1080#1095#1077#1089#1082#1080' '#1085#1072#1087#1086#1084#1080#1085#1072#1090#1100
      TabOrder = 1
    end
    object IntervalCB: TComboBox
      Left = 241
      Top = 74
      Width = 176
      Height = 24
      Style = csDropDownList
      ItemHeight = 16
      TabOrder = 2
      OnChange = IntervalCBChange
      Items.Strings = (
        #1050#1072#1078#1076#1099#1081' '#1095#1072#1089
        #1050#1072#1078#1076#1099#1077' 3 '#1095#1072#1089#1072
        #1050#1072#1078#1076#1099#1077' 12 '#1095#1072#1089#1086#1074
        #1050#1072#1078#1076#1099#1077' '#1089#1091#1090#1082#1080
        #1063#1077#1088#1077#1079' 2 '#1089#1091#1090#1086#1082
        #1050#1072#1078#1076#1091#1102' '#1085#1077#1076#1077#1083#1102
        #1050#1072#1078#1076#1099#1081' '#1084#1077#1089#1103#1094
        #1050#1072#1078#1076#1099#1081' '#1075#1086#1076
        #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1074#1088#1091#1095#1085#1091#1102)
    end
    object MaskEdit1: TMaskEdit
      Left = 428
      Top = 74
      Width = 45
      Height = 24
      EditMask = '!90:00;1;_'
      MaxLength = 5
      TabOrder = 3
      Text = '  :  '
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 362
    Width = 545
    Height = 90
    Caption = ' '#1056#1077#1079#1091#1083#1100#1090#1072#1090' '
    TabOrder = 5
    object CheckBox1: TCheckBox
      Left = 18
      Top = 20
      Width = 119
      Height = 21
      Caption = #1047#1072#1074#1077#1088#1096#1077#1085#1086
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object RadioButton1: TRadioButton
      Left = 43
      Top = 39
      Width = 90
      Height = 21
      Caption = #1059#1089#1087#1077#1096#1085#1086
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 43
      Top = 59
      Width = 100
      Height = 21
      Caption = #1055#1088#1086#1074#1072#1083#1077#1085#1086
      TabOrder = 2
    end
  end
  object DateBeginDTP: TDateTimePicker
    Left = 152
    Top = 59
    Width = 121
    Height = 24
    Date = 38268.737651898150000000
    Time = 38268.737651898150000000
    TabOrder = 6
  end
  object TimeBeginME: TMaskEdit
    Left = 152
    Top = 89
    Width = 65
    Height = 24
    EditMask = '!90:00:00;1;_'
    MaxLength = 8
    TabOrder = 7
    Text = '  :  :  '
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 8
    Top = 40
  end
end