开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
BrowseForm.xfm
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

BrowseForm.xfm：源码内容
  1. object Form1: TForm1
  2.   Left = 236
  3.   Top = 125
  4.   Width = 718
  5.   Height = 526
  6.   VertScrollBar.Range = 29
  7.   ActiveControl = ComboURL
  8.   Caption = 'HtmlEdit'
  9.   Color = clBackground
  10.   PixelsPerInch = 75
  11.   TextHeight = 13
  12.   TextWidth = 6
  13.   object ToolBar1: TToolBar
  14.     Left = 0
  15.     Top = 0
  16.     Width = 718
  17.     Height = 29
  18.     ButtonHeight = 20
  19.     ButtonWidth = 34
  20.     Caption = 'ToolBar1'
  21.     ShowCaptions = True
  22.     TabOrder = 0
  23.     object ToolButton4: TToolButton
  24.       Left = 397
  25.       Top = 4
  26.       Height = 20
  27.       Caption = 'Go'
  28.       ImageIndex = 3
  29.       OnClick = ToolButton4Click
  30.     end
  31.     object ComboURL: TComboBox
  32.       Left = 1
  33.       Top = 4
  34.       Width = 396
  35.       Height = 21
  36.       AutoComplete = True
  37.       ItemHeight = 15
  38.       Items.Strings = (
  39.         'http://www.marcocantu.com'
  40.         'http://www.borland.com'
  41.         'http://community.borland.com')
  42.       TabOrder = 1
  43.       OnKeyPress = ComboURLKeyPress
  44.     end
  45.     object ToolButton2: TToolButton
  46.       Left = 431
  47.       Top = 4
  48.       Height = 20
  49.       Caption = 'Back'
  50.       ImageIndex = 5
  51.       OnClick = ToolButton2Click
  52.     end
  53.   end
  54.   object PageControl1: TPageControl
  55.     Left = 0
  56.     Top = 29
  57.     Width = 718
  58.     Height = 497
  59.     ActivePage = TabSheet1
  60.     Align = alClient
  61.     TabOrder = 1
  62.     object TabSheet1: TTabSheet
  63.       Caption = 'View'
  64.       object TextBrowser1: TTextBrowser
  65.         Left = 0
  66.         Top = 0
  67.         Width = 710
  68.         Height = 448
  69.         Align = alClient
  70.         TabOrder = 0
  71.         OnClick = TextBrowser1Click
  72.         OnHighlightText = TextBrowser1HighlightText
  73.       end
  74.       object StatusBar1: TStatusBar
  75.         Left = 0
  76.         Top = 448
  77.         Width = 710
  78.         Height = 19
  79.         Panels = <>
  80.         SimplePanel = True
  81.       end
  82.     end
  83.     object TabSheet2: TTabSheet
  84.       Caption = 'Source'
  85.       ImageIndex = 1
  86.       object Memo1: TMemo
  87.         Left = 0
  88.         Top = 0
  89.         Width = 710
  90.         Height = 467
  91.         Align = alClient
  92.         ReadOnly = True
  93.         TabOrder = 0
  94.       end
  95.     end
  96.   end
  97.   object IdHTTP1: TIdHTTP
  98.     HandleRedirects = True
  99.     Request.Accept = 'text/html, */*'
  100.     Request.ContentLength = 0
  101.     Request.ContentRangeEnd = 0
  102.     Request.ContentRangeStart = 0
  103.     Request.ProxyPort = 0
  104.     Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
  105.     Left = 48
  106.     Top = 80
  107.   end
  108. end