VPF::Сохранение цвета в строку - Форум программистов

Digo

Дата 23.10.2004, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 194
Регистрация: 30.9.2004
Где: Ростов на Дону

Репутация: нет
Всего: нет

Приветствую всех обитателей форума.
Подскажите как сохранить цвет (Hex) в стоку. Т.е. получить в ней его шестнадцатиричный код и наоборот. ColorToString не подходит. Спасибо. :qstn

--------------------

640кб оперативной памяти хватит миру по самые уши (Билл Гейтс )

Pakshin A. S.

Дата 23.10.2004, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Извините, но надо сохранить в файл, к примеру, Form1.Color. Тогда можно попробовать саздать такой файл

Код


Type
 TFile = file of TColor;

p0s0l

Дата 23.10.2004, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Код


var 
  c : TColor;
  hex : string;
begin
  c := clYellow;
  hex := IntToHex(c, 8);
  ...
  hex := '$12345678';
  c := StrToInt (hex); // строка должна начинаться с $
end;

--------------------

С уважением, г-н Посол.

MacTep

Дата 23.10.2004, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Код

function ColorToHTMLHexColor(Color: TColor): string;
begin
  result := IntToHex(GetRValue(ColorToRGB(Color)), 2) +
    IntToHex(GetGValue(ColorToRGB(Color)), 2) +
    IntToHex(GetBValue(ColorToRGB(Color)), 2);
end;

Так пойдет?

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Digo

Дата 24.10.2004, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 194
Регистрация: 30.9.2004
Где: Ростов на Дону

Репутация: нет
Всего: нет

Спасибо все Ок.

--------------------

640кб оперативной памяти хватит миру по самые уши (Билл Гейтс )

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »