home *** CD-ROM | disk | FTP | other *** search
- object PageListForm: TPageListForm
- Left = 65
- Top = 171
- Width = 640
- Height = 200
- Caption = 'HTML Pages Inspected'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {<image000.ico>}
- Position = poDefaultPosOnly
- Visible = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- PixelsPerInch = 120
- TextHeight = 16
- object PageListView: TExtendedListView
- Left = 0
- Top = 0
- Width = 632
- Height = 154
- Align = alClient
- ColumnClick = False
- OnDblClick = ViewHTMLReportClick
- Columns = <
- item
- Caption = 'Name'
- Width = 6
- WidthType = (
- -1)
- end
- item
- Caption = 'Size'
- Width = 12
- WidthType = (
- -1)
- end
- item
- Caption = 'Load Size'
- Width = 72
- WidthType = (
- -2)
- end
- item
- Alignment = taCenter
- Caption = 'Updated'
- Width = 75
- end
- item
- Alignment = taCenter
- Caption = 'Inspected'
- Width = 75
- end
- item
- Caption = 'Inspection Result'
- Width = 12
- WidthType = (
- -1)
- end
- item
- end>
- ReadOnly = True
- HideSelection = False
- PopupMenu = PopupMenu
- SortType = stText
- TabOrder = 0
- ViewStyle = vsReport
- ExtendedStyle = [lvexFullRowSelect]
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 154
- Width = 632
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object PopupMenu: TPopupMenu
- OnPopup = PopupMenuPopup
- Left = 112
- Top = 96
- object ExploreFromPage: TMenuItem
- Caption = 'Explore From Page'
- ShortCut = 0
- OnClick = ExploreFromPageClick
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MarkasCommonLink: TMenuItem
- Caption = 'Mark as Common Link'
- ShortCut = 0
- OnClick = MarkasCommonLinkClick
- end
- object N4: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object OpenPageBrowser: TMenuItem
- Caption = 'Open Page in Browser(s)'
- ShortCut = 0
- OnClick = OpenPageBrowserClick
- end
- object OpenPageEditor: TMenuItem
- Caption = 'Open Page in HTML Editor'
- ShortCut = 0
- OnClick = OpenPageEditorClick
- end
- object OpenPageSiteHog: TMenuItem
- Caption = 'Edit Page in SiteHog'
- ShortCut = 0
- OnClick = EditPageClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ViewHTMLReport: TMenuItem
- Caption = 'View HTML Report'
- ShortCut = 0
- OnClick = ViewHTMLReportClick
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ClearPageList: TMenuItem
- Caption = 'Clear Page List'
- ShortCut = 0
- OnClick = ClearPageListClick
- end
- end
- end
-