object Form1: TForm1 Left = 163 Top = 96 Width = 436 Height = 323 ActiveControl = LB Caption = 'Der Kalender - NICHT REGISTRIERT' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 329 Height = 257 Caption = 'Termine und Kalendereintr�ge' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object LB: TListBox Left = 10 Top = 18 Width = 311 Height = 214 Hint = 'Enter oder Doppelklick f�hrt zur Tageseingabe' Font.Color = clBlack Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] IntegralHeight = True ItemHeight = 15 ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 0 OnDblClick = LBClick end end object OKBtn: TBitBtn Left = 344 Top = 16 Width = 77 Height = 27 Hint = 'selektierten Eintrag'#13'bearbeiten|Selektierten Eintrag bearbeiten' Caption = '&Ok' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 344 Top = 48 Width = 77 Height = 27 Hint = 'Programmende|Programmende' Caption = '&Ende' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object Panel1: TPanel Left = 0 Top = 275 Width = 428 Height = 21 Align = alBottom Alignment = taLeftJustify BevelOuter = bvLowered Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 object Label1: TLabel Left = 386 Top = 1 Width = 41 Height = 19 Align = alRight Caption = 'Label1' end end object BitBtn2: TBitBtn Left = 344 Top = 206 Width = 77 Height = 27 Hint = 'Export der '#13'Eintr�ge|Ausgabe in CSV-File' Caption = 'E&xport' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object Kalender: TBitBtn Left = 343 Top = 238 Width = 77 Height = 27 Hint = 'Weiter im Kalender' Caption = '&Kalender' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = KalenderClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF 7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777 777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F 79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF 7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777 777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F 79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC CCCC777777FFFF777777CCCCCCCCCCCCCCCC77777777777777770000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object Timer1: TTimer Left = 360 Top = 96 end end