home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / 9EDU / CON305P.ZIP / SHRLK20.OC_ / SHRLK20.OC / 0 / RCDATA / TFRMDATE / TFRMDATE.txt
Text File  |  1997-11-18  |  2KB  |  94 lines
  1. object frmDate: TfrmDate
  2.   Left = 499
  3.   Top = 540
  4.   BorderStyle = bsToolWindow
  5.   Caption = 'Select Expiration Date'
  6.   ClientHeight = 190
  7.   ClientWidth = 209
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object btnOk: TButton
  16.     Left = 126
  17.     Top = 160
  18.     Width = 75
  19.     Height = 25
  20.     Caption = 'OK'
  21.     Default = True
  22.     ModalResult = 1
  23.     TabOrder = 0
  24.   end
  25.   object cmbMonth: TComboBox
  26.     Left = 8
  27.     Top = 8
  28.     Width = 97
  29.     Height = 21
  30.     Style = csDropDownList
  31.     DropDownCount = 12
  32.     ItemHeight = 13
  33.     Items.Strings = (
  34.       'January'
  35.       'Feburary'
  36.       'March'
  37.       'April'
  38.       'May'
  39.       'June'
  40.       'July'
  41.       'August'
  42.       'September'
  43.       'October'
  44.       'November'
  45.       'December')
  46.     TabOrder = 1
  47.     OnChange = cmbMonthChange
  48.   end
  49.   object btnCancel: TButton
  50.     Left = 44
  51.     Top = 160
  52.     Width = 75
  53.     Height = 25
  54.     Cancel = True
  55.     Caption = 'Cancel'
  56.     ModalResult = 2
  57.     TabOrder = 2
  58.   end
  59.   object cal: TCalendar
  60.     Left = 8
  61.     Top = 34
  62.     Width = 192
  63.     Height = 120
  64.     StartOfWeek = 0
  65.     TabOrder = 3
  66.     OnChange = calChange
  67.     OnDblClick = calDblClick
  68.   end
  69.   object txtYear: TEdit
  70.     Left = 112
  71.     Top = 8
  72.     Width = 73
  73.     Height = 21
  74.     ReadOnly = True
  75.     TabOrder = 4
  76.     Text = '1900'
  77.   end
  78.   object udYear: TUpDown
  79.     Left = 185
  80.     Top = 8
  81.     Width = 15
  82.     Height = 21
  83.     Associate = txtYear
  84.     Min = 1900
  85.     Max = 32000
  86.     Position = 1900
  87.     TabOrder = 5
  88.     Thousands = False
  89.     Wrap = False
  90.     OnChanging = udYearChanging
  91.     OnClick = udYearClick
  92.   end
  93. end
  94.