Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Програмка для выбора цвета

Ответить
Настройки темы
Програмка для выбора цвета

Аватара для FlatX007

Ветеран


Сообщения: 553
Благодарности: 87

Профиль | Отправить PM | Цитировать


Изменения
Автор: FlatX007
Дата: 07-08-2009
Color in buffer v 1.0.0.1

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


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

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

Отправлено: 23:50, 27-06-2009

 

Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 3054
Благодарности: 1008

Профиль | Сайт | Отправить PM | Цитировать


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

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community


Отправлено: 23:56, 27-06-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для FlatX007

Ветеран


Сообщения: 553
Благодарности: 87

Профиль | Отправить PM | Цитировать


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

Отправлено: 23:58, 27-06-2009 | #3


Аватара для Yashied

Старожил


Сообщения: 206
Благодарности: 88

Профиль | Отправить PM | Цитировать


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

Отправлено: 23:59, 27-06-2009 | #4


Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 3054
Благодарности: 1008

Профиль | Сайт | Отправить PM | Цитировать


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

Код: Выделить весь код
#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'а).

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:00, 28-06-2009 | #5


Аватара для Yashied

Старожил


Сообщения: 206
Благодарности: 88

Профиль | Отправить PM | Цитировать


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

Отправлено: 00:03, 28-06-2009 | #6


Аватара для FlatX007

Ветеран


Сообщения: 553
Благодарности: 87

Профиль | Отправить PM | Цитировать


А почему если добавить строчки вида ...
Код: Выделить весь код
 Local $Hwnd = WinGetHandle("")
    Local $Var = _ChooseColor(2, Default, Default, $Hwnd)
диалог появляется не с угла а немного ближе к центру ?

Отправлено: 00:17, 28-06-2009 | #7


Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 3054
Благодарности: 1008

Профиль | Сайт | Отправить PM | Цитировать


Цитата Yashied:
я по старинке, использую Photoshop »
- Это же нужно дождаться его запуска... вобщем на моей машине оно не релевантно.

Цитата 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

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:41, 28-06-2009 | #8


Аватара для FlatX007

Ветеран


Сообщения: 553
Благодарности: 87

Профиль | Отправить PM | Цитировать


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

Код: Выделить весь код
....
$Form1 = GUICreate("", 464, 296, 589, 359)
GUISetState(@SW_HIDE)
Choose_Color()

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

Отправлено: 00:45, 28-06-2009 | #9


Аватара для Belfigor

Пользователь


Сообщения: 87
Благодарности: 11

Профиль | Отправить PM | Цитировать


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

Отправлено: 04:59, 28-06-2009 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Програмка для выбора цвета

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Ещё одна программа для выбора приложений для установки hb860 Автоматическая установка Windows 2000/XP/2003 14 24-11-2010 10:37
Небольшая програмка для выбора запускаемой OS speechless AutoIt 4 15-02-2009 10:43
Програмка для монтирования в windows .... INTELLIGENTIK Программное обеспечение Linux и FreeBSD 2 13-03-2007 14:36
Нужна програмка для храннения списков дисков, кассет и т.п. azs Программное обеспечение Windows 15 24-03-2005 16:46
Програмка для CD-RW... Guest Хочу все знать 8 29-04-2004 22:33




 
Переход