TIny Info

Farenin üzerine geldiği yeri ve buradaki rengi, etkin uygulama ismiyle birlikte farenin kenarında küçük bir yazıyla görüntüler. Bilgi Kutucuğu.

All ile oluşturulan scriptlerden biri.

Çeşitli sebeplerle sık ihtiyaç duyulan araçlardan biri. Sadeliğiyle eşsiz.

Kod, yine de beklendiğinden fazla satıra sahip (görev çubuğuna binme sorunu sebebiyle – eh, Windows 10’un eksiklerini de biz kapatıyoruz).

Kopyalandığında alınan bilgi (html biçimli renk… v.s.) değiştirilebilir. Kopyalama Ctrl C yerine tıklamayla alınma şeklinde değiştirilebilir. Kullanım alanına göre seçenekler çok.

Kullanım

Üzerine gelinen pikselin etkin pencereye göre koordinatlarını ve rengini görüntüler. Geliştiriciler için kullanışlı bir araçtır.

Ctrl C tuşuna basıldığında bu bilgiler kopyalanır.

Esc tuşuna basıldığında araç kapanır.

Kod

- tiny mouse tooltip info ---.ahk

; Tiny Mouse Info
; gtaking

; 2016 II


; Skrommel @ 2005 WhatColor.ahk ve AU3_Spy'dan esinlendim,
; tabii bu kadar basit programda ne kadar esinlenilebiliyorsa
;  yine de bu Skrommel benim kafada adam, günü bilgisayar başında geçen
;  benim gibi birine çok katkısı oldu, sevdim adamı, bahsederim

; Works on desktop
; Shows coordinates & rgb color value
;  of the pixel under mouse cursor
; Ctrl C to copy


#NoTrayIcon
#NoEnv
#SingleInstance, Ignore
#KeyHistory 0
ListLines Off
SetBatchLines, -1
SetControlDelay, -1
SendMode Input
DetectHiddenWindows, On


; kesik çizgili top 230 | 1402
Menu, Tray, Icon, imageres.dll, 230
Menu, Tray, NoStandard
Menu, Tray, Add, Çıkış, Exiting
Menu, Tray, Default, Çıkış
Menu, Tray, Icon


; taskbar collision fix
; diğer her yerde fareden doğru kurtulan tooltip, görev çubuğu alttayken kurtulmayıp çakışmadan üste fırlıyor
WinGetPos, x, y, , taskbarheight, ahk_class Shell_TrayWnd
if (x == 0 and y != 0) {
    screenycheck := A_ScreenHeight-taskbarheight-66-16      ; tooltip uzunluğu + tooltip fareden uzaklık
    taskbarbot = 1
}

rgbcolor:=p:=s:=win:=x:=y:=lastwin:=lastx:=lasty:=screenx:=screeny:=0
csave := ClipboardAll        ; script boyunca kullanamayacağımız önceki panoyu kaydedelim


SetTimer, Guncelle, 10        ; 10ms = 100hz - bilmem, iyi gibi
OnExit, Exiting


Guncelle:
    win := WinExist("A")
   ; x ve y screen coordinate değil
    MouseGetPos, x, y
    if (win == lastwin and x == lastx and y == lasty) {
       ; fare değişmedi ve aynı pencere, bir şey yapma
    }
    else {
        if (win != lastwin) {
            WinGet, p, ProcessName
            lastwin := win
        }

        PixelGetColor, rgbcolor , x, y, RGB
        rgbcolor := SubStr(rgbcolor, 3)
        s = %x%, %y% 0x%rgbcolor%

        if (taskbarbot == 1) {
            CoordMode, Mouse, Screen
            MouseGetPos, screenx, screeny
            CoordMode, Mouse, Window
           ; screen.y'yi screen.y.check'te durdur, görev çubuğu'na binmesin
            if (screeny > screenycheck) {
                CoordMode, ToolTip, Screen
                ToolTip, ahk_exe %p%`n%x% %y%`n%rgbcolor%`nCtrl C to copy, screenx+16, screenycheck+16
                CoordMode, ToolTip, Window
            }
            else
                ToolTip, ahk_exe %p%`n%x% %y%`n%rgbcolor%`nCtrl C to copy
        }
        else
            ToolTip, ahk_exe %p%`n%x% %y%`n%rgbcolor%`nCtrl C to copy

        lastx := x
        lasty := y
    }
Return


^C::
    Clipboard = %s%
    Clipwait
Return


Exiting:
Esc::
    ToolTip
    Clipboard := csave
ExitApp
Return