home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 5.13
/
2000-10_Disc_5.13.bin
/
pcgamer2.exe
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
< prev
Wrap
Text File
|
2000-03-31
|
11KB
|
555 lines
object mainform: Tmainform
Left = 237
Top = 208
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'PC Gamer CDROM'
ClientHeight = 573
ClientWidth = 792
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object SpeedButton3: TSpeedButton
Left = 24
Top = 24
Width = 65
Height = 17
Cursor = crHandPoint
Caption = 'Utilities'
end
object SpeedButton4: TSpeedButton
Left = 24
Top = 8
Width = 65
Height = 17
Cursor = crHandPoint
Caption = 'Demos'
end
object Image1: TImage
Left = 16
Top = 16
Width = 105
Height = 105
Visible = False
end
object listloader: TImage
Left = 440
Top = 456
Width = 105
Height = 105
end
object ImageX: TImage
Left = 32
Top = 32
Width = 105
Height = 105
Visible = False
end
object bitbtn1: TImage
Left = 24
Top = 240
Width = 97
Height = 97
Picture.Data = {<image000.bmp>}
Transparent = True
end
object Image2: TImage
Left = 24
Top = 140
Width = 105
Height = 105
Picture.Data = {<image001.bmp>}
end
object source: TListBox
Left = 24
Top = 128
Width = 249
Height = 153
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'This month'#39's feature demo:'
'Ameriku'
'vegna ekki mjeri pabbi min'
'og ekki mjeri fiskur. Ja, eg'
'ert fra ameriku og eg ert stulka'
'fallega!!')
ParentCtl3D = False
ParentFont = False
TabOrder = 10
Visible = False
end
object menudests: TListBox
Left = 192
Top = 288
Width = 81
Height = 113
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ItemHeight = 16
Items.Strings = (
'01'
'02'
'03'
'08'
'04'
'06'
'05'
'09'
'04'
'07'
'08')
ParentCtl3D = False
ParentFont = False
TabOrder = 14
Visible = False
end
object menusource: TListBox
Left = 112
Top = 288
Width = 81
Height = 113
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ItemHeight = 11
Items.Strings = (
'item one'
'item two'
'item three'
'four'
'five'
'six'
'item seven'
'eight'
'niner'
'ten'
'ellefu')
ParentCtl3D = False
ParentFont = False
TabOrder = 13
Visible = False
end
object xlist: TListBox
Left = 24
Top = 288
Width = 81
Height = 113
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ItemHeight = 16
ParentCtl3D = False
ParentFont = False
TabOrder = 16
Visible = False
end
object dbcomponents: TPanel
Left = 32
Top = 296
Width = 273
Height = 201
Caption = 'dbcomponents'
TabOrder = 17
Visible = False
object df1: TDBText
Left = 16
Top = 48
Width = 65
Height = 17
DataSource = DataSource1
end
object df2: TDBText
Left = 16
Top = 64
Width = 65
Height = 17
DataSource = DataSource1
end
object df3: TDBText
Left = 16
Top = 80
Width = 65
Height = 17
DataSource = DataSource1
end
object df4: TDBText
Left = 16
Top = 96
Width = 65
Height = 17
DataSource = DataSource1
end
object df5: TDBText
Left = 16
Top = 112
Width = 65
Height = 17
DataSource = DataSource1
end
object df6: TDBText
Left = 16
Top = 128
Width = 65
Height = 17
DataSource = DataSource1
end
object df7: TDBText
Left = 120
Top = 48
Width = 65
Height = 17
DataSource = DataSource1
end
object df8: TDBText
Left = 120
Top = 64
Width = 65
Height = 17
DataSource = DataSource1
end
object df9: TDBText
Left = 120
Top = 80
Width = 65
Height = 17
DataSource = DataSource1
end
object df10: TDBText
Left = 120
Top = 96
Width = 65
Height = 17
DataSource = DataSource1
end
object dbdisplay: TListBox
Left = 80
Top = 8
Width = 177
Height = 33
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
ParentCtl3D = False
ParentFont = False
TabOrder = 0
Visible = False
end
object databases: TListBox
Left = 192
Top = 64
Width = 65
Height = 57
ItemHeight = 13
Items.Strings = (
'Reviews'
'Demos'
'Companies'
'Patches')
TabOrder = 1
Visible = False
end
end
object browsepanel: TPanel
Left = 0
Top = 100
Width = 685
Height = 405
BevelOuter = bvNone
Color = clNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
Visible = False
object ib: TButton
Left = 280
Top = 80
Width = 75
Height = 25
Caption = 'ib'
TabOrder = 0
Visible = False
end
object pb: TButton
Left = 280
Top = 72
Width = 75
Height = 25
Caption = 'ib'
TabOrder = 1
Visible = False
end
object vb: TButton
Left = 280
Top = 64
Width = 75
Height = 25
Caption = 'ib'
TabOrder = 2
Visible = False
end
end
object company: TPanel
Left = 103
Top = 96
Width = 689
Height = 414
BevelOuter = bvNone
Caption = 'company'
Color = clAqua
TabOrder = 6
Visible = False
end
object patches: TPanel
Left = 103
Top = 104
Width = 689
Height = 414
BevelOuter = bvNone
Caption = 'patches'
Color = clLime
TabOrder = 7
Visible = False
object patchnotes: TDBText
Left = 8
Top = 144
Width = 249
Height = 17
end
end
object cds: TPanel
Left = 103
Top = 112
Width = 689
Height = 414
BevelOuter = bvNone
Color = clSilver
TabOrder = 8
Visible = False
end
object reviews: TPanel
Left = 103
Top = 120
Width = 689
Height = 414
BevelOuter = bvNone
Color = clFuchsia
TabOrder = 9
Visible = False
object rgametitle: TDBText
Left = 16
Top = 72
Width = 481
Height = 17
end
object rcategory: TDBText
Left = 16
Top = 104
Width = 249
Height = 17
end
object rissuepage: TDBText
Left = 16
Top = 128
Width = 257
Height = 17
end
object rconame: TDBText
Left = 16
Top = 152
Width = 249
Height = 17
end
object raddress: TDBText
Left = 16
Top = 176
Width = 249
Height = 17
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 360
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 0
end
object dblook: TDBLookupListBox
Left = 200
Top = 150
Width = 121
Height = 95
TabOrder = 1
end
end
object gamepanel: TPanel
Left = -8
Top = 107
Width = 800
Height = 392
BevelOuter = bvNone
Caption = 'gamepanel'
Color = clBlue
Ctl3D = False
ParentCtl3D = False
TabOrder = 23
Visible = False
object screenie: TMemo
Left = 77
Top = 32
Width = 795
Height = 369
BorderStyle = bsNone
Color = clBlue
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Small Fonts'
Font.Pitch = fpFixed
Font.Style = []
Lines.Strings = (
''
''
''
'Coconut Monkey Adventure'
''
'Copyright 1999 Info-Coconut-Monkey-Com'
''
''
''
''
''
''
''
''
''
''
'')
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object lineinput: TEdit
Left = 32
Top = 367
Width = 753
Height = 26
BorderStyle = bsNone
Color = clBlue
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -20
Font.Name = 'Small Fonts'
Font.Pitch = fpFixed
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
end
object DummyLabel: TEdit
Left = 0
Top = 367
Width = 33
Height = 26
BorderStyle = bsNone
Color = clBlue
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -20
Font.Name = 'Small Fonts'
Font.Pitch = fpFixed
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 2
Text = '>>'
end
end
object paths: TListBox
Left = 24
Top = 96
Width = 97
Height = 25
ItemHeight = 13
TabOrder = 4
Visible = False
end
object ListBox1: TListBox
Left = 640
Top = 520
Width = 145
Height = 49
ItemHeight = 13
Items.Strings = (
'demos.html'
'add-ons.html'
'utilities.html'
'support.html'
'coconut.html'
'database.html'
'')
TabOrder = 2
Visible = False
end
object list: TOutline
Left = 184
Top = 96
Width = 89
Height = 25
OutlineStyle = osPictureText
ItemHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
Color = clBlue
ParentCtl3D = False
Ctl3D = False
TabOrder = 3
Visible = False
BorderStyle = bsNone
ItemSeparator = '\'
PictureOpen.Data = {<image002. BMF 6 (