home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 218
- Top = 105
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'InfoDial 1.1'
- ClientHeight = 402
- ClientWidth = 575
- Color = 13089467
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 360
- Top = 8
- Width = 41
- Height = 25
- Caption = 'Zobraz ��ty'
- TabOrder = 0
- Visible = False
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 320
- Top = 40
- Width = 82
- Height = 25
- Caption = 'Vyto�it'
- TabOrder = 1
- Visible = False
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 320
- Top = 72
- Width = 82
- Height = 25
- Caption = 'Zav�sit'
- TabOrder = 2
- Visible = False
- OnClick = Button3Click
- end
- object Panel1: TPanel
- Left = 8
- Top = 8
- Width = 382
- Height = 195
- Caption = 'Panel1'
- Color = 10329501
- TabOrder = 3
- object Label11: TLabel
- Left = 16
- Top = 6
- Width = 87
- Height = 13
- Caption = 'Telefonn� ��ty:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object ListBox1: TListBox
- Left = 14
- Top = 24
- Width = 353
- Height = 129
- ItemHeight = 13
- TabOrder = 0
- OnClick = ListBox1Click
- end
- object Button4: TButton
- Left = 14
- Top = 160
- Width = 84
- Height = 25
- Caption = 'Vytvo�it ��et'
- TabOrder = 1
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 102
- Top = 160
- Width = 84
- Height = 25
- Caption = 'Editovat ��et'
- TabOrder = 2
- OnClick = Button5Click
- end
- object Button6: TButton
- Left = 190
- Top = 160
- Width = 84
- Height = 25
- Caption = 'P�ejmenovat'
- TabOrder = 3
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 278
- Top = 160
- Width = 84
- Height = 25
- Caption = 'Smazat'
- TabOrder = 4
- OnClick = Button7Click
- end
- end
- object Panel2: TPanel
- Left = 344
- Top = 280
- Width = 217
- Height = 30
- BevelInner = bvLowered
- Caption = ' '
- Color = clWhite
- TabOrder = 4
- object Stav: TLabel
- Left = 95
- Top = 8
- Width = 40
- Height = 13
- Caption = 'Ne�inn�'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Label2: TLabel
- Left = 7
- Top = 8
- Width = 81
- Height = 13
- Caption = 'Stav modemu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object Button9: TButton
- Left = 408
- Top = 176
- Width = 97
- Height = 30
- Caption = 'Stav CPU v okn�'
- TabOrder = 5
- OnClick = Button9Click
- end
- object Panel3: TPanel
- Left = 8
- Top = 280
- Width = 329
- Height = 30
- BevelInner = bvLowered
- Caption = 'Panel3'
- Color = clWhite
- TabOrder = 6
- object Label4: TLabel
- Left = 11
- Top = 8
- Width = 60
- Height = 13
- Caption = 'Stav CPU:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object zCPU: ProgressBar3D
- Left = 81
- Top = 5
- Width = 241
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- BarColor = clGray
- BackColor = clSilver
- BorderColor = clSilver
- ParentFont = False
- end
- end
- object Panel4: TPanel
- Left = 8
- Top = 216
- Width = 169
- Height = 57
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = ' '
- Color = 10329501
- TabOrder = 7
- object Label1: TLabel
- Left = 16
- Top = 20
- Width = 68
- Height = 13
- Caption = 'minimum CPU:'
- end
- object Label9: TLabel
- Left = 143
- Top = 20
- Width = 8
- Height = 13
- Caption = '%'
- end
- object sMinCPUx: TSpinEdit
- Left = 88
- Top = 16
- Width = 49
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 0
- Value = 35
- end
- end
- object Panel5: TPanel
- Left = 192
- Top = 216
- Width = 305
- Height = 58
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = ' '
- Color = 10329501
- TabOrder = 8
- object Label5: TLabel
- Left = 24
- Top = 11
- Width = 126
- Height = 13
- Caption = 'Po�et sekund minima CPU'
- end
- object Label10: TLabel
- Left = 214
- Top = 10
- Width = 20
- Height = 13
- Caption = 'sek.'
- end
- object vMinCPUx: TSpinEdit
- Left = 160
- Top = 7
- Width = 49
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 0
- Value = 11
- end
- object vMin: TProgressBar
- Left = 22
- Top = 34
- Width = 265
- Height = 16
- Min = 0
- Max = 100
- TabOrder = 1
- end
- end
- object Panel6: TPanel
- Left = 8
- Top = 320
- Width = 233
- Height = 73
- BevelInner = bvLowered
- Color = 8684472
- TabOrder = 9
- object Label12: TLabel
- Left = 24
- Top = 28
- Width = 134
- Height = 13
- Caption = 'Monitorovat stav a vyzv�n�t'
- end
- object Zap: TRxSwitch
- Left = 176
- Top = 14
- Width = 27
- Height = 43
- Caption = 'Zap'
- TabOrder = 0
- OnOn = ZapOn
- OnOff = ZapOff
- end
- end
- object Panel7: TPanel
- Left = 408
- Top = 8
- Width = 153
- Height = 153
- Color = 10329501
- TabOrder = 10
- object Label3: TLabel
- Left = 96
- Top = 67
- Width = 35
- Height = 13
- Caption = 'sekund'
- end
- object Label6: TLabel
- Left = 17
- Top = 96
- Width = 72
- Height = 13
- Caption = 'Po�et zvon�n�:'
- end
- object Label7: TLabel
- Left = 17
- Top = 48
- Width = 72
- Height = 13
- Caption = 'D�lka zvon�n�:'
- end
- object Label8: TLabel
- Left = 95
- Top = 115
- Width = 18
- Height = 13
- Caption = 'kr�t'
- end
- object AutoDial: TButton
- Left = 15
- Top = 16
- Width = 122
- Height = 25
- Caption = 'Test vyto�en�'
- TabOrder = 0
- OnClick = AutoDialClick
- end
- object ZavesPo: TSpinEdit
- Left = 32
- Top = 63
- Width = 57
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 1
- Value = 11
- end
- object Opak: TSpinEdit
- Left = 32
- Top = 112
- Width = 57
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 2
- Value = 3
- end
- end
- object Button8: TButton
- Left = 512
- Top = 176
- Width = 49
- Height = 29
- Caption = 'Zav��t'
- TabOrder = 11
- OnClick = Button8Click
- end
- object Button10: TButton
- Left = 256
- Top = 341
- Width = 97
- Height = 33
- Caption = 'Minimalizovat'
- TabOrder = 12
- OnClick = Button10Click
- end
- object Panel8: TPanel
- Left = 368
- Top = 327
- Width = 193
- Height = 60
- Caption = ' '
- Color = 11118738
- TabOrder = 13
- object Label13: TLabel
- Left = 11
- Top = 8
- Width = 45
- Height = 13
- Caption = 'Author by'
- end
- object Label14: TLabel
- Left = 67
- Top = 8
- Width = 76
- Height = 13
- Caption = 'Radek Szurman'
- end
- object Label15: TLabel
- Left = 67
- Top = 24
- Width = 83
- Height = 13
- Caption = 'Software SURAD'
- end
- object Label16: TLabel
- Left = 67
- Top = 40
- Width = 39
- Height = 13
- Caption = '(c) 2002'
- end
- end
- object Button11: TButton
- Left = 504
- Top = 216
- Width = 49
- Height = 25
- Caption = 'Profil 1'
- TabOrder = 14
- OnClick = Button11Click
- end
- object Button12: TButton
- Left = 505
- Top = 246
- Width = 48
- Height = 25
- Caption = 'Profil 2'
- TabOrder = 15
- OnClick = Button12Click
- end
- object Button13: TButton
- Left = 554
- Top = 246
- Width = 15
- Height = 25
- Caption = 'U'
- TabOrder = 16
- OnClick = Button13Click
- end
- object Button14: TButton
- Left = 554
- Top = 216
- Width = 15
- Height = 25
- Caption = 'U'
- TabOrder = 17
- OnClick = Button14Click
- end
- object DialUp: TDialUp
- DialMode = dmAsync
- Language = ralgCzech
- OnEntryGet = DialUpEntryGet
- Left = 40
- Top = 48
- end
- object StavPortu: TTimer
- Interval = 100
- OnTimer = StavPortuTimer
- Left = 72
- Top = 48
- end
- object Zaves: TTimer
- Enabled = False
- Interval = 7000
- OnTimer = ZavesTimer
- Left = 568
- Top = 16
- end
- object INISet: TAHMRegEntry
- Area = '\Software\SURAD\InfoDial'
- Section = 'InfoDial'
- Left = 104
- Top = 48
- end
- object vMinCPU: TTimer
- Enabled = False
- OnTimer = vMinCPUTimer
- Left = 336
- Top = 224
- end
- object StavCPUt: TTimer
- Interval = 500
- OnTimer = StavCPUtTimer
- Left = 179
- Top = 280
- end
- object sMinCPU: TTimer
- Enabled = False
- Interval = 50
- OnTimer = sMinCPUTimer
- Left = 104
- Top = 224
- end
- object TrayIco: TRxTrayIcon
- Hint = 'Info Dial 1.1'
- Icon.Data = {<image001.ico>}
- Icons.Icons = {
- 01000000FE0200000000010001002020040000000000E8020000160000002800
- 0000200000004000000001000400000000000002000000000000000000000000
- 0000000000000000000000008000008000000080800080000000800080008080
- 0000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF
- 0000FFFFFF000000000088000000000000880000000000000000800022222222
- 000800000000000000880002AAAAAAAA200088000000000000000022AAAAAAAA
- 2200000000000000000002AAAAAAAAAAAA20000000000000000002AAAAAAAAAA
- AA20000000000000000002AAAAAAAAAAAA20000000000000000002AAAAAAAAAA
- AA20000000000000000002AA77AAAAAAAA20000000000000000002AA777AAAAA
- AA20000000000000000002AA7FF7AAAAAA200000000000000000002A7777AAAA
- A20000000000000000000002AAAAAAAA20000000000000000000000022222222
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000001111111100000000000000000000000011111111
- 0000000000000000000000111111111111000000000000000000001111111111
- 1100000000000000000000111111111111000000000000000000001111111111
- 1100000000000000000000111111111111000000000000000000001111111111
- 1100000000000000000000118811111111000000000000000000001877111111
- 1100000000000000000000018811111110000000000000000088000011111111
- 0000880000000000000080000000000000080000000000000000880000000000
- 008800000000FF0000FFFF0000FFFC00003FFC00003FFC00003FFC00003FFC00
- 003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00
- 003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00
- 003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFF00
- 00FFFF0000FF}
- PopupMenu = RxPopupMenu1
- Left = 280
- Top = 328
- end
- object RxPopupMenu1: TRxPopupMenu
- Left = 256
- Top = 328
- object Zobrazit1: TMenuItem
- Caption = 'Zobrazit'
- Default = True
- OnClick = Zobrazit1Click
- end
- end
- object ikona: TTimer
- Interval = 100
- OnTimer = ikonaTimer
- Left = 136
- Top = 344
- end
- end
-