显示透明文字函数:TransTip() By FeiYue

;------------------------------
; 显示透明文字函数:TransTip()  By FeiYue
; s ------> 显示的文字,如果为空,会清除当前的显示
; x, y ---> 显示的屏幕坐标
; font ---> 设定字体大小、颜色和样式,采用Gui的Font命令格式
;------------------------------

TransTip(s="", x=500, y=0, font="s36 cRed bold")
{
  static
  if (s="")
  {
    last:=""
    Gui, TransTip: Destroy
    return
  }
  if (last != font "|" s)
  {
    last:=font "|" s, last_xy:=""
    ;------------------
    Gui, TransTip: Destroy
    Gui, TransTip: +AlwaysOnTop -Caption +ToolWindow +Hwndid +E0x20
    Gui, TransTip: Margin, 0, 0
    Gui, TransTip: Color, EEAA99
    Gui, TransTip: Font, Q3 %font%
    Gui, TransTip: Add, Text,, %s%
    Gui, TransTip: Show, Hide, TransTip
    ;------------------
    dhw:=A_DetectHiddenWindows
    DetectHiddenWindows, On
    WinSet, TransColor, EEAA99 150, ahk_id %id%
    DetectHiddenWindows, %dhw%
  }
  Gui, TransTip: +AlwaysOnTop
  if (last_xy != x "|" y)
  {
    last_xy:=x "|" y, x:=Round(x), y:=Round(y)
    Gui, TransTip: Show, NA x%x% y%y%
  }
}

;-- 滚动显示信息的例子
txt:=A_YYYY "年" A_MM "月" A_DD "日"
SetBatchLines, -1
Loop, % A_ScreenWidth
  TransTip(txt, A_ScreenWidth-A_Index, 0, "s36 cRed bold")
return

Pause::Pause

F1:: (ok:=!ok) ? TransTip("你好!", 600, 200, "s72") : TransTip()

人已赞赏
AHKV1

LightningRenamer

2020-4-1 13:04:35

AHKV1学习成名作河许人作品集精选内容

FindText ()7.3- 屏幕抓字生成字库工具与找字函数——FeiYue

2020-4-1 13:10:35

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
有新消息 消息中心
搜索