home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / PCALDEMO.DFM / PCALDEMO.txt
Encoding:
Text File  |  1995-10-02  |  2.5 KB  |  95 lines
  1. object CalDemo: TCalDemo
  2.   Left = 125
  3.   Top = 101
  4.   Width = 435
  5.   Height = 300
  6.   Caption = 'Popup Calendar Component'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   ShowHint = True
  13.   TextHeight = 16
  14.   object SpeedButton1: TSpeedButton
  15.     Left = 294
  16.     Top = 51
  17.     Width = 25
  18.     Height = 25
  19.     Hint = 'Get Date from Calendar'
  20.     Glyph.Data = {
  21.       78010000424D7801000000000000760000002800000020000000100000000100
  22.       04000000000000000000120B0000120B00000000000000000000000000000000
  23.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  24.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  25.       33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
  26.       7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
  27.       777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
  28.       79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
  29.       7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
  30.       777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
  31.       79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
  32.       CCCC777777FFFF777777CCCCCCCCCCCCCCCC77777777777777770000}
  33.     NumGlyphs = 2
  34.     ParentShowHint = False
  35.     ShowHint = True
  36.     OnClick = SpeedButton1Click
  37.   end
  38.   object Label1: TLabel
  39.     Left = 105
  40.     Top = 123
  41.     Width = 194
  42.     Height = 48
  43.     AutoSize = False
  44.     Caption = 
  45.       'The popup calendar component provides a handy way for users to e' +
  46.       'nter dates using the mouse.'
  47.     Font.Color = clBlack
  48.     Font.Height = -11
  49.     Font.Name = 'MS Sans Serif'
  50.     Font.Style = [fsBold]
  51.     ParentFont = False
  52.   end
  53.   object Edit1: TEdit
  54.     Left = 82
  55.     Top = 52
  56.     Width = 212
  57.     Height = 24
  58.     TabOrder = 0
  59.   end
  60.   object CheckBox1: TCheckBox
  61.     Left = 82
  62.     Top = 91
  63.     Width = 154
  64.     Height = 17
  65.     Caption = 'Use Long Date Format'
  66.     Font.Color = clBlack
  67.     Font.Height = -11
  68.     Font.Name = 'MS Sans Serif'
  69.     Font.Style = [fsBold]
  70.     ParentFont = False
  71.     TabOrder = 1
  72.     OnClick = CheckBox1Click
  73.   end
  74.   object CheckBox2: TCheckBox
  75.     Left = 237
  76.     Top = 91
  77.     Width = 154
  78.     Height = 17
  79.     Caption = 'Year at a Glance'
  80.     Font.Color = clBlack
  81.     Font.Height = -11
  82.     Font.Name = 'MS Sans Serif'
  83.     Font.Style = [fsBold]
  84.     ParentFont = False
  85.     TabOrder = 2
  86.     OnClick = CheckBox1Click
  87.   end
  88.   object PopCal1: TPopCal
  89.     Format = 'mm/dd/yy'
  90.     Top = 8
  91.     Left = 135
  92.     mode = 1
  93.   end
  94. end
  95.