[Creat0R]

А где программка?

[FlatX007]

Замучился к посту файл прикреплять ... глюки какие-то

[Yashied]

Хороша, а где исходники то?

[Creat0R]

Я кстати вот такое использую для получения цвета (и да, аналогов есть море):

Код:

#NoTrayIcon
#include <Misc.au3>
;

If _IsPressed("10") Then ColorToClip()

Choose_Color()

Func Choose_Color()
    Local $Hwnd = WinGetHandle("")
    Local $Var = _ChooseColor(2, Default, Default, $Hwnd)
    If Not @error Then ClipPut($Var)
EndFunc

Func ColorToClip()
    While _IsPressed("10")
        Sleep(10)
    WEnd

    $PosArr = MouseGetPos()
    $Var = "0x" & Hex(PixelGetColor($PosArr[0], $PosArr[1]), 6)

    ClipPut($Var)

    Exit
EndFunc

Тут если зажать и удерживать Shift перед запуском скрипта, то можно получить цвет под курсором (после отпускания Shift'а).

[Yashied]

А я по старинке, использую Photoshop.

[FlatX007]

А почему если добавить строчки вида ...

Код:

 Local $Hwnd = WinGetHandle("")
    Local $Var = _ChooseColor(2, Default, Default, $Hwnd)

диалог появляется не с угла а немного ближе к центру ?

[Creat0R]

я по старинке, использую Photoshop »

- Это же нужно дождаться его запуска... вобщем на моей машине оно не релевантно.

диалог появляется не с угла а немного ближе к центру ? »

Он появляется в углу текущего окна, если опустить параметр $hWnd, то будет в углу экрана.

Я это сделал в принципе для того чтобы диалог выбора цвета был поверх остальных окон, ну хотябы поверх текущего.

Но я вспомнил что это можно сделать так:

Код:

#NoTrayIcon
#include <Misc.au3>
;

If _IsPressed("10") Then _GetCursorColor_Proc()

_ChooseColor_Proc()

Func _ChooseColor_Proc()
    Local $hWnd = GUICreate("_ChooseColor", -1, -1, -100, -100)
    WinSetOnTop($hWnd, "", 1)

    Local $nColor = _ChooseColor(2, 0, 0, $hWnd)
    If Not @error Then ClipPut($nColor)
EndFunc

Func _GetCursorColor_Proc()
    Local $hUser32Dll = DllOpen("User32.dll")

    While _IsPressed("10", $hUser32Dll)
        Sleep(10)
    WEnd

    DllClose($hUser32Dll)

    Local $aMousePos = MouseGetPos()
    Local $nColor = "0x" & Hex(PixelGetColor($aMousePos[0], $aMousePos[1]), 6)

    ClipPut($nColor)

    Exit
EndFunc

[FlatX007]

Неповериш я уже САМ догадался (а это после юбилея и выпитого коньяка )

Код:

....
$Form1 = GUICreate("", 464, 296, 589, 359)
GUISetState(@SW_HIDE)
Choose_Color()

Func Choose_Color()
    Local $Hwnd = WinGetHandle($Form1)
....

[Belfigor]

А чем вам не понравилась стандартная тулза для определения цвета и прочей инфы под курсором, Au3Info?