Програмка для выбора цвета

[FlatX007]

Color in buffer v 1.0.0.1



Программа для выбора цвета из палитры цветов. После выбора код цвета записывается яв буфер обмена.

Возможен выбор цвета в :

1. RGB (десятичном формате)

2. BRG HEX

3. RGB HEX



Это обновлённая предыдущая версия ... даже не обновлённая а переписанная заново.



*** Я накосячил малец если кто скачал програмку (вдруг) перекачайте заново...

[Creat0R]

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

[FlatX007]

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

[FlatX007]

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

[Creat0R]

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





Код:

Код: Выделить всё

#NoTrayIcon
#include 
;
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.

[Yashied]

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



Код:

Код: Выделить всё

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

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

[Creat0R]

Цитата Yashied:



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

Програмка для выбора цвета

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




Цитата FlatX007:



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

Програмка для выбора цвета

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



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



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





Код:

Код: Выделить всё

#NoTrayIcon
#include 
;
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?