home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Db / IbMastApp / PICKDATE.DFM / PICKDATE.txt
Encoding:
Text File  |  1999-08-11  |  2.7 KB  |  104 lines
  1. object BrDateForm: TBrDateForm
  2.   Left = 221
  3.   Top = 143
  4.   BorderStyle = bsDialog
  5.   Caption = 'Select a Date'
  6.   ClientHeight = 220
  7.   ClientWidth = 362
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Bevel1: TBevel
  16.     Left = 16
  17.     Top = 8
  18.     Width = 330
  19.     Height = 177
  20.     Shape = bsFrame
  21.   end
  22.   object TitleLabel: TLabel
  23.     Left = 54
  24.     Top = 18
  25.     Width = 257
  26.     Height = 13
  27.     Alignment = taCenter
  28.     AutoSize = False
  29.     Caption = 'February, 1995'
  30.     Font.Color = clBlack
  31.     Font.Height = -11
  32.     Font.Name = 'MS Sans Serif'
  33.     Font.Style = [fsBold]
  34.     ParentFont = False
  35.   end
  36.   object PrevMonthBtn: TSpeedButton
  37.     Left = 22
  38.     Top = 16
  39.     Width = 20
  40.     Height = 20
  41.     Glyph.Data = {
  42.       E6000000424DE60000000000000076000000280000000E0000000E0000000100
  43.       0400000000007000000000000000000000000000000010000000000000000000
  44.       BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  45.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  46.       3300333333333333330033333300033333003333330003333300333333000333
  47.       3300333333000333330033333300033333003333330003333300333333000333
  48.       3300333300000003330033333000003333003333330003333300333333303333
  49.       33003333333333333300}
  50.     OnClick = PrevMonthBtnClick
  51.   end
  52.   object NextMonthBtn: TSpeedButton
  53.     Left = 320
  54.     Top = 16
  55.     Width = 20
  56.     Height = 20
  57.     Glyph.Data = {
  58.       E6000000424DE60000000000000076000000280000000E0000000E0000000100
  59.       0400000000007000000000000000000000000000000010000000000000000000
  60.       BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  61.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  62.       3300333333303333330033333300033333003333300000333300333300000003
  63.       3300333333000333330033333300033333003333330003333300333333000333
  64.       3300333333000333330033333300033333003333330003333300333333000333
  65.       33003333333333333300}
  66.     OnClick = NextMonthBtnClick
  67.   end
  68.   object Calendar1: TCalendar
  69.     Left = 22
  70.     Top = 41
  71.     Width = 318
  72.     Height = 136
  73.     Color = clInfoBk
  74.     Font.Color = clBlack
  75.     Font.Height = -11
  76.     Font.Name = 'MS Sans Serif'
  77.     Font.Style = [fsBold]
  78.     ParentFont = False
  79.     StartOfWeek = 0
  80.     TabOrder = 0
  81.     UseCurrentDate = False
  82.     OnChange = Calendar1Change
  83.   end
  84.   object OkBtn: TButton
  85.     Left = 204
  86.     Top = 189
  87.     Width = 73
  88.     Height = 25
  89.     Caption = '&OK'
  90.     Default = True
  91.     ModalResult = 1
  92.     TabOrder = 1
  93.   end
  94.   object CancelBtn: TButton
  95.     Left = 284
  96.     Top = 189
  97.     Width = 73
  98.     Height = 25
  99.     Caption = '&Cancel'
  100.     ModalResult = 2
  101.     TabOrder = 2
  102.   end
  103. end
  104.