home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 292
- Top = 188
- BorderIcons = []
- BorderStyle = bsToolWindow
- Caption = 'CaShow'
- ClientHeight = 149
- ClientWidth = 305
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Visible = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel6: TBevel
- Left = 133
- Top = 41
- Width = 172
- Height = 60
- Shape = bsFrame
- end
- object Bevel7: TBevel
- Left = 133
- Top = 0
- Width = 172
- Height = 41
- Shape = bsFrame
- end
- object Bevel4: TBevel
- Left = 136
- Top = 2
- Width = 85
- Height = 37
- Shape = bsFrame
- end
- object Bevel1: TBevel
- Left = 0
- Top = 0
- Width = 133
- Height = 101
- Shape = bsFrame
- end
- object BevPohlavi: TBevel
- Left = 220
- Top = 3
- Width = 83
- Height = 18
- Shape = bsFrame
- Style = bsRaised
- end
- object Label3: TLabel
- Left = 135
- Top = 45
- Width = 50
- Height = 13
- Caption = 'Tel. dom�:'
- end
- object Bevel5: TBevel
- Left = 198
- Top = 44
- Width = 103
- Height = 17
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 135
- Top = 64
- Width = 60
- Height = 13
- Caption = 'Tel. do firmy:'
- end
- object Label2: TLabel
- Left = 135
- Top = 82
- Width = 28
- Height = 13
- Caption = 'Mobil:'
- end
- object LabPhoneHome: TLabel
- Left = 200
- Top = 46
- Width = 99
- Height = 13
- AutoSize = False
- Caption = 'LabPhoneHome'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnClick = LabPhoneHomeClick
- end
- object Bevel8: TBevel
- Left = 198
- Top = 62
- Width = 103
- Height = 17
- Shape = bsFrame
- end
- object LabPhoneFirm: TLabel
- Left = 200
- Top = 64
- Width = 99
- Height = 13
- AutoSize = False
- Caption = 'Label4'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = LabPhoneFirmClick
- end
- object Bevel2: TBevel
- Left = 198
- Top = 80
- Width = 103
- Height = 17
- Shape = bsFrame
- end
- object LabPhoneMobil: TLabel
- Left = 200
- Top = 82
- Width = 99
- Height = 13
- AutoSize = False
- Caption = 'Label4'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = LabPhoneMobilClick
- end
- object ButMenuF: TSpeedButton
- Left = 222
- Top = 4
- Width = 79
- Height = 15
- Hint = 'Otev�i jinou "obl�benou" kartot�ku ...'
- Caption = 'Kartot�ka'
- Flat = True
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077777707777770007777706077777000777706660777
- 7000777066666077700077066666660770007000066600007000777706660777
- 7000777706660777700077770666077770007777000007777000777777777777
- 7000}
- ParentShowHint = False
- ShowHint = True
- OnClick = ButMenuFClick
- end
- object Buthide: TSpeedButton
- Left = 244
- Top = 21
- Width = 59
- Height = 18
- Hint = 'Minimalizuj'
- Flat = True
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000012000000110000000100
- 040000000000CC00000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777F7778888
- 87777700000077FF777777778887770000007777FF00000FF0088700000070FF
- F00F0000FF0088000000700FF0FF0000FF00000000007700F00F000000000000
- 00007F000000000000000800000077F000000000000888000000707F00000000
- 0888870000007000FFFF777888888700000077F00FFF7778888777000000F77F
- 00778888887777000000F777F0077777777770000000F7777F00777777770000
- 0000FF7777F000777700080000008FF7777FF00000088800000078FF77777778
- 888888000000}
- ParentShowHint = False
- ShowHint = True
- OnClick = ButhideClick
- end
- object ButRunCa: TSpeedButton
- Left = 222
- Top = 21
- Width = 21
- Height = 18
- Hint = 'Spustit Contact Administr�tor'
- Flat = True
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 18000000000000030000120B0000120B00000000000000000000BFBFBF202020
- 00003FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000020205F00003FBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBF00007F3F3F3F7F7F7F7F7F7F7F7F7F7F7F7F7F
- 7F7F3F3F3F00007F00003F00003FBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7F
- 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBFBFBF7F7F7F00003F00000000003F0000
- 3FBFBFBFBFBFBFBFBFBF000000DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFFFFFFF7F
- 7F7F7F7F7FFFFFFF3F3F3F00000000003F000000BFBFBFBFBFBFBFBFBF7F7F7F
- BFBFBFDFDFDFDFDFDFDFDFDFDFDFDF7F7F7F7F7F7FBFBFBF3F3F3F0000000000
- 00BFBFBFBFBFBFBFBFBF0000003F3F7FDFDFDF6F6F6FFFFFFF8F8F8FBFBFBFBF
- BFBF00003F3F003FBFBFBF3F3F3FBFBFBFBFBFBFBFBFBFBFBFBF00007F3F3F3F
- 5050506F6F6F4040403030308F8F8F20202000007F7F00FF0000000000000000
- 00BFBFBFBFBFBFBFBFBF00000000003F5F5F5F6F6F6F7F7F7F202020AFAFAF7F
- 7F7F00003F00003F3F3F3FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000
- FFFFFFAFAFAFFFFFFFEFEFEFBFBFBFFFFFFF7F7F7F3F3F3F7F7F7F0000000000
- 00000000000000000000BFBFBF000000DFDFDFBFBFBFBFBFBFBFBFBFDFDFDFBF
- BFBF7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF000000
- DFDFDFBFBFBFBFBFBFDFDFDFFFFFFF7F7F7F3F3F3F5F5F5FFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFBFBFBF000000DFDFDFBFBFBFBFBFBFBFBFBFFFFFFF7F
- 7F7F5F5F5F5F5F5FFFFFFFFFFFFFFFFFFFFFFFFF7F7F7F000000BFBFBFBFBFBF
- 000000000000000000000000000000000000BFBFBFBFBFBF7F7F7FBFBFBFFFFF
- FF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF3F
- 3F3F7F7F7FBFBFBF7F7F7F7F7F7FBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000003F3F3F7F7F7F3F3F3F3F3F
- 3FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBF3F3F3F3F3F3F0000003F3F3FBFBFBFBFBFBFBFBFBFBFBFBF}
- ParentShowHint = False
- ShowHint = True
- OnClick = ButRunCaClick
- end
- object Bevel3: TBevel
- Left = 0
- Top = 100
- Width = 306
- Height = 50
- Shape = bsFrame
- Style = bsRaised
- end
- object ButChangeWwwStav: TSpeedButton
- Left = 4
- Top = 104
- Width = 20
- Height = 20
- Hint = 'P�epni mezi osobn�/firemn� WWW'
- Flat = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777777777777777777777777777777777777777777777
- 7777777487777777777777847777744444777747777777444477774777777774
- 4477774777777747447777847777447774777778444477777777777777777777
- 7777777777777777777777777777777777777777777777777777}
- ParentShowHint = False
- ShowHint = True
- OnClick = ButChangeWwwStavClick
- end
- object ButChangeEmailStav: TSpeedButton
- Left = 4
- Top = 124
- Width = 20
- Height = 20
- Hint = 'P�epni mezi osobn�/firemn� E-mail'
- Flat = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777777777777777777777777777777777777777777777777777777
- 7777777487777777777777847777744444777747777777444477774777777774
- 4477774777777747447777847777447774777778444477777777777777777777
- 7777777777777777777777777777777777777777777777777777}
- ParentShowHint = False
- ShowHint = True
- OnClick = ButChangeEmailStavClick
- end
- object wwwLab: TLabel
- Left = 28
- Top = 108
- Width = 65
- Height = 13
- Caption = 'www osobn� :'
- end
- object EmailLab: TLabel
- Left = 28
- Top = 128
- Width = 65
- Height = 13
- Caption = 'E-mail firemn�:'
- end
- object Bevel9: TBevel
- Left = 98
- Top = 106
- Width = 179
- Height = 17
- Shape = bsFrame
- end
- object Bevel10: TBevel
- Left = 98
- Top = 126
- Width = 179
- Height = 17
- Shape = bsFrame
- end
- object ButSendEmail: TSpeedButton
- Left = 280
- Top = 124
- Width = 20
- Height = 20
- Hint = 'Po�li po�tu'
- Flat = True
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 1800000000000003000000000000000000000000000000000000BFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000BFBFBFBFBFBF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
- 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F000000BFBFBFBFBFBF7F7F7F
- 00FFFFBFBFBF00FFFFBFBFBF00FFFFBFBFBF00FFFFBFBFBF00FFFFBFBFBF00FF
- FF7F7F7F000000BFBFBFBFBFBF7F7F7F00000000FFFFBFBFBF00FFFFBFBFBF00
- FFFFBFBFBF00FFFFBFBFBF00FFFF0000007F7F7F000000BFBFBFBFBFBF7F7F7F
- 00FFFF00000000FFFFBFBFBF00FFFF00000000FFFFBFBFBF00FFFF00000000FF
- FF7F7F7F000000BFBFBFBFBFBF7F7F7FFFFFFF00FFFF00000000FFFF00000000
- FFFF00000000FFFF00000000FFFFBFBFBF7F7F7F000000BFBFBFBFBFBF7F7F7F
- 00FFFFBFBFBF00FFFF00000000FFFFBFBFBF00FFFF00000000FFFFBFBFBF00FF
- FF7F7F7F000000BFBFBFBFBFBF7F7F7FFFFFFF00FFFF00000000FFFFBFBFBF00
- FFFFBFBFBF00FFFF00000000FFFFBFBFBF7F7F7F000000BFBFBFBFBFBF7F7F7F
- 00FFFF00000000FFFFBFBFBF00FFFFBFBFBF00FFFFBFBFBF00FFFF00000000FF
- FF7F7F7F000000BFBFBFBFBFBF7F7F7F00000000FFFFFFFFFF00FFFFFFFFFF00
- FFFFFFFFFF00FFFFFFFFFF00FFFF0000007F7F7F000000BFBFBFBFBFBF7F7F7F
- 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
- 7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
- ParentShowHint = False
- ShowHint = True
- OnClick = ButSendEmailClick
- end
- object ButShowWww: TSpeedButton
- Left = 280
- Top = 104
- Width = 20
- Height = 20
- Hint = 'Prohl�dni str�nku'
- Flat = True
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 1800000000000003000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000BFBF
- BFBFBFBF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFF000000BFBFBF000000000000000000000000FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000007F7F
- 7F000000000000BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
- 00007F7F7FBFBFBFBFBFBF7F7F7F0000007F7F7FBFBFBFBFBFBF000000FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FBFBFBFBFBFBFFFFF007F7F7F7F7F
- 7F000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BF
- BFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBFBF000000BFBFBFBFBFBF000000FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFFFFF00BFBFBFBFBFBF7F7F7FBFBF
- BF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007F
- 7F7FFFFF00FFFF00BFBFBF7F7F7F7F7F7F000000BFBFBFBFBFBF000000FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FBFBFBFBFBFBF7F7F7F0000
- 00BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFF000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBF
- BFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFF000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBF000000BFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000
- 000000000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
- BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
- ParentShowHint = False
- ShowHint = True
- OnClick = ButShowWwwClick
- end
- object Labwww: TLabel
- Left = 100
- Top = 108
- Width = 173
- Height = 13
- AutoSize = False
- Caption = 'LabPhoneHome'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnClick = LabwwwClick
- end
- object LabEmail: TLabel
- Left = 100
- Top = 128
- Width = 173
- Height = 13
- AutoSize = False
- Caption = 'LabPhoneHome'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnClick = LabEmailClick
- end
- object ItemBox: TListBox
- Left = 4
- Top = 4
- Width = 127
- Height = 93
- BorderStyle = bsNone
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 0
- OnClick = ItemBoxClick
- end
- object RadName: TRadioButton
- Left = 140
- Top = 4
- Width = 73
- Height = 17
- Hint = 'Seznam je set��d�n podle jm�na'
- Caption = '&Jm�no'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = RadNameClick
- end
- object RadSurName: TRadioButton
- Left = 140
- Top = 18
- Width = 73
- Height = 17
- Hint = 'Seznam je set��d�n podle p��jmen�'
- Caption = '&P��jmen�'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = RadSurNameClick
- end
- object PomBox: TListBox
- Left = 172
- Top = 20
- Width = 17
- Height = 69
- ItemHeight = 13
- TabOrder = 3
- Visible = False
- end
- object PomEdit: TEdit
- Left = 4
- Top = 4
- Width = 185
- Height = 21
- TabOrder = 4
- Visible = False
- end
- object TrayIcon: TTrayIcon
- Active = True
- ShowDesigning = False
- Icon.Data = {<image000.ico>}
- ShowApp = False
- ToolTip = 'CaShow'
- OnClick = TrayIconClick
- OnRightClick = TrayIconRightClick
- Left = 104
- Top = 4
- end
- object MenKarta: TPopupMenu
- Left = 188
- Top = 4
- end
- object Timer: TTimer
- Interval = 20
- OnTimer = TimerTimer
- Left = 160
- Top = 4
- end
- object JustOne321: TJustOne32
- Left = 76
- Top = 4
- end
- object MenuRight: TPopupMenu
- Left = 48
- Top = 4
- object MenMax: TMenuItem
- Caption = '&Maximalizuj'
- OnClick = MenMaxClick
- end
- object MenMin: TMenuItem
- Caption = 'M&inimalizuj'
- OnClick = MenMinClick
- end
- object MenShowInt: TMenuItem
- Caption = 'Zobrazovat "internetov�" panel'
- OnClick = MenShowIntClick
- end
- object MenRunAtStart: TMenuItem
- Caption = '&Spustit po startu po��ta�e'
- OnClick = MenRunAtStartClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object MRunCa: TMenuItem
- Caption = 'Spustit Contact Administrator'
- OnClick = MRunCaClick
- end
- object MenClose: TMenuItem
- Caption = '&Ukon�i program'
- OnClick = MenCloseClick
- end
- end
- end
-