home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kolekce / d3456 / ALEXSOFT.ZIP / FMCLNDR.dfm / FMCLNDR.txt
Encoding:
Text File  |  2000-06-02  |  2.6 KB  |  122 lines
  1. object fmCalendar: TfmCalendar
  2.   Left = 448
  3.   Top = 200
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsNone
  6.   Caption = 'Calendar'
  7.   ClientHeight = 115
  8.   ClientWidth = 190
  9.   Color = clBtnFace
  10.   ParentFont = True
  11.   FormStyle = fsStayOnTop
  12.   KeyPreview = True
  13.   OldCreateOrder = True
  14.   Position = poDefaultPosOnly
  15.   OnClose = FormClose
  16.   OnCreate = SetValues
  17.   OnDeactivate = DeactivateForm
  18.   OnKeyDown = FormKeyDown
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object Panel2: TPanel
  22.     Left = 0
  23.     Top = 0
  24.     Width = 190
  25.     Height = 115
  26.     Align = alClient
  27.     BevelInner = bvRaised
  28.     BevelOuter = bvLowered
  29.     ParentColor = True
  30.     TabOrder = 0
  31.     object laYear: TLabel
  32.       Left = 116
  33.       Top = 2
  34.       Width = 36
  35.       Height = 17
  36.       Caption = '0000'
  37.       Font.Charset = DEFAULT_CHARSET
  38.       Font.Color = clRed
  39.       Font.Height = -15
  40.       Font.Name = 'Courier'
  41.       Font.Style = [fsBold]
  42.       ParentFont = False
  43.     end
  44.     object Calendar: TCalendar
  45.       Left = 4
  46.       Top = 19
  47.       Width = 182
  48.       Height = 92
  49.       BorderStyle = bsNone
  50.       Font.Charset = DEFAULT_CHARSET
  51.       Font.Color = clWindowText
  52.       Font.Height = -12
  53.       Font.Name = 'Courier'
  54.       Font.Style = []
  55.       GridLineWidth = 0
  56.       ParentColor = True
  57.       ParentFont = False
  58.       StartOfWeek = 1
  59.       TabOrder = 0
  60.       OnChange = SetValues
  61.       OnDblClick = OkClick
  62.     end
  63.     object udYear: TUpDown
  64.       Left = 151
  65.       Top = 4
  66.       Width = 34
  67.       Height = 15
  68.       Hint = 'Change year'
  69.       Min = 0
  70.       Max = 9999
  71.       Orientation = udHorizontal
  72.       ParentShowHint = False
  73.       Position = 0
  74.       ShowHint = True
  75.       TabOrder = 1
  76.       Thousands = False
  77.       Wrap = False
  78.       OnClick = SetPositions
  79.     end
  80.     object udMonth: TUpDown
  81.       Left = 78
  82.       Top = 4
  83.       Width = 34
  84.       Height = 15
  85.       Hint = 'Change month'
  86.       Min = 0
  87.       Max = 9999
  88.       Orientation = udHorizontal
  89.       ParentShowHint = False
  90.       Position = 0
  91.       ShowHint = True
  92.       TabOrder = 2
  93.       Thousands = False
  94.       Wrap = False
  95.       OnClick = SetPositions
  96.     end
  97.     object Panel1: TPanel
  98.       Left = 4
  99.       Top = 1
  100.       Width = 73
  101.       Height = 17
  102.       BevelOuter = bvNone
  103.       ParentColor = True
  104.       TabOrder = 3
  105.       object laMonth: TLabel
  106.         Left = 1
  107.         Top = 0
  108.         Width = 72
  109.         Height = 17
  110.         Align = alRight
  111.         Caption = 'September'
  112.         Font.Charset = DEFAULT_CHARSET
  113.         Font.Color = clBlue
  114.         Font.Height = -13
  115.         Font.Name = 'Courier'
  116.         Font.Style = [fsBold]
  117.         ParentFont = False
  118.       end
  119.     end
  120.   end
  121. end
  122.