WDR Computer Club Digital 1996 October/CLUB10_96.BIN/share95/95kalend/kalender.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1996-06-23 | 33KB | 943 lines

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 = {<image000.ico>}
  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