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

[FlatX007]

Color in buffer v 1.0.0.1

Программа для выбора цвета из палитры цветов. После выбора код цвета записывается яв буфер обмена.
Возможен выбор цвета в :
1. RGB (десятичном формате)
2. BRG HEX
3. RGB HEX

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

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

[Creat0R]

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

[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 »
:o - Это же нужно дождаться его запуска... вобщем на моей машине оно не релевантно.

диалог появляется не с угла а немного ближе к центру ? »
Он появляется в углу текущего окна, если опустить параметр $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?

[proxy]

- Это же нужно дождаться его запуска... вобщем на моей машине оно не релевантно. »
Предлагаю скинуться Creat0R-у, на быстрый комп ! :smirk: )))))))))))

[sashadeg]

А чем вам не понравилась стандартная тулза для определения цвета и прочей инфы под курсором, Au3Info? »
Если я не ошибаюсь, то там можно взять цвет только из под кусора... А в фотошопе и у Creator'a наглядная имеется палитра цветов...
Предлагаю скинуться Creat0R-у, на быстрый комп ! ))))))))))) »
У меня дома 3 стоит... поделиться? ;)

[proxy]

У меня дома 3 стоит... поделиться? »
Ну так!! Что тянуть!! Если машинка достойная, в поссылку её и на адрес: на forum.oszone.net, в AutoIt, Creat0R-у! ;)

[sashadeg]

Ну так!! Что тянуть!! Если машинка достойная, в поссылку её и на адрес: на forum.oszone.net, в AutoIt, Creat0R-у! »
Немного получше, чем тот что у него... Хотя можно ноут... Да зачем он ему???

Так, ладно, хватить уже наверное флудить...