object frm_cal: Tfrm_cal Left = 269 Top = 183 Width = 608 Height = 381 BorderStyle = bsSizeToolWin Caption = '���������' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnActivate = FormActivate PixelsPerInch = 120 TextHeight = 16 object cal: TMonthCalendar Left = 0 Top = 0 Width = 289 Height = 233 CalColors.BackColor = clWhite CalColors.TextColor = clBlack CalColors.TitleBackColor = clBlack CalColors.TrailingTextColor = clBlack Date = 36821.650018981500000000 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 WeekNumbers = True OnClick = calClick end object BitBtn1: TBitBtn Left = 448 Top = 256 Width = 139 Height = 25 TabOrder = 1 OnClick = BitBtn1Click Kind = bkOK end object Memo1: TMemo Left = 296 Top = 8 Width = 289 Height = 225 Lines.Strings = ( '') TabOrder = 2 end object Button1: TButton Left = 16 Top = 256 Width = 113 Height = 25 Caption = '������ ����' TabOrder = 3 OnClick = Button1Click end object Button2: TButton Left = 136 Top = 256 Width = 121 Height = 25 Caption = '������ ����' TabOrder = 4 OnClick = Button2Click end object Button3: TButton Left = 264 Top = 256 Width = 75 Height = 25 Caption = '=' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = Button3Click end object BitBtn2: TBitBtn Left = 16 Top = 304 Width = 137 Height = 25 TabOrder = 6 Kind = bkHelp end object BitBtn3: TBitBtn Left = 448 Top = 288 Width = 139 Height = 25 Caption = '���� ������' TabOrder = 7 OnClick = BitBtn3Click end end