home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 239
- Top = 125
- Width = 663
- Height = 470
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- Caption = 'Lord of the Rings Map'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- ShowHint = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel3: TBevel
- Left = 6
- Top = 6
- Width = 414
- Height = 403
- end
- object PaintBox1: TPaintBox
- Left = 8
- Top = 8
- Width = 410
- Height = 399
- Color = clNone
- ParentColor = False
- OnMouseDown = PaintBox1MouseDown
- OnMouseUp = PaintBox1MouseUp
- OnPaint = ShowMap
- end
- object Bevel4: TBevel
- Left = 433
- Top = 6
- Width = 204
- Height = 182
- end
- object PaintBox2: TPaintBox
- Left = 435
- Top = 8
- Width = 200
- Height = 178
- OnClick = PaintBox2Click
- OnMouseDown = PaintBox2MouseDown
- OnMouseMove = PaintBox2MouseMove
- OnPaint = ShowMap
- end
- object Panel1: TPanel
- Left = 428
- Top = 200
- Width = 220
- Height = 218
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object Label1: TLabel
- Left = 7
- Top = 4
- Width = 36
- Height = 13
- Caption = 'Select :'
- end
- object Label2: TLabel
- Left = 7
- Top = 52
- Width = 40
- Height = 13
- Caption = 'Search :'
- end
- object Label3: TLabel
- Left = 7
- Top = 100
- Width = 78
- Height = 13
- Caption = 'Animation speed'
- end
- object Label4: TLabel
- Left = 8
- Top = 148
- Width = 23
- Height = 13
- Caption = 'Slow'
- end
- object Label5: TLabel
- Left = 139
- Top = 148
- Width = 20
- Height = 13
- Caption = 'Fast'
- end
- object Label6: TLabel
- Left = 176
- Top = 52
- Width = 36
- Height = 13
- Alignment = taRightJustify
- Caption = '0 found'
- end
- object ComboBox1: TComboBox
- Left = 6
- Top = 20
- Width = 209
- Height = 21
- HelpContext = 101
- Style = csDropDownList
- DropDownCount = 12
- ItemHeight = 13
- PopupMenu = PopupMenu1
- TabOrder = 0
- OnChange = ComboBox1Change
- end
- object ComboBox2: TComboBox
- Left = 6
- Top = 68
- Width = 209
- Height = 21
- HelpContext = 102
- ItemHeight = 13
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnChange = ComboBox2Change
- OnKeyPress = ComboBox2KeyPress
- end
- object TrackBar1: TTrackBar
- Left = 6
- Top = 116
- Width = 150
- Height = 33
- HelpContext = 103
- LineSize = 5
- Max = 50
- Min = 10
- Orientation = trHorizontal
- PageSize = 10
- PopupMenu = PopupMenu1
- Frequency = 10
- Position = 20
- SelEnd = 0
- SelStart = 0
- TabOrder = 2
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- end
- object CheckBox1: TCheckBox
- Left = 6
- Top = 168
- Width = 73
- Height = 17
- Caption = 'Animate'
- TabOrder = 3
- end
- object CheckBox2: TCheckBox
- Left = 6
- Top = 186
- Width = 97
- Height = 17
- Caption = 'Crosshairs'
- TabOrder = 4
- OnClick = CheckBox2Click
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 5
- OnTimer = Timer1Timer
- Left = 528
- Top = 144
- end
- object MainMenu1: TMainMenu
- Left = 464
- Top = 144
- object File1: TMenuItem
- Caption = '&File'
- object New1: TMenuItem
- Caption = '&New...'
- Hint = 'Create a new locations file.'
- OnClick = New1Click
- end
- object Addlocations1: TMenuItem
- Caption = '&Edit...'
- Hint = 'Edit the location file.'
- OnClick = Addlocations1Click
- end
- object Selectmap1: TMenuItem
- Caption = 'Select &map'
- Enabled = False
- Visible = False
- OnClick = Selectmap1Click
- object MiddleEarth1: TMenuItem
- Caption = 'Middle Earth'
- GroupIndex = 1
- OnClick = MiddleEarth1Click
- end
- object TheShire1: TMenuItem
- Caption = 'The Shire'
- GroupIndex = 1
- OnClick = TheShire1Click
- end
- object Wilderland1: TMenuItem
- Caption = 'Wilderland'
- GroupIndex = 1
- OnClick = Wilderland1Click
- end
- end
- object SelectLanguage1: TMenuItem
- Caption = 'Select &language'
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Crosscolor1: TMenuItem
- Caption = '&Crosshair color...'
- OnClick = Crosscolor1Click
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = Exit1Click
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- object Help2: TMenuItem
- Caption = '&Help'
- OnClick = Help2Click
- end
- object About1: TMenuItem
- Caption = '&About'
- OnClick = About1Click
- end
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 496
- Top = 144
- object Whatsthis1: TMenuItem
- Caption = 'What'#39's this?'
- OnClick = Whatsthis1Click
- end
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Left = 560
- Top = 144
- end
- end
-