urlgrabbermainform.dfm

JNI(java本地接口)之delphi版

object URLGrabberForm: TURLGrabberForm
  Left = 263
  Top = 120
  Width = 600
  Height = 400
  ActiveControl = btnLoadVM
  Caption = 'URLGrabber'
  Color = clBtnFace
  Constraints.MinHeight = 400
  Constraints.MinWidth = 600
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lblURLs: TLabel
    Left = 4
    Top = 304
    Width = 27
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = '&URLs'
    FocusControl = lstURLs
  end
  object mmoHTML: TMemo
    Left = 2
    Top = 8
    Width = 591
    Height = 269
    Anchors = [akLeft, akTop, akRight, akBottom]
    Constraints.MinWidth = 591
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object btnLoadVM: TButton
    Left = 156
    Top = 288
    Width = 129
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Load VM'
    TabOrder = 1
    OnClick = btnLoadVMClick
  end
  object btnCallClassMethod: TButton
    Left = 311
    Top = 288
    Width = 129
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Call class method'
    Enabled = False
    TabOrder = 3
    OnClick = btnCallClassMethodClick
  end
  object btnCallMethodFromThread: TButton
    Left = 455
    Top = 288
    Width = 129
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Call method from thread'
    Enabled = False
    TabOrder = 4
    OnClick = btnCallMethodFromThreadClick
  end
  object btnCallObjectMethod: TButton
    Left = 311
    Top = 320
    Width = 129
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Call object method'
    Enabled = False
    TabOrder = 5
    OnClick = btnCallObjectMethodClick
  end
  object btnCreateMultipleThreads: TButton
    Left = 455
    Top = 320
    Width = 129
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Create multiple threads'
    Enabled = False
    TabOrder = 6
    OnClick = btnCreateMultipleThreadsClick
  end
  object lstURLs: TComboBox
    Left = 4
    Top = 320
    Width = 281
    Height = 21
    Anchors = [akLeft, akRight, akBottom]
    DropDownCount = 12
    ItemHeight = 13
    TabOrder = 2
    Text = 'http://delphi-jedi.org'
    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')
  end
  object barStatus: TStatusBar
    Left = 0
    Top = 354
    Width = 592
    Height = 19
    Panels = <
      item
        Text = 'Ready.'
        Width = 150
      end>
    SimplePanel = False
  end
end