Chip 2000 February/CHIPCD_2_2000.iso/software/testsoft/podatek/PODATEK.exe/0/RCDATA/TFORM8/TFORM8.txt

Text File | 1999-11-19 | 12KB | 379 lines

object Form8: TForm8
  Left = 115
  Top = 245
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '   Rejestr (tabela) odpis�w od  podatku'
  ClientHeight = 314
  ClientWidth = 666
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 17
    Top = 2
    Width = 576
    Height = 241
    Caption = 'Panel1'
    TabOrder = 0
    object StringGrid1: TStringGrid
      Left = 16
      Top = 52
      Width = 541
      Height = 169
      Color = clBtnFace
      ColCount = 3
      DefaultColWidth = 115
      FixedCols = 0
      RowCount = 10
      FixedRows = 0
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      GridLineWidth = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goRowMoving, goEditing]
      ParentFont = False
      TabOrder = 0
      OnSelectCell = StringGrid1SelectCell
    end
    object Panel2: TPanel
      Left = 16
      Top = 8
      Width = 129
      Height = 41
      BevelOuter = bvNone
      BevelWidth = 2
      Caption = 'Opis'
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object Panel3: TPanel
      Left = 144
      Top = 8
      Width = 73
      Height = 41
      BevelOuter = bvNone
      BevelWidth = 2
      Caption = 'Kwota'
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 216
      Top = 8
      Width = 129
      Height = 41
      BevelOuter = bvNone
      BevelWidth = 2
      Caption = 'Uwagi'
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
  end
  object StringGrid2: TStringGrid
    Left = 404
    Top = 176
    Width = 37
    Height = 42
    ColCount = 3
    FixedCols = 0
    RowCount = 1
    FixedRows = 0
    TabOrder = 1
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 18
    Top = 244
    Width = 571
    Height = 63
    Caption = 'RAZEM'
    TabOrder = 2
    object Panel5: TPanel
      Left = 65
      Top = 16
      Width = 448
      Height = 43
      BevelWidth = 2
      Caption = '...'
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      Locked = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Panel5Click
    end
  end
  object Panel6: TPanel
    Left = 600
    Top = 2
    Width = 51
    Height = 241
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BevelWidth = 2
    TabOrder = 3
    object SpeedButton1: TSpeedButton
      Left = 14
      Top = 151
      Width = 25
      Height = 25
      Hint = 'Zapisz'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F73300999999999003337777777777777330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Zapisztabel1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 14
      Top = 126
      Width = 25
      Height = 25
      Hint = 'Otw�rz'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        55555555555555555555555555555555555555555555555555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Otworztabelpodatkow1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 14
      Top = 177
      Width = 25
      Height = 25
      Hint = 'Nowa pozycja'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      Layout = blGlyphBottom
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Nowatabelapodatkw1Click
    end
    object SpeedButton5: TSpeedButton
      Left = 8
      Top = 56
      Width = 37
      Height = 39
      Hint = 'Wykonaj obliczenia'
      Glyph.Data = {
        66020000424D660200000000000076000000280000001F0000001F0000000100
        040000000000F0010000CE0E0000D80E00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222000
        000000000000003222202222222220FFFFFFF3FFFFFFF03222202222222220FF
        FFFFF3FFFFFFF03222202222222220FFFFFFF3FFFFFFF0322220222222222033
        330333333333303222202222222220FFFFF003FFFFFFF03222202222222220FF
        FFF0B008FFFFF03222202222222220FFFFFF03308FFFF0322220222222222033
        33330BB30333303222203333333330FFFFFFF0FB308FF0322220228888888388
        888FF30FB308F03222202000000000000088F3F0FB3080022220022222222222
        220333330FB3003022200E00200200200208F3FFF0F0803202200EE02E02E02E
        0208F3FFFF0FB30220200E22222222222208F3FFFFF0FB3020200E0020020020
        0203333333330FB300200EE02E02E02E0208F3FFFFFFF0FB30200E2222222222
        2208F3FFFFFFF00F00200E00200200200208F3FFFFFFF0300F000EE02E02E02E
        020333333333303220000E22222222222208F3FFFFFFF03222200E0020020020
        0208F3FFFFFFF03222200EE02E02E02E0208F3FFFFFFF03222200E2222222222
        220000000000002222200E2222222222220322222222222222200E08FFFFFFFF
        020322222222222222200E0888888888020322222222222222200E0000000000
        020222222222222222200EEEEEEEEEEEE2022222222222222220200000000000
        00222222222222222220}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 14
      Top = 14
      Width = 25
      Height = 29
      Hint = 'Kalkulator systemu Windows'
      Glyph.Data = {
        8A010000424D8A01000000000000760000002800000012000000170000000100
        0400000000001401000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFF7777777777777FF000000FF000000000000077F000000F066
        6666666666607F000000F0E00600600600607F000000F0EE06E06E06E0607F00
        0000F0E66666666666607F000000F0E00600600600607F000000F0EE06E06E06
        E0607F000000F0E66666666666607F000000F0E00600600600607F000000F0EE
        06E06E06E0607F000000F0E66666666666607F000000F0E00600600600607F00
        0000F0EE06E06E06E0607F000000F0E66666666666607F000000F0E666666666
        66607F000000F0E07FFFFFFFF0607F000000F0E07777777770607F000000F0E0
        000000000060FF000000F0EEEEEEEEEEEE60FF000000FF0000000000000FFF00
        0000FFFFFFFFFFFFFFFFFF000000}
      Layout = blGlyphBottom
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton6Click
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Odpis od podatku (*.OPD)|*.OPD|Wszystkie pliki (*.*)|*.*'
    Left = 410
    Top = 64
  end
  object MainMenu1: TMainMenu
    Left = 410
    Top = 24
    object Tabela1: TMenuItem
      Caption = 'Rejestr'
      ShortCut = 0
      object Nowatabelapodatkw1: TMenuItem
        Caption = 'Nowy rejestr'
        ShortCut = 0
        OnClick = Nowatabelapodatkw1Click
      end
      object Otworztabelpodatkow1: TMenuItem
        Caption = 'Otw�rz rejestr'
        ShortCut = 0
        OnClick = Otworztabelpodatkow1Click
      end
      object Zapisztabel1: TMenuItem
        Caption = 'Zapisz rejestr'
        Enabled = False
        ShortCut = 0
        OnClick = Zapisztabel1Click
      end
      object Zapisztabeljako1: TMenuItem
        Caption = 'Zapisz rejestr jako ...'
        Enabled = False
        ShortCut = 0
        OnClick = Zapisztabeljako1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Zakoczpracztabel1: TMenuItem
        Caption = 'Zako�cz prac� z rejestrem'
        ShortCut = 0
        OnClick = Zakoczpracztabel1Click
      end
    end
    object Edycja1: TMenuItem
      Caption = 'Edycja'
      Enabled = False
      ShortCut = 0
      object Kopiuj1: TMenuItem
        Caption = 'Kopiuj wiersz'
        ShortCut = 0
        OnClick = Kopiuj1Click
      end
      object Usun1: TMenuItem
        Caption = 'Usu� wiersz'
        ShortCut = 0
        OnClick = Usun1Click
      end
      object Wstaw1: TMenuItem
        Caption = 'Wstaw wiersz'
        ShortCut = 0
        OnClick = Wstaw1Click
      end
      object WstawNaKoncu1: TMenuItem
        Caption = 'Wstaw wiersz na ko�cu'
        ShortCut = 0
        OnClick = WstawNaKoncu1Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Nowy1: TMenuItem
        Caption = 'Nowy wiersz'
        ShortCut = 0
        OnClick = Nowy1Click
      end
      object NowyNaKoncu1: TMenuItem
        Caption = 'Nowy wiersz na ko�cu'
        ShortCut = 0
        OnClick = NowyNaKoncu1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CzyscTabele1: TMenuItem
        Caption = 'Czy�� tabel�'
        ShortCut = 0
        OnClick = CzyscTabele1Click
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Panel5Click
    Left = 410
    Top = 144
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Filter = 'Odpis od podatku [*.OPD]|*.OPD|Wszystkie pliki [*.*]|*.*'
    Left = 410
    Top = 104
  end
end