home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 A / CHIP_HITWARE_7A.iso / biuro / ALLDAY / _SETUP.1 / AllDay.exe / 0 / RCDATA / TFRMYEAR / TFRMYEAR.txt
Text File  |  1999-12-29  |  4KB  |  164 lines
  1. object FrmYear: TFrmYear
  2.   Tag = 1
  3.   Left = 303
  4.   Top = 331
  5.   Width = 503
  6.   Height = 361
  7.   Hint = 'rechte Maustaste...'
  8.   Caption = 'FrmYear'
  9.   Color = clWhite
  10.   Font.Charset = ANSI_CHARSET
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   FormStyle = fsMDIChild
  16.   OldCreateOrder = True
  17.   PopupMenu = PmYear
  18.   Position = poDefault
  19.   Visible = True
  20.   OnActivate = FormActivate
  21.   OnClose = FormClose
  22.   OnCloseQuery = FormCloseQuery
  23.   OnDblClick = iInfoWinClick
  24.   OnMouseDown = FormMouseDown
  25.   OnMouseMove = FormMouseMove
  26.   OnPaint = FormPaint
  27.   OnResize = FormResize
  28.   PixelsPerInch = 96
  29.   TextHeight = 13
  30.   object mmHint: TMemo
  31.     Left = 148
  32.     Top = 8
  33.     Width = 185
  34.     Height = 181
  35.     Color = clInfoBk
  36.     Ctl3D = False
  37.     Lines.Strings = (
  38.       'mmHint')
  39.     ParentCtl3D = False
  40.     ReadOnly = True
  41.     TabOrder = 0
  42.     Visible = False
  43.     WordWrap = False
  44.   end
  45.   object dlgSave: TSaveDialog
  46.     Options = [ofOverwritePrompt, ofHideReadOnly]
  47.     Left = 8
  48.     Top = 8
  49.   end
  50.   object CdsEvents: TClientDataSet
  51.     Aggregates = <>
  52.     Params = <>
  53.     Left = 40
  54.     Top = 8
  55.     object CdsEventsEv_no: TAutoIncField
  56.       FieldName = 'Ev_no'
  57.     end
  58.     object CdsEventsEv_name: TStringField
  59.       FieldName = 'Ev_name'
  60.       Size = 80
  61.     end
  62.     object CdsEventsEv_Type: TIntegerField
  63.       DisplayLabel = 'Ev_type'
  64.       FieldName = 'Ev_Type'
  65.     end
  66.     object CdsEventsEv_repeat: TIntegerField
  67.       FieldName = 'Ev_repeat'
  68.     end
  69.     object CdsEventsEv_from: TStringField
  70.       FieldName = 'Ev_from'
  71.       Size = 8
  72.     end
  73.     object CdsEventsEv_to: TStringField
  74.       FieldName = 'Ev_to'
  75.       Size = 8
  76.     end
  77.     object CdsEventsEv_gp_no: TIntegerField
  78.       FieldName = 'Ev_gp_no'
  79.     end
  80.   end
  81.   object PmYear: TPopupMenu
  82.     OnPopup = PmYearPopup
  83.     Left = 104
  84.     Top = 8
  85.     object iNewEvent: TMenuItem
  86.       Caption = 'Neues Ereignis...'
  87.       ShortCut = 16453
  88.       OnClick = iNewEventClick
  89.     end
  90.     object iEditEvent: TMenuItem
  91.       Caption = 'Ereignis bearbeiten...'
  92.       ShortCut = 16449
  93.       OnClick = iEditEventClick
  94.     end
  95.     object iInspect: TMenuItem
  96.       Caption = 'Inspektor'
  97.       ShortCut = 16457
  98.       OnClick = iInspectClick
  99.     end
  100.     object N1: TMenuItem
  101.       Caption = '-'
  102.     end
  103.     object iInfoWin: TMenuItem
  104.       Caption = 'Kalenderblatt'
  105.       Default = True
  106.       ShortCut = 16459
  107.       OnClick = iInfoWinClick
  108.     end
  109.   end
  110.   object CdsEvDates: TClientDataSet
  111.     Aggregates = <>
  112.     Params = <>
  113.     Left = 40
  114.     Top = 40
  115.     object CdsEvDatesEd_ev_no: TIntegerField
  116.       FieldName = 'Ed_ev_no'
  117.     end
  118.     object CdsEvDatesEd_gp_no: TIntegerField
  119.       FieldName = 'Ed_gp_no'
  120.     end
  121.     object CdsEvDatesEd_date: TStringField
  122.       FieldName = 'Ed_date'
  123.       Size = 8
  124.     end
  125.     object CdsEvDatesEd_color: TIntegerField
  126.       FieldKind = fkLookup
  127.       FieldName = 'Ed_color'
  128.       LookupDataSet = FrmOptions.CdsGroups
  129.       LookupKeyFields = 'Gp_no'
  130.       LookupResultField = 'Gp_color'
  131.       KeyFields = 'Ed_gp_no'
  132.       Lookup = True
  133.     end
  134.     object CdsEvDatesEd_ev_name: TStringField
  135.       FieldKind = fkLookup
  136.       FieldName = 'Ed_ev_name'
  137.       LookupDataSet = CdsEvents
  138.       LookupKeyFields = 'Ev_no'
  139.       LookupResultField = 'Ev_name'
  140.       KeyFields = 'Ed_ev_no'
  141.       Size = 80
  142.       Lookup = True
  143.     end
  144.     object CdsEvDatesEdgp_show: TIntegerField
  145.       FieldKind = fkLookup
  146.       FieldName = 'Ed_show'
  147.       LookupDataSet = FrmOptions.CdsGroups
  148.       LookupKeyFields = 'Gp_no'
  149.       LookupResultField = 'Gp_show'
  150.       KeyFields = 'Ed_gp_no'
  151.       Lookup = True
  152.     end
  153.     object CdsEvDatesEd_free: TBooleanField
  154.       FieldKind = fkLookup
  155.       FieldName = 'Ed_free'
  156.       LookupDataSet = FrmOptions.CdsGroups
  157.       LookupKeyFields = 'Gp_no'
  158.       LookupResultField = 'Gp_free'
  159.       KeyFields = 'Ed_gp_no'
  160.       Lookup = True
  161.     end
  162.   end
  163. end
  164.