Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Мастера, как сгенерить код HTML цвета типа #FFCECE, #FFFFFF   Найти похожие ветки 

← →
Layner ©   (2004-03-09 14:14) [0]

и т.п., т.е. надо 100 получить значений красного, я могу прогнать цикл по красному цвету,
for i:=1 to 250 do
color:=RGB(i,255,255); //например
Можно шаг установить..
..А как вот это значение конвертнуть в HTML формат цвета... т.е. в Буквы. Может кто знает? Заранее спасибо.

---

← →
Плохиш   (2004-03-09 14:19) [1]

IntToHex

---

← →
YuRock ©   (2004-03-09 14:20) [2]


 "#" + PadL(Format("%x", [GetRValue(Color)]), 2, "0") +
       PadL(Format("%x", [GetGValue(Color)]), 2, "0") +
       PadL(Format("%x", [GetBValue(Color)]), 2, "0");


Надеюсь, понятно, зачем здесь нужна ф-ция PadL?

---

← →
Layner ©   (2004-03-09 14:44) [3]

Плохиш   (09.03.04 14:19)
А как это же в стринг преобразовать?

---

← →
Anatoly Podgoretsky ©   (2004-03-09 14:50) [4]

Еще раз?

---

← →
Плохиш   (2004-03-09 14:56) [5]

>Layner ©   (09.03.04 14:44) [3]

Может всё-таки спустишься на нашу грешную землю и с изволите ваше благородие сами в хелп глянуть?

---

← →
Layner ©   (2004-03-09 15:08) [6]

Надеюсь, понятно, зачем здесь нужна ф-ция PadL?
Млин.. совершенно не понятно :(
Сделал так, нормально, но цифер 4 пары...

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
col: TColor;
begin
for i:=1 to 100 do
begin
 col:=RGB(i,255,255);
 Memo1.Lines.Add(ColorToString(col));
end;
end;


---

← →
Layner ©   (2004-03-09 15:12) [7]

А понятно, первый 2 нуля не нужны. Все, спасибо!!!

---

← →
YuRock ©   (2004-03-09 15:14) [8]

Сделай так - заработает!


function PadL(St: String; N: Integer; WithCh: String= " "):String;
var // Дополнить слева строку <St> до <N> символов используя символ <WithCh>
 S: String;
 I: Integer;
begin
 S := "";
 if Length(St) <= N then begin
   for I := Length(St) to N - 1 do
     S := S + WithCh;
   Result := S + St;
 end else
   Result:= copy(St, 1, N);
end;

function ColorToString(col: Cardinal): String;
begin
 Result := "#" + PadL(Format("%x", [GetRValue(Color)]), 2, "0") +
                 PadL(Format("%x", [GetGValue(Color)]), 2, "0") +
                 PadL(Format("%x", [GetBValue(Color)]), 2, "0");
end;


---

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

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.025 c