![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Bokul |
![]()
Сообщение
#1
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: ![]() ![]() ![]() |
Надо бы програмка, которая возвращает цвет заданного пикселя экрана, желательно в RGB и кодом.
Сообщение отредактировано: Bokul - 18.03.2007 2:30 -------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
![]() ![]() |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Цитата Как перевести TColor в #FFFFFF формат? Либо руками, либо Недавно сам это искал, хотя может это не совсем то что тебе нужно, ибо в некоторых случаях возвращает значения не в виде строки в формате hex Цитата(дркб) В модуле graphics имеются две недокументированные функции: function ColorToString(Color: TColor): string; Если значение TColor является именованным цветом, функция возвращает имя цвета ("clRed"). В противном случае возвращается шестнадцатиричное значение цвета в виде строки. function StringToColor(S: string): TColor; Данная функция преобразует "clRed" или "$0000FF" во внутреннее значение цвета. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 8.07.2025 8:01 |