object FrmDayInfo: TFrmDayInfo Left = 466 Top = 267 Width = 233 Height = 390 BorderIcons = [biSystemMenu] BorderStyle = bsSizeToolWin Caption = 'Kalenderblatt' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = True OnClose = FormClose OnDestroy = FormDestroy OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object lbDay: TLabel Left = 12 Top = 16 Width = 203 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'lbDay' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lbDays: TLabel Left = 12 Top = 36 Width = 203 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'lbDays' end object lbWeeks: TLabel Left = 12 Top = 56 Width = 203 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'lbWeeks' end object lbJD: TLabel Left = 12 Top = 92 Width = 203 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'lbJD' end object lbSaSu: TLabel Left = 36 Top = 146 Width = 182 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'lbSaSu' end object lbMaMu: TLabel Left = 36 Top = 166 Width = 182 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'lbMaMu' end object Image1: TImage Left = 12 Top = 144 Width = 16 Height = 16 Picture.Data = {} Transparent = True end object Image2: TImage Left = 12 Top = 164 Width = 16 Height = 16 Picture.Data = {} Transparent = True end object lbJw: TLabel Left = 12 Top = 112 Width = 200 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'lbJw' end object lbEvNames: TListBox Left = 8 Top = 188 Width = 212 Height = 169 Hint = 'rechte Maustaste...' Anchors = [akLeft, akTop, akRight, akBottom] ExtendedSelect = False ItemHeight = 13 ParentShowHint = False PopupMenu = pmEdit ShowHint = True TabOrder = 0 OnDblClick = iEditClick end object pmEdit: TPopupMenu OnPopup = pmEditPopup Left = 28 Top = 216 object iNew: TMenuItem Caption = 'Neu' OnClick = iNewClick end object iEdit: TMenuItem Caption = 'Bearbeiten' Default = True OnClick = iEditClick end object iDelete: TMenuItem Caption = 'L�schen' OnClick = iDeleteClick end end end