untmain.~dfm

来自「如何用delphi在windows 2000 windows xp下实现获取屏幕」· ~DFM 代码 · 共 82 行

object frmGanDict: TfrmGanDict
  Left = 610
  Top = 108
  Width = 280
  Height = 237
  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 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 = 192
    Top = 144
    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') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 3
  end
end