-
AutoIt
(
http://forum.oszone.net/forumdisplay.php?f=103)
Програмка для выбора цвета
Color in buffer v 1.0.0.1
Программа для выбора цвета из палитры цветов. После выбора код цвета записывается яв буфер обмена.
Возможен выбор цвета в :
1. RGB (десятичном формате)
2. BRG HEX
3. RGB HEX
Это обновлённая предыдущая версия ... даже не обновлённая а переписанная заново.
*** Я накосячил малец если кто скачал програмку (вдруг) перекачайте заново...
|
А где программка? :search:
|
Замучился к посту файл прикреплять ... глюки какие-то
|
Хороша, а где исходники то?
|
Я кстати вот такое использую для получения цвета (и да, аналогов есть море):
Код:
#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'а). |
А я по старинке, использую Photoshop.
|
А почему если добавить строчки вида ...
Код:
Local $Hwnd = WinGetHandle("")
Local $Var = _ChooseColor(2, Default, Default, $Hwnd)
диалог появляется не с угла а немного ближе к центру ? |
Цитата:
Цитата Yashied
я по старинке, использую Photoshop »
|
:o - Это же нужно дождаться его запуска... вобщем на моей машине оно не релевантно.
Цитата:
Цитата FlatX007
диалог появляется не с угла а немного ближе к центру ? »
|
Он появляется в углу текущего окна, если опустить параметр $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
|
Неповериш я уже САМ догадался :) (а это после юбилея и выпитого коньяка )
Код:
....
$Form1 = GUICreate("", 464, 296, 589, 359)
GUISetState(@SW_HIDE)
Choose_Color()
Func Choose_Color()
Local $Hwnd = WinGetHandle($Form1)
....
|
А чем вам не понравилась стандартная тулза для определения цвета и прочей инфы под курсором, Au3Info?
|
Цитата:
Цитата Creat0R
- Это же нужно дождаться его запуска... вобщем на моей машине оно не релевантно. »
|
Предлагаю скинуться Creat0R-у, на быстрый комп ! :smirk: ))))))))))) |
Цитата:
Цитата Belfigor
А чем вам не понравилась стандартная тулза для определения цвета и прочей инфы под курсором, Au3Info? »
|
Если я не ошибаюсь, то там можно взять цвет только из под кусора... А в фотошопе и у Creator'a наглядная имеется палитра цветов...
Цитата:
Цитата proxy
Предлагаю скинуться Creat0R-у, на быстрый комп ! ))))))))))) »
|
У меня дома 3 стоит... поделиться? ;) |
Цитата:
Цитата sashadeg
У меня дома 3 стоит... поделиться? »
|
Ну так!! Что тянуть!! Если машинка достойная, в поссылку её и на адрес: на forum.oszone.net, в AutoIt, Creat0R-у! ;) |
Цитата:
Цитата proxy
Ну так!! Что тянуть!! Если машинка достойная, в поссылку её и на адрес: на forum.oszone.net, в AutoIt, Creat0R-у! »
|
Немного получше, чем тот что у него... Хотя можно ноут... Да зачем он ему???
Так, ладно, хватить уже наверное флудить... |
Время: 00:08.
© OSzone.net 2001-
