object Form1: TForm1 Left = 1 Top = 2 ActiveControl = TNB BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Der Kalender V2.6 - NICHT REGISTRIERT' ClientHeight = 453 ClientWidth = 632 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormShow OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object SpeedButton5: TSpeedButton Left = 8 Top = 112 Width = 113 Height = 105 AllowAllUp = True Caption = 'Februar' Layout = blGlyphTop end object SpeedButton6: TSpeedButton Left = 120 Top = 112 Width = 113 Height = 105 AllowAllUp = True Caption = 'Februar' Layout = blGlyphTop end object SpeedButton7: TSpeedButton Left = 16 Top = 120 Width = 113 Height = 105 AllowAllUp = True Caption = 'Februar' Layout = blGlyphTop end object SpeedButton8: TSpeedButton Left = 128 Top = 120 Width = 113 Height = 105 AllowAllUp = True Caption = 'Februar' Layout = blGlyphTop end object TNB: TTabbedNotebook Left = 0 Top = 0 Width = 632 Height = 453 HelpContext = 1 Align = alClient Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] TabsPerRow = 4 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 OnChange = TNBChange object TTabPage Left = 4 Top = 26 Caption = 'Woche' object ScrollBox1: TScrollBox Left = 0 Top = 69 Width = 624 Height = 334 Align = alClient TabOrder = 0 object dg: TDrawGrid Left = 0 Top = 0 Width = 620 Height = 330 Cursor = crArrow Hint = 'linke Maustaste in den Tag, rechte Maustaste f�r mehrere Tage' Align = alClient ColCount = 8 DefaultColWidth = 77 RowCount = 7 Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] ParentFont = False ParentShowHint = False ScrollBars = ssNone ShowHint = False TabOrder = 0 OnDrawCell = dgDrawCell OnKeyPress = dgKeyPress OnMouseUp = dgMouseUp OnSelectCell = dgSelectCell RowHeights = ( 24 24 25 24 24 24 24) end end object Panel1: TPanel Left = 0 Top = 0 Width = 624 Height = 39 Align = alTop Caption = ' ' TabOrder = 1 object Label2: TLabel Left = 8 Top = 12 Width = 32 Height = 15 Caption = 'JAHR' end object Bevel1: TBevel Left = 5 Top = 3 Width = 105 Height = 32 end object MaskEdit1: TMaskEdit Left = 46 Top = 8 Width = 54 Height = 23 Hint = 'Jahreseingabe ' EditMask = 'aaaa;0;_' MaxLength = 4 ParentShowHint = False ShowHint = True TabOrder = 0 OnKeyDown = MaskEdit1KeyDown end object sb: TScrollBar Left = 127 Top = 10 Width = 115 Height = 16 Hint = 'Den Monat w�hlen,'#13'per Maus oder den'#13'Cursertasten ....|Den Monat ' + 'w�hlen' Max = 13 ParentShowHint = False Position = 1 ShowHint = True TabOrder = 1 OnChange = sbChange end object Druck: TBitBtn Left = 249 Top = 4 Width = 85 Height = 31 Hint = 'Den Druckbereich w�hlen' Caption = '&Drucken' TabOrder = 2 OnClick = DruckClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object Ende: TBitBtn Left = 343 Top = 4 Width = 82 Height = 31 Hint = 'Das Programm beenden' Cancel = True Caption = '&Ende' TabOrder = 3 OnClick = EndeClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 end object Optionen: TBitBtn Left = 436 Top = 4 Width = 82 Height = 31 Hint = 'Die Kalendereintr�ge verwalten' Caption = '&Optionen' TabOrder = 4 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 530 Top = 4 Width = 82 Height = 31 Hint = '�ber, Hilfe ...' Caption = '&About' TabOrder = 5 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000 00007777777777777777933393303933337073F37F37F73F3377393393303393 379037FF7F37F37FF777379793303379793037777337F3777737339933303339 93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399 999037777337F377777793993330333393307377FF37F3337FF7333993303333 993033377F37F33377F7333993303333993033377337F3337737333333303333 33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303 03037F7F7F7F7F7F7F7F000000000000000077777777777777770000} NumGlyphs = 2 end end object Panel2: TPanel Left = 0 Top = 39 Width = 624 Height = 30 Align = alTop Caption = 'Panel2' Color = clWhite TabOrder = 2 object Monat: TLabel Left = 1 Top = 1 Width = 622 Height = 28 Align = alClient Alignment = taCenter Caption = ' ' Font.Color = clBlack Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end end object status1: TPanel Left = 0 Top = 403 Width = 624 Height = 20 Align = alBottom Alignment = taLeftJustify BevelInner = bvLowered Caption = ' ' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 3 object Label1: TLabel Left = 587 Top = 2 Width = 35 Height = 16 Align = alRight Caption = 'Label1' end end end object TTabPage Left = 4 Top = 26 Caption = 'Monat' object ScrollBox2: TScrollBox Left = 0 Top = 39 Width = 624 Height = 384 Align = alClient Color = clWhite ParentColor = False TabOrder = 0 object DG2: TDrawGrid Left = 0 Top = 0 Width = 620 Height = 380 Hint = 'Per rechter Maustaste zu den Kalendereintr�gen' Align = alClient ColCount = 3 FixedCols = 0 RowCount = 4 FixedRows = 0 ParentShowHint = False ScrollBars = ssVertical ShowHint = True TabOrder = 0 OnDrawCell = DG2DrawCell OnMouseUp = dgMouseUp end end object Panel4: TPanel Left = 0 Top = 0 Width = 624 Height = 39 Align = alTop Caption = ' ' TabOrder = 1 object Label3: TLabel Left = 8 Top = 12 Width = 32 Height = 15 Caption = 'JAHR' end object Bevel2: TBevel Left = 5 Top = 3 Width = 105 Height = 32 end object MaskEdit2: TMaskEdit Left = 46 Top = 8 Width = 54 Height = 23 Hint = 'Jahreseingabe ' EditMask = 'aaaa;1;_' MaxLength = 4 ParentShowHint = False ShowHint = True TabOrder = 0 Text = ' ' OnKeyDown = MaskEdit2KeyDown end object sb2: TScrollBar Left = 127 Top = 10 Width = 115 Height = 16 Hint = 'Das Jahr w�hlen' Max = 2200 Min = 1800 ParentShowHint = False Position = 1996 ShowHint = True TabOrder = 1 OnChange = sb2Change end object Modruck: TBitBtn Left = 249 Top = 4 Width = 85 Height = 31 Caption = '&Drucken' TabOrder = 2 OnClick = ModruckClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object BitBtn4: TBitBtn Left = 343 Top = 4 Width = 82 Height = 31 Cancel = True Caption = '&Ende' TabOrder = 3 OnClick = BitBtn4Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 end object BitBtn5: TBitBtn Left = 436 Top = 4 Width = 82 Height = 31 Caption = '&Optionen' TabOrder = 4 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object BitBtn6: TBitBtn Left = 530 Top = 4 Width = 82 Height = 31 Caption = '&About' TabOrder = 5 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000 00007777777777777777933393303933337073F37F37F73F3377393393303393 379037FF7F37F37FF777379793303379793037777337F3777737339933303339 93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399 999037777337F377777793993330333393307377FF37F3337FF7333993303333 993033377F37F33377F7333993303333993033377337F3337737333333303333 33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303 03037F7F7F7F7F7F7F7F000000000000000077777777777777770000} NumGlyphs = 2 end end end object TTabPage Left = 4 Top = 26 Caption = 'Bilder' object Panel5: TPanel Left = 0 Top = 0 Width = 624 Height = 39 Align = alTop Caption = ' ' TabOrder = 0 object Label4: TLabel Left = 8 Top = 12 Width = 32 Height = 15 Caption = 'JAHR' end object Bevel3: TBevel Left = 5 Top = 3 Width = 105 Height = 32 end object MaskEdit3: TMaskEdit Left = 46 Top = 8 Width = 54 Height = 23 Hint = 'Jahreseingabe ' EditMask = 'aaaa;1;_' MaxLength = 4 ParentShowHint = False ShowHint = True TabOrder = 0 Text = ' ' OnKeyDown = MaskEdit3KeyDown end object sb3: TScrollBar Left = 127 Top = 10 Width = 115 Height = 16 Hint = 'Den Monat w�hlen' Max = 13 ParentShowHint = False Position = 1 ShowHint = True TabOrder = 1 OnChange = sb3Change end object druckbild: TBitBtn Left = 249 Top = 4 Width = 85 Height = 31 Hint = 'Den Druckzeitraum w�hlen' Caption = '&Drucken' TabOrder = 2 OnClick = druckbildClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object BitBtn7: TBitBtn Left = 343 Top = 4 Width = 82 Height = 31 Hint = 'Das Programm beenden' Cancel = True Caption = '&Ende' TabOrder = 3 OnClick = BitBtn4Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 end object BitBtn8: TBitBtn Left = 436 Top = 4 Width = 83 Height = 32 Hint = 'Die Kalendereinstellungen bearbeiten' Caption = '&Optionen' TabOrder = 4 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object BitBtn9: TBitBtn Left = 530 Top = 4 Width = 82 Height = 32 Hint = '�ber, Hilfe ...' Caption = '&About' TabOrder = 5 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000 00007777777777777777933393303933337073F37F37F73F3377393393303393 379037FF7F37F37FF777379793303379793037777337F3777737339933303339 93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399 999037777337F377777793993330333393307377FF37F3337FF7333993303333 993033377F37F33377F7333993303333993033377337F3337737333333303333 33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303 03037F7F7F7F7F7F7F7F000000000000000077777777777777770000} NumGlyphs = 2 end end object ScrollBox3: TScrollBox Left = 0 Top = 39 Width = 624 Height = 384 Align = alClient Color = clHighlightText ParentColor = False TabOrder = 1 object Panel6: TPanel Left = 0 Top = 0 Width = 321 Height = 360 Align = alLeft Caption = 'Panel6' TabOrder = 0 object DG3: TDrawGrid Left = 1 Top = 1 Width = 319 Height = 358 Cursor = crArrow Hint = 'Doppelklick links -> Abbildungsmodus, rechte Maustaste -> Bilde' + 'rwahl ' Align = alClient ColCount = 3 FixedCols = 0 RowCount = 4 FixedRows = 0 ParentShowHint = False ShowHint = True TabOrder = 0 OnDblClick = DG3DblClick OnDrawCell = DG3DrawCell OnMouseUp = DG3MouseUp end end object Statusline: TPanel Left = 0 Top = 360 Width = 620 Height = 20 Align = alBottom Alignment = taLeftJustify BevelInner = bvLowered Caption = ' ' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 1 object Label5: TLabel Left = 583 Top = 2 Width = 35 Height = 16 Align = alRight Caption = 'Label5' end end object Panel8: TPanel Left = 321 Top = 0 Width = 299 Height = 360 Align = alClient Caption = ' ' TabOrder = 2 object im: TImage Left = 1 Top = 1 Width = 297 Height = 231 Align = alClient end object dg4: TDrawGrid Left = 1 Top = 232 Width = 297 Height = 127 Align = alBottom ColCount = 8 RowCount = 7 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] ParentShowHint = False ScrollBars = ssNone ShowHint = False TabOrder = 0 OnDrawCell = dg4DrawCell OnKeyPress = dg4KeyPress OnMouseUp = dgMouseUp OnSelectCell = dgSelectCell end end end end object TTabPage Left = 4 Top = 26 Caption = 'Jahr' object ScrollBox4: TScrollBox Left = 0 Top = 41 Width = 624 Height = 382 Align = alClient TabOrder = 0 object dg5: TStringGrid Left = 0 Top = 0 Width = 620 Height = 278 Align = alTop ColCount = 38 DefaultColWidth = 14 DefaultRowHeight = 20 RowCount = 13 Font.Color = clBlack Font.Height = -11 Font.Name = 'Times New Roman' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] ParentFont = False ScrollBars = ssNone TabOrder = 0 OnDrawCell = dg5DrawCell OnKeyPress = dg5KeyPress OnMouseUp = dg5MouseUp OnSelectCell = dg5SelectCell end object lb: TListBox Left = 58 Top = 288 Width = 527 Height = 84 Font.Color = clBlack Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] IntegralHeight = True ItemHeight = 16 ParentFont = False TabOrder = 1 end end object Panel3: TPanel Left = 0 Top = 0 Width = 624 Height = 41 Align = alTop Caption = ' ' TabOrder = 1 object Label6: TLabel Left = 8 Top = 12 Width = 32 Height = 15 Caption = 'JAHR' end object Bevel4: TBevel Left = 5 Top = 3 Width = 105 Height = 32 end object MaskEdit4: TMaskEdit Left = 46 Top = 8 Width = 54 Height = 23 Hint = 'Jahreseingabe ' Enabled = False EditMask = 'aaaa;1;_' MaxLength = 4 ParentShowHint = False ShowHint = True TabOrder = 0 Text = ' ' OnKeyDown = MaskEdit4KeyDown end object sb4: TScrollBar Left = 127 Top = 10 Width = 115 Height = 16 Hint = 'Das Jahr w�hlen' Max = 2200 Min = 1800 ParentShowHint = False Position = 1996 ShowHint = True TabOrder = 1 OnChange = sb2Change end object Druckjahr: TBitBtn Left = 249 Top = 4 Width = 85 Height = 31 Caption = '&Drucken' TabOrder = 2 OnClick = DruckjahrClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 343 Top = 4 Width = 82 Height = 31 Cancel = True Caption = '&Ende' TabOrder = 3 OnClick = BitBtn4Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 end object BitBtn10: TBitBtn Left = 436 Top = 4 Width = 82 Height = 31 Caption = '&Optionen' TabOrder = 4 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object BitBtn11: TBitBtn Left = 530 Top = 4 Width = 82 Height = 31 Caption = '&About' TabOrder = 5 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000 00007777777777777777933393303933337073F37F37F73F3377393393303393 379037FF7F37F37FF777379793303379793037777337F3777737339933303339 93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399 999037777337F377777793993330333393307377FF37F3337FF7333993303333 993033377F37F33377F7333993303333993033377337F3337737333333303333 33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303 03037F7F7F7F7F7F7F7F000000000000000077777777777777770000} NumGlyphs = 2 end end end end object Timer1: TTimer OnTimer = Timer1Timer Left = 429 Top = 65530 end end