home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
500 Game Surplus
/
XSurplus.iso
/
165
/
BIGCITY.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1997-05-01
|
13KB
|
392 lines
object Form1: TForm1
Left = 72
Top = 67
Width = 531
Height = 376
Caption = 'Big City Lights'
Color = clBlack
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
KeyPreview = True
Menu = MainMenu1
Position = poDefault
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnKeyUp = FormKeyUp
PixelsPerInch = 96
TextHeight = 13
object Image2: TImage
Left = 0
Top = 33
Width = 523
Height = 274
Align = alClient
OnMouseDown = Image2MouseDown
end
object Panel1: TPanel
Left = 0
Top = 307
Width = 523
Height = 23
Align = alBottom
TabOrder = 0
object Panel3: TPanel
Left = 8
Top = 3
Width = 161
Height = 17
BevelOuter = bvLowered
TabOrder = 0
object Image1: TImage
Left = 3
Top = 2
Width = 155
Height = 13
OnMouseDown = Image1MouseDown
end
end
object Panel4: TPanel
Left = 173
Top = 3
Width = 20
Height = 17
BevelOuter = bvLowered
TabOrder = 1
object Image3: TImage
Left = 2
Top = 2
Width = 15
Height = 12
end
end
object Panel5: TPanel
Left = 197
Top = 3
Width = 88
Height = 17
Alignment = taLeftJustify
BevelOuter = bvLowered
Caption = ' Frame'
TabOrder = 2
object Label1: TLabel
Left = 37
Top = 2
Width = 38
Height = 13
AutoSize = False
end
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 523
Height = 33
Align = alTop
BorderWidth = 1
BorderStyle = bsSingle
TabOrder = 1
OnMouseMove = Panel2MouseMove
object SpeedButton1: TSpeedButton
Left = 191
Top = 3
Width = 23
Height = 23
Hint = 'Previous'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77707777777777F77770777777777CF7777077777777CCF777707777777CCCF7
7770777777CCCCF7777077777CCCCCF777707777CCCCCCF7777077777CCCCCF7
7770777777CCCCF777707777777CCCF7777077777777CCF77770777777777C77
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 214
Top = 3
Width = 23
Height = 23
Hint = 'Next'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777077777FF77777777077777CFF7777777077777CCFF777777077777CCCFF77
777077777CCCCFF7777077777CCCCCFF777077777CCCCCC7777077777CCCCC77
777077777CCCC777777077777CCC7777777077777CC77777777077777C777777
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object SpeedButton4: TSpeedButton
Left = 168
Top = 3
Width = 23
Height = 23
Hint = 'First'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77707777F7777777F770777CF777777CF770777CF77777CCF770777CF7777CCC
F770777CF777CCCCF770777CF77CCCCCF770777CF7CCCCCCF770777CF77CCCCC
F770777CF777CCCCF770777CF7777CCCF770777CF77777CCF770777C7777777C
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton4Click
end
object SpeedButton3: TSpeedButton
Left = 88
Top = 3
Width = 23
Height = 23
Hint = 'Add'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77707777777FF777777077777799F777777077777799F777777077777799F777
777077777799F777777077FFFF99FFFFFF707999999999999F70799999999999
9F7077777799F777777077777799F777777077777799F777777077777799F777
777077777799777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = Add1Click
end
object SpeedButton5: TSpeedButton
Left = 272
Top = 3
Width = 23
Height = 23
Hint = 'Play'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777077777FF777777770777775FF777777707777755FF777777077777555FF77
7770777775555FF777707777755555FF77707777755555577770777775555577
7770777775555777777077777555777777707777755777777770777775777777
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 295
Top = 3
Width = 23
Height = 23
Hint = 'Stop'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7770777777777777777077777777777777707777FFFFFFFF777077755555555F
777077755555555F777077755555555F777077755555555F777077755555555F
777077755555555F777077755555555F77707775555555577770777777777777
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton6Click
end
object SpeedButton7: TSpeedButton
Left = 237
Top = 3
Width = 23
Height = 23
Hint = 'Last'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777077FF7777777F777077CFF77777CF777077CCFF7777CF777077CCCFF777CF
777077CCCCFF77CF777077CCCCCFF7CF777077CCCCCC77CF777077CCCCC777CF
777077CCCC7777CF777077CCC77777CF777077CC777777CF777077C7777777C7
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton7Click
end
object SpeedButton8: TSpeedButton
Left = 27
Top = 3
Width = 23
Height = 23
Hint = 'Open'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77707FFFFFFFFFFFF770700000000000FF7070B0888888880F7070BB08888888
0FF070BBB088888880F070BBB088888880F070BBBB088888880070BBBBB00000
000070BBBBBBBBBB077070BBBBBBBBBB077070BBB00000000770700007777777
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = Open1Click
end
object SpeedButton9: TSpeedButton
Left = 50
Top = 3
Width = 23
Height = 23
Hint = 'Save'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777FFFFFFFFF
FFF077000000000000F070AA0000770AA0F070AA0000770AA0F070AA0000770A
A0F070AA0000000AA0F070AAAAAAAAAAA0F070AA0000000AA0F070AA0777770A
A0F070AA0777770AA0F070AA0777770AA0F070AA0777770AA0F0700000000000
007077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SaveAs1Click
end
object SpeedButton10: TSpeedButton
Left = 4
Top = 3
Width = 23
Height = 23
Hint = 'New'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777077777777777777707777777777777770777777FFFF777770777778BBBBF7
777077778BBBBBBF777077778BBBBBBF777077778BBBBBBF777077778BBBBBBF
777077778BBBBBBF7770777778BBBB8777707777778888777770777777777777
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = New1Click
end
object Update: TSpeedButton
Left = 111
Top = 3
Width = 23
Height = 23
Hint = 'Update'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777077777777777777707777F77777777770777F9F777777777077F999F77777
777077F9999F777777707F999999F77777707F9997999F7777707999977999F7
777077997777999F7770777977777999F7707777777777999F70777777777779
99F077777777777799907777777777777990}
ParentShowHint = False
ShowHint = True
OnClick = UpdateClick
end
object SpeedButton11: TSpeedButton
Left = 134
Top = 3
Width = 23
Height = 23
Hint = 'Delete'
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000F0000000F0000000100
0400000000007800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7770777777777777777077777777777777707777777777777770777777777777
7770777777777777777077FFFFFFFFFFFF707999999999999F70799999999999
9F70777777777777777077777777777777707777777777777770777777777777
777077777777777777707777777777777770}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton11Click
end
end
object MainMenu1: TMainMenu
Left = 8
Top = 104
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object New1: TMenuItem
Caption = '&New'
ShortCut = 0
OnClick = New1Click
end
object Open1: TMenuItem
Caption = '&Open'
ShortCut = 0
OnClick = Open1Click
end
object SaveAs1: TMenuItem
Caption = '&Save As'
ShortCut = 0
OnClick = SaveAs1Click
end
object About1: TMenuItem
Caption = '&About..'
ShortCut = 0
OnClick = About1Click
end
end
object Functions1: TMenuItem
Caption = 'Functions'
ShortCut = 0
object Eraseunusedcircles1: TMenuItem
Caption = '&Erase Grid'
ShortCut = 0
Visible = False
OnClick = Eraseunusedcircles1Click
end
object Add1: TMenuItem
Caption = '&Add'
ShortCut = 0
OnClick = Add1Click
end
object Update1: TMenuItem
Caption = '&Update'
ShortCut = 0
OnClick = UpdateClick
end
end
end
object SaveDialog1: TSaveDialog
DefaultExt = 'cty'
FileEditStyle = fsEdit
Filter = 'Big City Lights|*.cty'
Left = 8
Top = 72
end
object OpenDialog1: TOpenDialog
DefaultExt = 'cty'
FileEditStyle = fsEdit
Filter = 'Big City Lights|*.cty'
Left = 8
Top = 40
end
object FormSizer1: TFormSizer
CompanyName = 'DollarWare'
ApplicationName = 'BigCityLights'
Left = 8
Top = 136
end
end