object FrmYear: TFrmYear
  Tag = 1
  Left = 303
  Top = 331
  Width = 503
  Height = 361
  Hint = 'rechte Maustaste...'
  Caption = 'FrmYear'
  Color = clWhite
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = True
  PopupMenu = PmYear
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnDblClick = iInfoWinClick
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object mmHint: TMemo
    Left = 148
    Top = 8
    Width = 185
    Height = 181
    Color = clInfoBk
    Ctl3D = False
    Lines.Strings = (
      'mmHint')
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 0
    Visible = False
    WordWrap = False
  end
  object dlgSave: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 8
    Top = 8
  end
  object CdsEvents: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 40
    Top = 8
    object CdsEventsEv_no: TAutoIncField
      FieldName = 'Ev_no'
    end
    object CdsEventsEv_name: TStringField
      FieldName = 'Ev_name'
      Size = 80
    end
    object CdsEventsEv_Type: TIntegerField
      DisplayLabel = 'Ev_type'
      FieldName = 'Ev_Type'
    end
    object CdsEventsEv_repeat: TIntegerField
      FieldName = 'Ev_repeat'
    end
    object CdsEventsEv_from: TStringField
      FieldName = 'Ev_from'
      Size = 8
    end
    object CdsEventsEv_to: TStringField
      FieldName = 'Ev_to'
      Size = 8
    end
    object CdsEventsEv_gp_no: TIntegerField
      FieldName = 'Ev_gp_no'
    end
  end
  object PmYear: TPopupMenu
    OnPopup = PmYearPopup
    Left = 104
    Top = 8
    object iNewEvent: TMenuItem
      Caption = 'Neues Ereignis...'
      ShortCut = 16453
      OnClick = iNewEventClick
    end
    object iEditEvent: TMenuItem
      Caption = 'Ereignis bearbeiten...'
      ShortCut = 16449
      OnClick = iEditEventClick
    end
    object iInspect: TMenuItem
      Caption = 'Inspektor'
      ShortCut = 16457
      OnClick = iInspectClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object iInfoWin: TMenuItem
      Caption = 'Kalenderblatt'
      Default = True
      ShortCut = 16459
      OnClick = iInfoWinClick
    end
  end
  object CdsEvDates: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 40
    Top = 40
    object CdsEvDatesEd_ev_no: TIntegerField
      FieldName = 'Ed_ev_no'
    end
    object CdsEvDatesEd_gp_no: TIntegerField
      FieldName = 'Ed_gp_no'
    end
    object CdsEvDatesEd_date: TStringField
      FieldName = 'Ed_date'
      Size = 8
    end
    object CdsEvDatesEd_color: TIntegerField
      FieldKind = fkLookup
      FieldName = 'Ed_color'
      LookupDataSet = FrmOptions.CdsGroups
      LookupKeyFields = 'Gp_no'
      LookupResultField = 'Gp_color'
      KeyFields = 'Ed_gp_no'
      Lookup = True
    end
    object CdsEvDatesEd_ev_name: TStringField
      FieldKind = fkLookup
      FieldName = 'Ed_ev_name'
      LookupDataSet = CdsEvents
      LookupKeyFields = 'Ev_no'
      LookupResultField = 'Ev_name'
      KeyFields = 'Ed_ev_no'
      Size = 80
      Lookup = True
    end
    object CdsEvDatesEdgp_show: TIntegerField
      FieldKind = fkLookup
      FieldName = 'Ed_show'
      LookupDataSet = FrmOptions.CdsGroups
      LookupKeyFields = 'Gp_no'
      LookupResultField = 'Gp_show'
      KeyFields = 'Ed_gp_no'
      Lookup = True
    end
    object CdsEvDatesEd_free: TBooleanField
      FieldKind = fkLookup
      FieldName = 'Ed_free'
      LookupDataSet = FrmOptions.CdsGroups
      LookupKeyFields = 'Gp_no'
      LookupResultField = 'Gp_free'
      KeyFields = 'Ed_gp_no'
      Lookup = True
    end
  end
end