Вопрос # 797: …ксперты! Нужно записать в ini файл название цвета из ColorComboBox и … (Общие вопросы по программированию)

Здравствуйте, уважаемые эксперты!
Нужно записать в ini файл название цвета из ColorComboBox и при повторном запуске программы изменить цвет формы на цвет, записанный в ini файл. Как преобразовать тип TColor в строку и наоборот?

Здравствуйте, Трофимов Евгений!
TColor свободно конвертируется в Integer, поэтому можно напрямую использовать WriteInteger() и ReadInteger() - работать будет прекрасно.

Здравствуйте, Трофимов Евгений!
Можно так IntToHex(ColorDialog1.Color,8)

Здравствуйте, Трофимов Евгений!
По сути Вам уже ответили. В приложении ф-ии StrToColor (не чуствительная к регистру) и ColorToStr.
Когда-то давно писал эти ф-ии - сейчас сделал бы проще - через массивы и один цыкл. Ну, если захотите - переделаете

Приложение:

uses Graphics;
function StrToColor(name : String) : tcolor;
var _: String;
begin
_:= LowerCase(name);
if _= 'black' then Result := clBlack else if _= 'maroon' then Result := clMaroon else if _= 'green' then Result := clGreen else if _= 'olive' then Result := clOlive else if _= 'navy' then Result := clNavy else if _= 'purple' then result := clPurple else if _= 'teal' then Result := clTeal else if _= 'gray' then result := clGray else if _= 'silver' then result := clSilver else if _='red' then result := clRed else if _= 'lime' then Result := clLime else if _= 'yellow' then Result := clYellow else if _= 'blue' then result := clBlue else if _= 'fuchsia' then result := clFuchsia else if _= 'aqua' then result := clAqua else if _= 'white' then Result := clWhite else if _= 'moneygreen' then result := clMoneyGreen else if _= 'skyblue' then Result := clSkyBlue else if _= 'cream' then Result := clCream else if _= 'medgray' then result := clMedGray else if _= 'none' then result := clNone else if _= 'default' then result := clDefault
else if _= 'scrollbar' then Result := clScrollBar else if _= 'background' then Result := clBackground else if _= 'activecaption' then Result := clActiveCaption else if _= 'inactivecaption' then result := clInactiveCaption else if _= 'menu' then result := clMenu else if _= 'window' then Result := clWindow else if _= 'windowframe' then result := clWindowFrame else if _= 'menutext' then result := clMenuText else if _= 'windowtext' then result := clWindowText else if _= 'activeborder' then result := clActiveBorder else if _= 'appworkspace' then Result := clAppWorkSpace else if _= 'highlight' then result := clHighlight else if _= 'btnface' then Result := clBtnFace else if _= 'btnshadow' then result := clBtnShadow else if _= 'graytext' then result := clGrayText else if _= 'btntext' then result := clBtnText else if _='inactivecaptiontext' then result := clInactiveCaptionText else if _='btnhighlight' then Result := clBtnHighlight else if _= '3ddkshadow' then result := cl3DDkShadow else if _= '3dlight' then
result := cl3DLight else if _= 'infotext' then Result := clInfoText else if _= 'infobk' then result := clInfoBk else if _= 'gradientactivecaption' then Result := clGradientActiveCaption else if _= 'gradientinactivecaption' then result := clGradientInactiveCaption else result := clNone
end;
//------------------------------------------------------------------------------
function ColorToStr(color : TColor);
begin
case color of
clBlack : Result := 'Black';
clMaroon : Result := 'Maroon';
clGreen : Result := 'Green';
clOlive : Result := 'Olive';
clNavy : Result := 'Navy';
clPurple : Result := 'Purple';
clTeal : Result := 'Teal';
clGray : Result := 'Gray';
clSilver : Result := 'Silver';
clRed : Result := 'Red';
clLime : Result := 'Lime';
clYellow : Result := 'Yellow';
clBlue : Result := 'Blue';
clFuchsia : Result := 'Fuchsia';
clAqua : Result := 'Aqua';
clWhite : Result := 'White';
clMoneyGreen : Result := 'MoneyGreen';
clSkyBlue : Result := 'SkyBlue';
clCream : Result := 'Cream';
clMedGray : Result := 'MedGray';
clNone : Result := 'None';
clDefault : Result := 'Default';
clScrollBar : Result := 'ScrollBar';
clBackground : Result := 'BackGround';
clActiveCaption : Result := 'ActiveCaption';
clInactiveCaption : Result := 'InActiveCaption';
clMenu : Result := 'Menu';
clWindow : Result := 'Window';
clWindowFrame : Result := 'WindowFrame';
clGradientInactiveCaption : Result := 'GradientInactiveCaption';
clMenuText : Result := 'MenuText';
clWindowText : Result := 'WindowText';
clActiveBorder : Result := 'ActiveBorder';
clAppWorkSpace : Result := 'AppWorkSpace';
clHighlight : Result := 'HighLight';
clBtnFace : Result := 'BtnFace';
clBtnShadow : Result := 'BtnShadow';
clGrayText : Result := 'GrayText';
clBtnText : Result := 'BtnText';
clInactiveCaptionText : Result := 'InActiveCaptionText';
clBtnHighlight : Result := 'BtnHighLight';
cl3DDkShadow : Result := '3DDkShadow';
cl3DLight : Result := '3DLight';
clInfoText : Result := 'InfoText';
clInfoBk : Result := 'InfoBk';
clGradientActiveCaption : Result := 'GradientActiveCaption'
else REsult := 'None'
end
end;

Здравствуйте, Трофимов Евгений!
to Градов Ю.М.:
А наоборот? отвечу сам c:=StrToInt(\'$\'+s);

To mvp:
Зачем изобретать велосипед? Ведь есть готовые функции в модуле Graphics. Называются IdentToColor и ColorToIdent.

Здравствуйте, Трофимов Евгений!
Тип TColor преобразуется в строку функцией olorToString(Color: TColor): string, а обратно StringToColor(const S: string): TColor;

Мини-форум вопроса

var c:TColor; s:string; begin s = введёная строка try if not IdentToColor(\'cl\'+s,c) and not IdentToColor(s,c)then c:=StrToInt(\'$\'+s); except c:=0; ShowMessage(\'Цвет задан некорректно. Принят чёрный\'); end;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 797

Мини-форум вопроса

Экспертная система Delphi.int.ru

Сообщество программистовОбщение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 797

Мини-форум вопроса

Сообщество программистов
Общение, помощь, обмен опытом