Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


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

Профиль | Сайт | Отправить 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 - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

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

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