Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизПеревод TColor в HEX Найти похожие ветки
← →
Netcoder (2002-12-13 08:12) [0]Мастера, подскажите пожалуйста, как перевести Color в HEX. Короче, как в HTML редакторах.
← →
zavdim (2002-12-13 09:31) [1]function GetHexFrom(a : TColor) : string;
var r,g,b : integer;
begin
b := a div $10000;
g := (a mod $10000) div $100;
r := a mod $100;
Result := intToHex(r,2)+intToHex(g,2)+intToHex(b,2)
end;
← →
Гарик (2002-12-13 09:35) [2]ColorToRGB
получаешь цвет в HEX: RRGGBB
это имелось ввиду?
← →
Netcoder (2002-12-13 09:48) [3]Спасибо
← →
zavdim (2002-12-13 10:21) [4]2 Гарик
function ColorToRGB(Color: TColor): Longint;
в HEX - это еще не перешло, и такую например строку мы не получим #ffA076.
Но и мне можно добавить следующее:
a := a and $1000000;
← →
Гарик (2002-12-13 11:02) [5]2zavdim
> такую например строку мы не получим #ffA076.
почему
Form1.Color := $ffA076;
ShowMessage(IntToHex(ColorToRGB(Form1.Color),6))
получаем именно такую строку или речь не об этом?
← →
Anatoly Podgoretsky (2002-12-13 11:10) [6]У него там понапутано, и HEX и HTML, они ек пвыеф дпун другу
1. #BBGGRR
2. #RRGGBB
← →
zavdim (2002-12-13 12:12) [7]2 Гарик
я и говорю, что без IntToHex не убежишь. И я не пробовал, но в вашем случае точно RGB будет, а не BRG ? ....
Так - попробовал - не HTML формат, а как в Дельфи BRG.
2 Anatoly Podgoretsky ©
А можно предпоследнее повторить и чуть медленнее :-))
← →
zavdim (2002-12-13 12:15) [8]тоесть BGR.
← →
Anatoly Podgoretsky (2002-12-13 12:34) [9]Превращение происходит в текстовую строку по правилам работы с числами, справа младшии разряды, никакой разницы по сравнению с десятичными, только что по модулю 16
← →
zavdim (2002-12-13 12:48) [10]вот и я говорю. поэтому и разница с HTML.
Delphi и HTML по разному цвета нумеруют.
RGB - BGR.
← →
Гарик (2002-12-13 13:16) [11]Да, действительно, надо переворачивать "делфийский" цвет, чтобы получить такой же в Html. Т.е. в Delphi BGR.
из graphics.pas:
clRed = TColor($0000FF);
clBlue = TColor($FF0000);
← →
Netcoder (2002-12-14 10:23) [12]Функция zavdima вроде сработала. Спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c