home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: Shareware for Win 95
/
Chip-Shareware-Win95.bin
/
ostatni
/
delphi
/
delphi1
/
winfo151.exe
/
FRMMAIN1.DFM
/
FRMMAIN1.txt
Wrap
Text File
|
1995-09-06
|
17KB
|
608 lines
object frmNmfiMain: TfrmNmfiMain
Left = 220
Top = 159
ActiveControl = TabbedNotebook1
BorderIcons = [biMinimize]
BorderStyle = bsSingle
Caption = 'NMFI Main Form 001'
ClientHeight = 512
ClientWidth = 453
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 120
Position = poDefault
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
TextHeight = 20
object ToolBar: TPanel
Left = 0
Top = 0
Width = 453
Height = 41
Align = alTop
TabOrder = 0
object sbExit: TSpeedButton
Left = 8
Top = 8
Width = 25
Height = 25
Hint = 'Exit|End this application...'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF060FFFFF
FFFF7777708077777777FFF0660FFFFFFFFF7777088077777777FF0066000000
FFFF7770088000000777FF06660FFFF0FFFF7770888077770777FF06660FFFF0
FFFF7770888077770777FF06660FFFF0FFFF7770888077770777FF06660FFFF0
FFFF7770888077770777FF06660FFFF0FFFF7770888077770777FF06660FFFF0
FFFF7770888077770777FF06660FFFF0FFFF7770888077770777FF06660FFFF0
FFFF7770888077770777FF06660FFFF0FFFF7770888077770777FF0660FFFFF0
FFFF7770880777770777FF060FFFFFF0FFFF7770807777770777FF00FFFFFFF0
FFFF7770077777770777FF0000000000FFFF7770000000000777000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = sbExitClick
end
object sbAbout: TSpeedButton
Left = 40
Top = 8
Width = 25
Height = 25
Hint = 'About|View Application Information...'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF33333333333777773333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = sbAboutClick
end
object SpeedButton1: TSpeedButton
Left = 72
Top = 8
Width = 25
Height = 25
Hint = 'Read Me|View the Read me file.'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object chkConfirmExit: TCheckBox
Left = 304
Top = 16
Width = 137
Height = 17
Hint = 'Confirm before quitting this application.'
TabStop = False
Caption = 'Confirm Exit?'
TabOrder = 0
Visible = False
OnClick = chkConfirmExitClick
end
object cbOnTop: TCheckBox
Left = 136
Top = 16
Width = 153
Height = 17
Hint = 'Keep on top of all other windows.'
Caption = '&Keep On Top?'
TabOrder = 1
OnClick = cbOnTopClick
end
end
object StatusBar: TPanel
Left = 0
Top = 480
Width = 453
Height = 32
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvLowered
Caption = 'Status'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object TabbedNotebook1: TTabbedNotebook
Left = 0
Top = 41
Width = 453
Height = 440
Hint = 'System Statistics...'
Align = alTop
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
TabFont.Color = clBtnText
TabFont.Height = -13
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
ParentShowHint = False
ShowHint = False
TabOrder = 1
OnClick = TabbedNotebook1Click
object TTabPage
Left = 5
Top = 29
Caption = '&System'
object Label13: TLabel
Left = 16
Top = 283
Width = 135
Height = 20
Caption = 'Windows Directory:'
end
object Label14: TLabel
Left = 16
Top = 342
Width = 192
Height = 20
Caption = 'Windows System Directory:'
end
object pnlWinDir: TPanel
Left = 32
Top = 308
Width = 385
Height = 32
Alignment = taLeftJustify
BevelInner = bvLowered
BevelOuter = bvLowered
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object pnlWinSysDir: TPanel
Left = 32
Top = 367
Width = 385
Height = 32
Alignment = taLeftJustify
BevelInner = bvLowered
BevelOuter = bvLowered
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object GroupBox2: TGroupBox
Left = 16
Top = 8
Width = 409
Height = 273
Caption = 'Win Flags...'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object Label2: TLabel
Left = 70
Top = 76
Width = 141
Height = 20
Caption = 'Windows Version:'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 106
Top = 36
Width = 105
Height = 20
Caption = 'DOS Version:'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 129
Top = 196
Width = 82
Height = 20
Caption = 'CPU Type:'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 60
Top = 236
Width = 151
Height = 20
Caption = 'Math Coprocessor:'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 87
Top = 116
Width = 124
Height = 20
Caption = 'Windows Mode:'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 88
Top = 156
Width = 123
Height = 20
Caption = 'Paged Memory:'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object txtMathCo: TEdit
Left = 232
Top = 228
Width = 73
Height = 29
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 3
Text = 'txtMathCo'
end
object txtCPU: TEdit
Left = 232
Top = 188
Width = 161
Height = 29
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
Text = 'txtCPU'
end
object txtPageMem: TEdit
Left = 232
Top = 148
Width = 73
Height = 29
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object txtWinMode: TEdit
Left = 232
Top = 108
Width = 161
Height = 29
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 4
Text = 'txtWinMode'
end
object txtWinVer: TEdit
Left = 232
Top = 68
Width = 73
Height = 29
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
Text = 'txtWinVer'
end
object txtDosVer: TEdit
Left = 232
Top = 28
Width = 73
Height = 29
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 1
Text = 'txtDosVer'
end
end
end
object TTabPage
Left = 5
Top = 29
Caption = '&Disk Drives'
object Bevel2: TBevel
Left = 16
Top = 104
Width = 409
Height = 241
Shape = bsFrame
end
object Label6: TLabel
Left = 80
Top = 128
Width = 73
Height = 20
Caption = 'Disk Type:'
end
object Label7: TLabel
Left = 64
Top = 184
Width = 87
Height = 20
Caption = 'Device Size:'
end
object Label8: TLabel
Left = 32
Top = 240
Width = 117
Height = 20
Caption = 'Space Available:'
end
object Gauge1: TGauge
Left = 176
Top = 288
Width = 233
Height = 32
ForeColor = clLime
BackColor = clMaroon
MaxValue = 712
Progress = 333
end
object Label9: TLabel
Left = 24
Top = 293
Width = 126
Height = 20
Caption = 'Percent Available:'
end
object cbDrive: TDriveComboBox
Left = 32
Top = 48
Width = 377
Height = 26
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
OnChange = cbDriveChange
end
object txtDriveType: TEdit
Left = 176
Top = 125
Width = 233
Height = 32
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object txtDriveSize: TEdit
Left = 176
Top = 181
Width = 233
Height = 32
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object txtDriveFree: TEdit
Left = 176
Top = 237
Width = 233
Height = 32
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 3
end
end
object TTabPage
Left = 5
Top = 29
Caption = '&Memory'
object Label1: TLabel
Left = 48
Top = 64
Width = 184
Height = 20
Hint = '|Total Windows memory available'
Caption = 'Available System Memory:'
ParentShowHint = False
ShowHint = False
end
object Bevel1: TBevel
Left = 40
Top = 40
Width = 369
Height = 65
Hint = 'Memory|Windows Global Memory.'
Shape = bsFrame
end
object GroupBox1: TGroupBox
Left = 40
Top = 128
Width = 369
Height = 185
Hint = 'Resources|Windows System Resources.'
Caption = 'Availble Resources...'
TabOrder = 1
object gageGDI: TGauge
Left = 8
Top = 61
Width = 353
Height = 32
ForeColor = clBlue
BackColor = clMaroon
Progress = 55
end
object Label11: TLabel
Left = 8
Top = 37
Width = 77
Height = 20
Alignment = taCenter
Caption = 'GDI Heap:'
end
object gageUser: TGauge
Left = 8
Top = 133
Width = 353
Height = 32
ForeColor = clBlue
BackColor = clMaroon
Progress = 55
end
object Label12: TLabel
Left = 8
Top = 109
Width = 81
Height = 20
Alignment = taCenter
Caption = 'User Heap:'
end
end
object txtSysMem: TEdit
Left = 272
Top = 56
Width = 121
Height = 32
Hint = '|Total Windows memory available'
TabStop = False
AutoSize = False
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = False
TabOrder = 0
Text = 'txtSysMem'
end
object cmdCompact: TBitBtn
Left = 40
Top = 336
Width = 369
Height = 49
Hint = 'Defrag|Attempt to defragment system memory.'
Caption = '&Compact System Memory'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 8
ParentFont = False
TabOrder = 2
OnClick = cmdCompactClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FF33333333FF3330033333333
00333377FF33333377FF300003333330000337777FFFFFF7777F000000000000
000077777777777777770F88FFFF8FFF88F07F333F33333333370FFF9FFF8FFF
FF707F337FF333FFFFF70FF999FF800000037F377733377777730FFF9FFF0888
80337F3373337F3337330FFFFFFF088803337FFFFFFF7FFF7333700000000000
3333777777777777F33333333339399939333333333337773333333333333393
3333333333333373333333333333933393333333333333333333333333333393
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
end
end
end
end