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