home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78a98.iso
/
Sharewar
/
Cpucool
/
Cpuidle
/
CPUIDLE.EXE
/
0
/
RCDATA
/
TFORMABOUT
/
TFORMABOUT.txt
< prev
Wrap
Text File
|
1998-04-06
|
13KB
|
553 lines
object FormAbout: TFormAbout
Left = 214
Top = 91
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'About CpuIdle'
ClientHeight = 269
ClientWidth = 281
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 283
Height = 271
ActivePage = SheetAbout
TabOrder = 1
object SheetAbout: TTabSheet
Caption = 'About'
object LabelActive: TLabel
Left = 8
Top = 41
Width = 89
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'enabled'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelInactive: TLabel
Left = 8
Top = 41
Width = 89
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'disabled'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelTitle: TLabel
Left = 104
Top = 8
Width = 73
Height = 13
Caption = 'CpuIdle 2.53'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 104
Top = 24
Width = 159
Height = 13
Caption = 'Copyright (c) 1998 Andreas Goetz'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object UrlLabel1: TUrlLabel
Left = 104
Top = 40
Width = 165
Height = 13
Cursor = 5
Caption = 'www.stud.uni-hannover.de/~goetz'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
PopupMenu = UrlLabel1.
URL = 'http://www.stud.uni-hannover.de/~goetz/'
end
object Label3: TLabel
Left = 8
Top = 72
Width = 257
Height = 73
AutoSize = False
Caption =
'CpuIdle runs a HLT command in an idle priority thread under Win' +
'95. That allows modern microprocessors like Intel P5 / P5 MMX /' +
' PPro / PII, AMD K5 / K6 or Cyrix M1 / M2 to save power and stay' +
' cool.'
WordWrap = True
end
object Image1: TImage
Left = 8
Top = 8
Width = 87
Height = 30
Cursor = crHandPoint
AutoSize = True
Picture.Data = {<image000.bmp>}
OnDblClick = TrayDblClick
end
object GroupBox2: TGroupBox
Left = 9
Top = 140
Width = 256
Height = 53
Caption = 'Thanks'
TabOrder = 0
object Label10: TLabel
Left = 16
Top = 16
Width = 225
Height = 33
AutoSize = False
Caption =
'Special thanks to . He wrote the original ' +
'VxD and made this program possible.'
WordWrap = True
end
object Label11: TLabel
Left = 102
Top = 16
Width = 64
Height = 13
Caption = 'Virgil Smith'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
end
end
object CpuSheet: TTabSheet
Caption = 'CPU Info'
object LabelUnknown: TLabel
Left = 8
Top = 32
Width = 75
Height = 55
Alignment = taCenter
AutoSize = False
Caption = '?'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -48
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object LabelPowered: TLabel
Left = 8
Top = 8
Width = 59
Height = 13
Caption = 'Powered by:'
end
object LabelClock: TLabel
Left = 104
Top = 27
Width = 161
Height = 38
AutoSize = False
Caption = 'X'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object LabelID: TLabel
Left = 0
Top = 8
Width = 280
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'CPUID instruction not available on this machine.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ImageK6: TImage
Left = 8
Top = 32
Width = 75
Height = 62
AutoSize = True
Picture.Data = {<image001.bmp>}
Visible = False
end
object ImageM1: TImage
Left = 8
Top = 32
Width = 75
Height = 52
AutoSize = True
Picture.Data = {<image002.bmp>}
Visible = False
end
object ImageM2: TImage
Left = 8
Top = 32
Width = 75
Height = 74
AutoSize = True
Picture.Data = {<image003.bmp>}
Visible = False
end
object ImagePII: TImage
Left = 8
Top = 32
Width = 75
Height = 53
AutoSize = True
Picture.Data = {<image004.bmp>}
Visible = False
end
object ImageP5: TImage
Left = 8
Top = 32
Width = 75
Height = 69
AutoSize = True
Picture.Data = {<image005.bmp>}
Visible = False
end
object ImageAMD: TImage
Left = 8
Top = 32
Width = 75
Height = 20
AutoSize = True
Picture.Data = {<image006.bmp>}
Visible = False
end
object ImageCyrix: TImage
Left = 8
Top = 32
Width = 75
Height = 35
AutoSize = True
Picture.Data = {<image007.bmp>}
Visible = False
end
object ImageIDT: TImage
Left = 8
Top = 32
Width = 75
Height = 58
AutoSize = True
Picture.Data = {<image008.bmp>}
Visible = False
end
object ImageIntel: TImage
Left = 8
Top = 32
Width = 75
Height = 40
AutoSize = True
Picture.Data = {<image009.bmp>}
Visible = False
end
object Memo2: TMemo
Left = 104
Top = 56
Width = 161
Height = 145
TabStop = False
BorderStyle = bsNone
ReadOnly = True
TabOrder = 0
Visible = False
WantReturns = False
end
end
object SheetGreet: TTabSheet
Caption = 'Greetings'
object Label14: TLabel
Left = 8
Top = 133
Width = 259
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Andreas Goetz, S�dring 11, 31275 Lehrte, Germany'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Memo3: TMemo
Left = 8
Top = 8
Width = 262
Height = 121
BorderStyle = bsNone
Lines.Strings = (
'CpuIdle is released as freeware for non-commercial use. '
'However, if you like this program and would like to '
'encourage further development and express your '
'gratitude, a monetary donation would be greatly '
'appreciated. A $20 contribution sent to the address '
'given below entitles the donor to additional assistance '
'in using this software if necessary. Please don'#39't send '
'cheques since cashing is extremely expensive in '
'Germany.')
ReadOnly = True
TabOrder = 1
end
object GroupBox1: TGroupBox
Left = 8
Top = 152
Width = 257
Height = 49
Caption = 'Greetings'
TabOrder = 0
object Label4: TLabel
Left = 16
Top = 20
Width = 217
Height = 13
AutoSize = False
Caption = 'A big hello and my nicest hug go to .'
end
object Label5: TLabel
Left = 184
Top = 20
Width = 42
Height = 13
Caption = 'Muddle'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
end
end
object SheetDebug: TTabSheet
Caption = 'Debug'
TabVisible = False
object Label1: TLabel
Left = 16
Top = 96
Width = 26
Height = 13
Caption = 'Index'
end
object Label6: TLabel
Left = 16
Top = 144
Width = 23
Height = 13
Caption = 'Data'
end
object Label7: TLabel
Left = 8
Top = 72
Width = 161
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Warning: Use at your own risk!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object EditIndex: TEdit
Left = 16
Top = 112
Width = 145
Height = 21
CharCase = ecUpperCase
TabOrder = 0
Text = '0'
end
object EditData: TEdit
Left = 16
Top = 160
Width = 145
Height = 21
CharCase = ecUpperCase
TabOrder = 1
Text = '0'
end
object ButtonRead: TButton
Left = 184
Top = 107
Width = 75
Height = 25
Caption = '&Read'
TabOrder = 2
OnClick = ButtonReadClick
end
object ButtonWrite: TButton
Left = 184
Top = 155
Width = 75
Height = 25
Caption = '&Write'
TabOrder = 3
OnClick = ButtonWriteClick
end
object RadioRegister: TRadioGroup
Left = 184
Top = 8
Width = 81
Height = 81
Caption = ' Register '
ItemIndex = 0
Items.Strings = (
'MSR'#39's'
'CCR'#39's'
'Ports')
TabOrder = 4
end
object GroupBox3: TGroupBox
Left = 8
Top = 8
Width = 161
Height = 57
Caption = ' Mode '
TabOrder = 5
object Hex: TRadioButton
Left = 16
Top = 24
Width = 49
Height = 17
Caption = 'Hex'
Checked = True
TabOrder = 0
TabStop = True
OnClick = NumericClick
end
object Bin: TRadioButton
Left = 64
Top = 24
Width = 41
Height = 17
Caption = 'Bin'
TabOrder = 1
OnClick = NumericClick
end
object Dec: TRadioButton
Left = 104
Top = 24
Width = 49
Height = 17
Caption = 'Dec'
TabOrder = 2
OnClick = NumericClick
end
end
end
end
object Button1: TButton
Left = 96
Top = 232
Width = 81
Height = 25
Cancel = True
Caption = '&OK'
TabOrder = 0
OnClick = Button1Click
end
object Timer: TTimer
Enabled = False
Interval = 30000
OnTimer = TimerTimer
Left = 256
Top = 65528
end
object Tray: TTrayIcon
Enabled = True
ShowDesigning = False
Icon.Data = {<image010.ico>}
OnDblClick = TrayDblClick
PopupMenu = PopupMenu1
Left = 40
Top = 232
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 8
Top = 232
object Hide1: TMenuItem
Caption = '&Hide'
OnClick = Hide1Click
end
object Enabled1: TMenuItem
Caption = '&Enabled'
Checked = True
OnClick = TrayDblClick
end
object SlowClock1: TMenuItem
Caption = '&Slow Clock'
Visible = False
end
object About1: TMenuItem
Caption = '&About...'
OnClick = About1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object ImageList: TImageList
Left = 224
Top = 65528
end
end