object Form3: TForm3 Left = 33 Top = 207 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' Rejestr (tabela) przychod�w' ClientHeight = 401 ClientWidth = 774 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} Menu = MainMenu1 OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 22 Width = 777 Height = 291 BevelWidth = 2 TabOrder = 0 object StringGrid1: TStringGrid Left = 10 Top = 72 Width = 757 Height = 197 Color = clBtnFace ColCount = 8 DefaultColWidth = 78 FixedCols = 0 RowCount = 3 FixedRows = 0 Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goRowMoving, goEditing] ParentFont = False TabOrder = 0 OnSelectCell = StringGrid1SelectCell end object Panel2: TPanel Left = 10 Top = 8 Width = 51 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label1: TLabel Left = 8 Top = 8 Width = 30 Height = 16 Caption = 'Data' end object Label2: TLabel Left = 7 Top = 24 Width = 68 Height = 16 Caption = 'przychodu' end end object Panel3: TPanel Left = 64 Top = 8 Width = 65 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 2 object Label3: TLabel Left = 4 Top = 8 Width = 46 Height = 16 Caption = 'Rodzaj' end object Label4: TLabel Left = 4 Top = 24 Width = 68 Height = 16 Caption = 'przychodu' end end object Panel4: TPanel Left = 128 Top = 8 Width = 73 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 3 object Label5: TLabel Left = 4 Top = 16 Width = 61 Height = 16 Caption = 'Przych�d' end end object Panel5: TPanel Left = 202 Top = 8 Width = 65 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 4 object Label6: TLabel Left = 4 Top = 8 Width = 37 Height = 16 Caption = 'Koszt' end object Label7: TLabel Left = 4 Top = 24 Width = 67 Height = 16 Caption = 'uzyskania' end end object Panel6: TPanel Left = 264 Top = 8 Width = 65 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 5 object Label8: TLabel Left = 8 Top = 16 Width = 49 Height = 16 Caption = 'Doch�d' end end object Panel7: TPanel Left = 328 Top = 8 Width = 65 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 6 object Label9: TLabel Left = 6 Top = 8 Width = 55 Height = 16 Caption = 'Zaliczka' end object Label10: TLabel Left = 4 Top = 28 Width = 70 Height = 16 Caption = 'Podatkowa' end end object Panel8: TPanel Left = 392 Top = 8 Width = 65 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 7 object Label11: TLabel Left = 6 Top = 18 Width = 117 Height = 16 Caption = '�rod�o przychodu' end end object Panel9: TPanel Left = 456 Top = 8 Width = 65 Height = 49 BevelOuter = bvNone BevelWidth = 2 Color = clTeal Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 8 object Label12: TLabel Left = 8 Top = 18 Width = 52 Height = 16 AutoSize = False Caption = 'Uwagi' end end object StringGrid2: TStringGrid Left = 724 Top = 224 Width = 37 Height = 33 ColCount = 8 FixedCols = 0 RowCount = 1 FixedRows = 0 TabOrder = 9 Visible = False end end object GroupBox1: TGroupBox Left = 2 Top = 316 Width = 775 Height = 85 Caption = 'RAZEM' TabOrder = 1 object Label13: TLabel Left = 60 Top = 20 Width = 77 Height = 16 Caption = 'PRZYCH�D' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object Label14: TLabel Left = 226 Top = 18 Width = 126 Height = 16 Caption = 'KOSZT UZYSKANIA' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Left = 450 Top = 18 Width = 59 Height = 16 Caption = 'DOCH�D' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Left = 596 Top = 18 Width = 154 Height = 16 Caption = 'ZALICZKA PODATKOWA' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object PanelA: TPanel Left = 7 Top = 39 Width = 185 Height = 41 BevelWidth = 2 Caption = '...' Font.Color = clRed Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object PanelB: TPanel Left = 199 Top = 39 Width = 185 Height = 41 BevelWidth = 2 Caption = '...' Font.Color = clRed Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object PanelC: TPanel Left = 391 Top = 39 Width = 185 Height = 41 BevelWidth = 2 Caption = '...' Font.Color = clRed Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object PanelD: TPanel Left = 583 Top = 39 Width = 185 Height = 41 BevelWidth = 2 Caption = '...' Font.Color = clRed Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end end object Panel10: TPanel Left = 4 Top = -2 Width = 767 Height = 7 BevelWidth = 3 TabOrder = 2 end object Panel11: TPanel Left = 548 Top = -4 Width = 133 Height = 43 BevelInner = bvRaised BevelOuter = bvLowered BevelWidth = 2 TabOrder = 3 object SpeedButton1: TSpeedButton Left = 41 Top = 9 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 = Zapiszrejestr1Click end object SpeedButton2: TSpeedButton Left = 16 Top = 9 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 = Otworzrejestr1Click end object SpeedButton3: TSpeedButton Left = 67 Top = 9 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 = Nowy1Click end end object Panel12: TPanel Left = 648 Top = -8 Width = 105 Height = 51 BevelWidth = 2 TabOrder = 4 object SpeedButton6: TSpeedButton Left = 18 Top = 12 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 object SpeedButton5: TSpeedButton Left = 46 Top = 6 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 Panel13: TPanel Left = -4 Top = -4 Width = 9 Height = 41 BevelOuter = bvNone TabOrder = 0 end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'Rejestr przychod�w (*.PRZ)|*.PRZ|Wszystkie pliki (*.*)|*.*' Left = 733 Top = 139 end object MainMenu1: TMainMenu Left = 734 Top = 208 object Tabela1: TMenuItem Caption = 'Rejestr' ShortCut = 0 object Nowyrejestrprzychodow1: TMenuItem Caption = 'Nowy rejestr przychod�w' ShortCut = 0 end object Otworzrejestr1: TMenuItem Caption = 'Otw�rz rejestr' ShortCut = 0 OnClick = Otworzrejestr1Click end object Zapiszrejestr1: TMenuItem Caption = 'Zapisz rejestr' Enabled = False ShortCut = 0 OnClick = Zapiszrejestr1Click end object Zapiszrejestrjako1: TMenuItem Caption = 'Zapisz rejestr jako ...' Enabled = False ShortCut = 0 OnClick = Zapiszrejestrjako1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Zakoczpraczrejestr1: TMenuItem Caption = 'Zako�cz prac� z rejestrem' ShortCut = 0 OnClick = Zakoczpraczrejestr1Click end end object Edycja1: TMenuItem Caption = 'Edycja' Enabled = False ShortCut = 0 object Usun1: TMenuItem Caption = 'Usu� wiersz' ShortCut = 0 OnClick = Usun1Click end object Nowy1: TMenuItem Caption = 'Nowy wiersz ' ShortCut = 0 OnClick = Nowy1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object CzyscRejestr1: TMenuItem Caption = 'Czy�� rejestr przychod�w' ShortCut = 0 end end end object Timer1: TTimer OnTimer = Timer1Timer Left = 733 Top = 68 end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Filter = 'Rejestr przychod�w [*.PRZ]|*.PRZ|Wszystkie pliki [*.*]|*.*' Left = 733 Top = 174 end end