Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

Цвета в Delphi   Найти похожие ветки 

 
Slava812 ©   (2006-05-11 15:11) [0]

Я хочу создать маленькую программу для отображения кода цвета (У нас идут занятия по HTML и хотелось бы не рыться в справочников по поиску нужного кода известного цвета).
Как в текстовом поле написать код цвета в шестнадцеричном формате(6 цифр).
Или как перевести TColor в String в шестнадцеричном формате(6 цифр).


 
Джо ©   (2006-05-11 15:17) [1]

Ну, если по-простому, то в HTML-цвет можно перевести как-то так:

function ColorToHtml (Color: TColor): string;
begin
 Result := Format ("#%.2x%.2x%.2x",
   [GetRValue(Color),GetGValue(Color),GetBValue(Color)]);
end;


 
Jeer ©   (2006-05-11 15:21) [2]


> нужного кода известного цвета


Интересно, а каким параметром этот цвет известен ?
Серо-буро-малиновый в крапинку ?


 
McSimm ©   (2006-05-11 15:23) [3]

TColor в 16м формате далек от HTML представления цвета - цвета идут в противоположном порядке и старший байт у TColor может не нулевым быть.

Посмотрите функции Format, ColorToRgb, GetRValue (G|B), BinToHex
(имена по пямяти, но кажется не ошибся)


 
Slava812 ©   (2006-05-11 15:24) [4]

спасибо помогло!


 
iZEN ©   (2006-05-11 17:02) [5]

Slava812 ©   (11.05.06 15:11) , есть замечательная бесплатная программулина: Pixi (http://natty.port5.com)
Показывает цвет под курсором мыши в разных форматах: HEX (0xFFFFFF), HTML (#FFFFFF), RGB (255,255,255), CMYK (0,0,0,0), HSV (0,0,100).


 
antonn ©   (2006-05-11 18:12) [6]

iZEN ©   (11.05.06 17:02) [5]
хех, а я себе сам писал...


 
oldman ©   (2006-05-11 18:15) [7]


> хотелось бы не рыться в справочников по поиску нужного кода
> известного цвета


А это таки самый короткий путь...
:)))



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.038 c
1-1146055172
Deka
2006-04-26 16:39
2006.06.04
Импорт функций из сишной DLL... Вроде все просто, а не работает.


2-1146828997
JorSand
2006-05-05 15:36
2006.06.04
НОВОЕ в MDI


2-1147855148
Мурзилка
2006-05-17 12:39
2006.06.04
Изображение на кнопках


2-1147686587
Keks
2006-05-15 13:49
2006.06.04
ОЗУ компьютера


2-1147878626
Sapan
2006-05-17 19:10
2006.06.04
Создание процедуры в Delphi7





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский