object Form1: TForm1 Left = -41 Top = 36 Width = 803 Height = 573 BorderIcons = [biSystemMenu, biMinimize] Caption = ' Podatek od dochod�w osobistych' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} Menu = MainMenu1 OldCreateOrder = True WindowState = wsMaximized OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 795 Height = 527 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered BevelWidth = 3 Color = clTeal TabOrder = 0 object Panel2: TPanel Left = 6 Top = 6 Width = 783 Height = 63 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered BevelWidth = 2 TabOrder = 0 object Panel7: TPanel Left = 696 Top = 6 Width = 81 Height = 51 BevelInner = bvLowered BevelWidth = 2 TabOrder = 2 object SpeedButton6: TSpeedButton Left = 8 Top = 10 Width = 25 Height = 29 Hint = 'Kalkulator systemu Windows' Glyph.Data = { 8A010000424D8A01000000000000760000002800000012000000170000000100 0400000000001401000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFF000000FFF7777777777777FF000000FF000000000000077F000000F066 6666666666607F000000F0E00600600600607F000000F0EE06E06E06E0607F00 0000F0E66666666666607F000000F0E00600600600607F000000F0EE06E06E06 E0607F000000F0E66666666666607F000000F0E00600600600607F000000F0EE 06E06E06E0607F000000F0E66666666666607F000000F0E00600600600607F00 0000F0EE06E06E06E0607F000000F0E66666666666607F000000F0E666666666 66607F000000F0E07FFFFFFFF0607F000000F0E07777777770607F000000F0E0 000000000060FF000000F0EEEEEEEEEEEE60FF000000FF0000000000000FFF00 0000FFFFFFFFFFFFFFFFFF000000} Layout = blGlyphBottom ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object SpeedButton5: TSpeedButton Left = 36 Top = 6 Width = 37 Height = 39 Hint = 'Wykonaj obliczenia' Glyph.Data = { 66020000424D660200000000000076000000280000001F0000001F0000000100 040000000000F0010000CE0E0000D80E00001000000000000000000000000000 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 end object Panel3: TPanel Left = 696 Top = 4 Width = 0 Height = 51 TabOrder = 0 end object GroupBox2: TGroupBox Left = 10 Top = 6 Width = 223 Height = 51 Caption = 'Dane podstawowe' Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 1 object Panel6: TPanel Left = 8 Top = 18 Width = 27 Height = 29 BevelInner = bvLowered BevelOuter = bvLowered Caption = 'Panel6' TabOrder = 2 object Image4: TImage Left = 2 Top = 2 Width = 27 Height = 29 Picture.Data = {} end end object Button5: TButton Left = 48 Top = 18 Width = 75 Height = 25 Hint = 'Obs�uga tabeli prog�w podatkowych' Caption = 'Tabela' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = Button5Click end object Button6: TButton Left = 132 Top = 18 Width = 75 Height = 25 Hint = 'Obs�uga rejestru (spisu) przychod�w podatnika' Caption = 'Rejestr' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = Button6Click end end end object GroupBox1: TGroupBox Left = 246 Top = 12 Width = 223 Height = 51 Caption = 'Odpisy' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Panel4: TPanel Left = 8 Top = 18 Width = 27 Height = 29 BevelInner = bvLowered BevelOuter = bvLowered Caption = 'Panel6' TabOrder = 2 object Image2: TImage Left = 2 Top = 2 Width = 27 Height = 29 Picture.Data = {} end end object Button1: TButton Left = 48 Top = 18 Width = 75 Height = 25 Hint = 'Obs�uga rejestru (spisu) odpis�w od podstawy opodatkowania' Caption = 'Podstawa' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 132 Top = 18 Width = 75 Height = 25 Hint = 'Obs�uga rejestru (spisu) odpis�w od wyliczonego podatku' Caption = 'Podatek' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = Button2Click end end object GroupBox3: TGroupBox Left = 476 Top = 12 Width = 223 Height = 51 Caption = 'Dop�aty' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 2 object Panel5: TPanel Left = 8 Top = 18 Width = 27 Height = 29 BevelInner = bvLowered BevelOuter = bvLowered Caption = 'Panel6' TabOrder = 2 object Image3: TImage Left = 2 Top = 2 Width = 27 Height = 29 Picture.Data = {} end end object Button3: TButton Left = 48 Top = 18 Width = 75 Height = 25 Hint = 'Obs�uga rejestru (spisu) dop�at do podstawy opodatkowania' Caption = 'Podstawa' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = Button3Click end object Button4: TButton Left = 132 Top = 18 Width = 75 Height = 25 Hint = 'Obs�uga rejestru (spisu) dop�at do wyliczonego podatku' Caption = 'Podatek' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = Button4Click end end object Panel10: TPanel Left = 48 Top = 112 Width = 705 Height = 353 Color = clLime Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 object Label5: TLabel Left = 1 Top = 17 Width = 703 Height = 44 Alignment = taCenter AutoSize = False Caption = 'Wersja demonstracyjna' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -32 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 1 Top = 153 Width = 703 Height = 33 Alignment = taCenter AutoSize = False Caption = 'email: techsoft@pronetix.com.pl' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 1 Top = 185 Width = 703 Height = 33 Alignment = taCenter AutoSize = False Caption = 'strona www: http://www.techsoft.pronetix.com.pl' Color = clLime Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label10: TLabel Left = 1 Top = 89 Width = 703 Height = 22 Alignment = taCenter AutoSize = False Caption = 'Wersja demonstracyjna zawiera ograniczenia liczby pozycji tabel ' + '(do 2).' end object Label11: TLabel Left = 1 Top = 129 Width = 703 Height = 22 Alignment = taCenter AutoSize = False Caption = 'Autor: Dariusz Bober, ul. Karola Miarki 19, 43-200 Pszczyna, tel' + '. (032) 210-36-96 ' end object Label1: TLabel Left = 1 Top = 65 Width = 703 Height = 22 Alignment = taCenter AutoSize = False Caption = 'Ograniczenia dotycz� tabel odpis�w i dop�at. Tabela prog�w jest ' + 'kompletna.' end object Image1: TImage Left = 24 Top = 232 Width = 200 Height = 100 Picture.Data = {} end object Panel11: TPanel Left = 240 Top = 292 Width = 433 Height = 41 Caption = 'Kliknij tutaj aby uruchomi� wersj� demonstracyjn�' Color = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Panel11Click end object Panel12: TPanel Left = 240 Top = 232 Width = 433 Height = 41 Caption = 'Jak zam�wi� pe�n� wersj� programu?' Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Panel12Click end end end object MainMenu1: TMainMenu Left = 12 Top = 110 object Pliki1: TMenuItem Caption = 'Pliki' object Tabelapodatkw1: TMenuItem Caption = 'Tabela podatk�w' OnClick = Tabelapodatkw1Click end object RejestrPrzychodow1: TMenuItem Caption = 'Rejestr przychod�w' OnClick = RejestrPrzychodow1Click end object N1: TMenuItem Caption = '-' end object Pomniejszeniepodstawy1: TMenuItem Caption = 'Odpisy od podstawy' OnClick = Pomniejszeniepodstawy1Click end object Pomniejszeniepodatku1: TMenuItem Caption = 'Odpisy od podatku' end object N2: TMenuItem Caption = '-' end object Powikszeniepodstawy1: TMenuItem Caption = 'Dop�aty do podstawy' end object Powikszeniepodatku1: TMenuItem Caption = 'Dop�aty do podatku' OnClick = Powikszeniepodatku1Click end object N3: TMenuItem Caption = '-' end object Koniec1: TMenuItem Caption = 'Koniec pracy' OnClick = Koniec1Click end end object Obliczenia1: TMenuItem Caption = 'Obliczenia' Enabled = False OnClick = Obliczenia1Click end object O1: TMenuItem Caption = 'O Programie ...' object OProgramie1: TMenuItem Caption = 'O Programie ...' OnClick = OProgramie1Click end object N4: TMenuItem Caption = '-' end object Pomoc1: TMenuItem Caption = 'Pomoc' OnClick = Pomoc1Click end end end object Timer1: TTimer OnTimer = Timer1Timer Left = 12 Top = 76 end end