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