Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

переменая цвета [D7, XP]

>>DEATH<< © (2006-10-02 07:47:00)
как сделать чтобы в эдит вводиш код цвета и после нажатия кнопки цвет фона лабера становиться такогоже цвета..я поставил на переменную цвета тип интегер на простые(числовые коды чисел например #000000 работают а вот с буквами (например #ff00ff) уже все ошибки

MacroDenS (2006-10-04 13:48:00) [1]
цвет в делфи представляется как iBGR.
поэтому делать лучше так
Label1.color:=StrToColor('$00FF00FF');

>>DEATH<< (2006-10-04 13:05:00) [2]
небольшую ошибку допустил не $ff00ff а edit1.text

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

Palladin (2006-10-04 13:03:00) [3]
а проверить первый символ на равенство и если что добавить к началу строки нужное религия не позволяет?

>>DEATH<< (2006-10-04 12:59:00) [4]
так я и делал
Label1.Color := StrToInt('$ff00ff')
компилируеться нормально токак когда вводиш например ffffff то ошибка

Думкин (2006-10-02 09:09:00) [5]
> ЮЮ © (02.10.06 08:55) [4]

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

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

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

ЮЮ (2006-10-02 08:55:00) [6]
Текст ошибки и код, естственно, представляют гос.тайну. У меня ошибок такое не вызывает:
Label1.Color := StrToInt('$ff00ff')

Думкин (2006-10-02 08:22:00) [7]
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;

>>DEATH<< (2006-10-02 08:18:00) [8]
всеравно ошибка

ЮЮ (2006-10-02 07:59:00) [9]
не #а $

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »