untmain.dfm

屏幕取词的delphi代码

object frmGanDict: TfrmGanDict
  Left = 34
  Top = 313
  Width = 944
  Height = 323
  Caption = 'Gan'#39's Free Dict'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lblHwnd: TLabel
    Left = 8
    Top = 8
    Width = 76
    Height = 13
    Caption = 'Window Handle'
  end
  object lblMousePos: TLabel
    Left = 8
    Top = 152
    Width = 56
    Height = 13
    Caption = 'Mouse Pos:'
  end
  object lblFontWidth: TLabel
    Left = 8
    Top = 192
    Width = 52
    Height = 13
    Caption = 'Font Width'
  end
  object lblRect: TLabel
    Left = 8
    Top = 176
    Width = 23
    Height = 13
    Caption = 'Rect'
  end
  object lbl1: TLabel
    Left = 8
    Top = 208
    Width = 16
    Height = 13
    Caption = 'lbl1'
  end
  object tntl1: TTntLabel
    Left = 400
    Top = 208
    Width = 20
    Height = 13
    Caption = 'tntl1'
  end
  object btnLoad: TButton
    Left = 104
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Load'
    TabOrder = 0
    OnClick = btnLoadClick
  end
  object btnUnLoad: TButton
    Left = 192
    Top = 112
    Width = 75
    Height = 25
    Caption = 'UnLoad'
    TabOrder = 1
    OnClick = btnUnLoadClick
  end
  object btnAbout: TButton
    Left = 272
    Top = 112
    Width = 75
    Height = 25
    Caption = 'About'
    TabOrder = 2
    OnClick = btnAboutClick
  end
  object memoThunk: TMemo
    Left = 8
    Top = 24
    Width = 257
    Height = 81
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 3
  end
  object TntMemo1: TTntMemo
    Left = 0
    Top = 232
    Width = 897
    Height = 49
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Lines.Strings = (
      'TntMemo1')
    TabOrder = 4
  end
  object btn1: TButton
    Left = 136
    Top = 0
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 5
    OnClick = btn1Click
  end
end