un_js.dfm

屏幕取词的delphi代码

object frm_hint: Tfrm_hint
  Left = 192
  Top = 179
  AlphaBlend = True
  AlphaBlendValue = 244
  BorderStyle = bsNone
  Caption = 'frm_hint'
  ClientHeight = 248
  ClientWidth = 358
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object TntPanel1: TTntPanel
    Left = 0
    Top = 0
    Width = 358
    Height = 248
    Align = alClient
    BevelOuter = bvLowered
    Color = 14155775
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    object bvl1: TBevel
      Left = 1
      Top = 1
      Width = 356
      Height = 10
      Align = alTop
      Shape = bsSpacer
    end
    object TntToolBar1: TTntToolBar
      Left = 1
      Top = 11
      Width = 356
      Height = 40
      AutoSize = True
      ButtonHeight = 38
      ButtonWidth = 39
      Flat = True
      Images = il1
      TabOrder = 0
      object TntToolButton1: TTntToolButton
        Left = 0
        Top = 0
        Caption = 'TntToolButton1'
        ImageIndex = 0
      end
      object TntToolButton2: TTntToolButton
        Left = 39
        Top = 0
        Caption = 'TntToolButton2'
        ImageIndex = 1
      end
      object TntToolButton3: TTntToolButton
        Left = 78
        Top = 0
        Caption = 'TntToolButton3'
        ImageIndex = 2
      end
    end
  end
  object il1: TImageList
    AllocBy = 16
    DrawingStyle = dsTransparent
    Height = 32
    Width = 32
    Left = 104
    Top = 96
  end
end