object Form7: TForm7 Left = 85 Top = 223 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' Rejestr (tabela) dop�at do podatku' ClientHeight = 315 ClientWidth = 673 Font.Color = clBlack Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] FormStyle = fsStayOnTop Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 17 Top = 2 Width = 584 Height = 241 Caption = 'Panel1' TabOrder = 0 object StringGrid1: TStringGrid Left = 18 Top = 60 Width = 538 Height = 169 Color = clBtnFace ColCount = 3 DefaultColWidth = 115 FixedCols = 0 RowCount = 10 FixedRows = 0 GridLineWidth = 2 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goRowMoving, goColMoving, goEditing, goTabs] TabOrder = 0 OnSelectCell = StringGrid1SelectCell end object Panel2: TPanel Left = 17 Top = 7 Width = 124 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 = 143 Top = 7 Width = 72 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 = 217 Top = 7 Width = 118 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 = 400 Top = 136 Width = 45 Height = 42 ColCount = 3 FixedCols = 0 RowCount = 2 FixedRows = 0 Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Visible = False end object GroupBox1: TGroupBox Left = 18 Top = 244 Width = 583 Height = 63 Caption = 'RAZEM' TabOrder = 2 object Panel5: TPanel Left = 63 Top = 14 Width = 478 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 = 608 Top = 16 Width = 57 Height = 241 BevelInner = bvRaised BevelOuter = bvLowered BevelWidth = 2 TabOrder = 3 object SpeedButton1: TSpeedButton Left = 14 Top = 155 Width = 25 Height = 25 Hint = 'Zapisz' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF 0003737FFFFFFFFF7F73300999999999003337777777777777330000} NumGlyphs = 2 OnClick = Zapisztabel1Click end object SpeedButton2: TSpeedButton Left = 14 Top = 130 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 = 181 Width = 25 Height = 25 Hint = 'Wstaw pozycj�' 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 = 10 Top = 52 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 = 'Dop�ata do podatku [*.DPD]|*.DPD|Wszystkie pliki (*.*)|*.*' Left = 400 Top = 32 end object MainMenu1: TMainMenu Left = 400 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 = 400 Top = 104 end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Filter = 'Dop�ata do podatku [*.DPD]|*.DPD|Wszystkie pliki [*.*]|*.*' Left = 401 Top = 66 end end