home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 February
/
CHIPCD_2_2000.iso
/
software
/
testsoft
/
podatek
/
PODATEK.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1999-11-19
|
14KB
|
489 lines
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 = {<image000.ico>}
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 = {<image001.bmp>}
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 = {<image002.bmp>}
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 = {<image003.bmp>}
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 = {<image004.bmp>}
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