home *** CD-ROM | disk | FTP | other *** search
- object AdvForm: TAdvForm
- Left = 275
- Top = 197
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'AdvForm'
- ClientHeight = 295
- ClientWidth = 344
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnKeyPress = FormKeyPress
- OnKeyUp = FormKeyUp
- OnPaint = FormPaint
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object AdvPad: TPanel
- Left = 16
- Top = 16
- Width = 329
- Height = 201
- BevelOuter = bvNone
- Color = clWhite
- TabOrder = 0
- Visible = False
- object ImageBkg: TImage
- Left = 224
- Top = 160
- Width = 40
- Height = 30
- AutoSize = True
- OnMouseDown = FormMouseDown
- OnMouseMove = FormMouseMove
- OnMouseUp = FormMouseUp
- end
- object bX: TImage
- Left = 280
- Top = 160
- Width = 40
- Height = 30
- AutoSize = True
- OnClick = bXClick
- end
- object WebPad: TPanel
- Left = 24
- Top = 16
- Width = 185
- Height = 41
- BevelOuter = bvNone
- Color = clGray
- TabOrder = 0
- object WebMask: TPanel
- Left = 20
- Top = -64
- Width = 313
- Height = 137
- BevelOuter = bvNone
- Color = clBlack
- TabOrder = 0
- object WebBrowser: TWebBrowser
- Left = 0
- Top = 0
- Width = 313
- Height = 137
- Hint = 'Web Browser'
- Align = alClient
- TabOrder = 0
- OnTitleChange = WebBrowserTitleChange
- OnBeforeNavigate2 = WebBrowserBeforeNavigate2
- OnNewWindow2 = WebBrowserNewWindow2
- OnNavigateComplete2 = WebBrowserNavigateComplete2
- ControlData = {
- 4C00000059200000290E00000100000005000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- end
- end
- end
- object NewWebBrowser: TWebBrowser
- Left = 15
- Top = 224
- Width = 322
- Height = 57
- Hint = 'Web Browser'
- TabOrder = 1
- OnBeforeNavigate2 = NewWebBrowserBeforeNavigate2
- ControlData = {
- 4C00000048210000E40500000100000005000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object TimeoutTimer: TTimer
- Enabled = False
- OnTimer = TimeoutTimerTimer
- Left = 16
- Top = 128
- end
- object RepeatTimer: TTimer
- Enabled = False
- OnTimer = RepeatTimerTimer
- Left = 56
- Top = 128
- end
- end
-