urlgrabbermainform.xfm

JNI(java本地接口)之delphi版

object URLGrabberForm: TURLGrabberForm
  Left = 216
  Top = 208
  Width = 600
  Height = 400
  ActiveControl = btnLoadVM
  Caption = 'URLGrabber'
  Color = clButton
  Constraints.MinHeight = 400
  Constraints.MinWidth = 600
  Font.Color = clText
  Font.Height = 8
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  Position = poDesktopCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 75
  TextHeight = 11
  TextWidth = 4
  object lblURLs: TLabel
    Left = 3
    Top = 257
    Width = 27
    Height = 11
    Anchors = [akLeft, akBottom]
    Caption = '&URLs'
    FocusControl = lstURLs
    Layout = tlCenter
  end
  object mmoHTML: TMemo
    Left = 1
    Top = 6
    Width = 591
    Height = 228
    Anchors = [akLeft, akTop, akRight, akBottom]
    Constraints.MinWidth = 591
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 8
  end
  object btnLoadVM: TButton
    Left = 124
    Top = 243
    Width = 104
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Load VM'
    TabOrder = 1
    OnClick = btnLoadVMClick
  end
  object btnCallClassMethod: TButton
    Left = 248
    Top = 243
    Width = 104
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Call class method'
    Enabled = False
    TabOrder = 3
    OnClick = btnCallClassMethodClick
  end
  object btnCallMethodFromThread: TButton
    Left = 364
    Top = 243
    Width = 103
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Call method from thread'
    Enabled = False
    TabOrder = 4
    OnClick = btnCallMethodFromThreadClick
  end
  object btnCallObjectMethod: TButton
    Left = 248
    Top = 270
    Width = 104
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Call object method'
    Enabled = False
    TabOrder = 5
    OnClick = btnCallObjectMethodClick
  end
  object btnCreateMultipleThreads: TButton
    Left = 364
    Top = 270
    Width = 103
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Create multiple threads'
    Enabled = False
    TabOrder = 6
    OnClick = btnCreateMultipleThreadsClick
  end
  object lstURLs: TComboBox
    Left = 3
    Top = 270
    Width = 225
    Height = 19
    Anchors = [akLeft, akRight, akBottom]
    DropDownCount = 12
    ItemHeight = 13
    Items.Strings = (
      'http://delphi-jedi.org'
      'http://www.pacifier.com/~mmead/jni/delphi/index.html'
      'http://www.borland.com'
      'http://www.techvanguards.com'
      'http://www.yahoo.com'
      'http://www.google.com'
      'http://www.netscape.com'
      'http://www.altavista.com'
      'http://www.planetquake.com'
      'http://www.real.com'
      'http://www.amazon.com'
      'http://www.grc.com'
      'http://www.nevrona.com'
      'http://www.raize.com'
      'http://www.gexperts.org'
      'http://www.toolsfactory.com')
    TabOrder = 7
    Text = 'http://delphi-jedi.org'
  end
  object barStatus: TStatusBar
    Left = 0
    Top = 384
    Width = 600
    Height = 16
    Align = alBottom
    Panels = <
      item
        PanelPosition = ppLeft
        Text = 'Ready.'
        Visible = True
        Width = 150
      end>
    ParentFont = True
  end
end