Скачать: CL | DM;

переменая цвета   Найти похожие ветки 

← →
>>DEATH<<   (2006-10-02 07:47) [0]

как сделать чтобы в эдит вводиш код цвета и после нажатия кнопки  цвет фона лабера становиться такогоже цвета..я поставил на переменную цвета тип интегер на простые(числовые коды чисел например #000000 работают а вот с буквами (например #ff00ff) уже все ошибки

---

← →
ЮЮ ©   (2006-10-02 07:59) [1]

не # а $

---

← →
>>DEATH<<   (2006-10-02 08:18) [2]

всеравно ошибка

---

← →
Думкин ©   (2006-10-02 08:22) [3]

procedure TForm1.Button4Click(Sender: TObject);
var i,k : integer;
    z: array [0..10] of char;
begin
    k := 0;
    for i:=1 to HexToBin("010f",z,SizeOf(z)) do k := 256*k + ord(z[i-1]);
    Button4.Caption := inttostr(k);
end;

---

← →
ЮЮ ©   (2006-10-02 08:55) [4]

Текст ошибки и код, естственно, представляют гос.тайну. У меня ошибок такое не вызывает:
Label1.Color :=  StrToInt("$ff00ff")

---

← →
Думкин ©   (2006-10-02 09:09) [5]

> ЮЮ ©   (02.10.06 08:55) [4]

Converts a string that represents an integer (decimal or hex notation) to a number.

Век живи - век учись.

Но если продолжать телепатирование, то ему скорее всего надо цвета HTML - там RGB&BGR c тутошним отличается. Но за клещами сходить стоит.

---

← →
>>DEATH<<   (2006-10-04 12:59) [6]

так я и делал

Label1.Color :=  StrToInt("$ff00ff")

компилируеться нормально токак когда вводиш например ffffff то ошибка

---

← →
Palladin ©   (2006-10-04 13:03) [7]

а проверить первый символ на равенство и если что добавить к началу строки нужное религия не позволяет?

---

← →
>>DEATH<<   (2006-10-04 13:05) [8]

небольшую ошибку допустил не $ff00ff а edit1.text

PS;простите что пишу повторное сообшение не нашел правки

---

← →
MacroDenS ©   (2006-10-04 13:48) [9]

цвет в делфи представляется как iBGR.
поэтому делать лучше так

Label1.color:=StrToColor("$00FF00FF");


---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c