| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как записать/прочитать значение цвета в реестр [D7, Win2k]

Jakudza ©   (2006-09-29 11:15:00) 

Хочу чтобы в программе, пользователь выбирал цвет отображения полей в DBGrid, для этого значение цвета нужно записать в реестр и потом естественно читать.

Спасибо !

---

Samurai Kruche chem Jakudza   (2006-09-29 12:52:00) [1]

var
 Form1: TForm1;
 Ini: Tinifile;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini:=TiniFile.Create(ExtractFilePath(paramstr(0)) + 'Settings.ini');
DBGrid1.FixedColor:=Ini.ReadInteger('DBGrid','Color', DBGrid1.FixedColor);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Settings.ini');
Ini.WriteInteger('DBGrid','Color', DBGrid1.FixedColor);
Ini.Free;
end;

procedure TForm1.ColorBox1Click(Sender: TObject);
begin
 DBGrid1.FixedColor:= ColorBox1.Selected;
end;

---

Jakudza   (2006-09-29 12:18:00) [2]

спасибо!

---

stone   (2006-09-29 11:48:00) [3]

User.WriteInteger('Uvedomlenie_Color', Edit7.Color);

---

Jakudza   (2006-09-29 11:29:00) [4]

как правильно записать Edit7.Color в реестр, каким типом ?
var User: TRegistry;
begin
User := TRegistry.Create;
 User.RootKey := HKEY_LOCAL_MACHINE;
 User.OpenKey('\Software\Jur\', True);
 User.Write ХХХХХ('Uvedomlenie_Color', Edit7.Color);
 User.CloseKey;
User.Free;

---

stone   (2006-09-29 11:22:00) [5]

А в чем вопрос? Как работать с реестром или какой тип данных имеет цвет?
Если первое - TRegistry + F1
Если воторое - TColor + F1

---

EvS   (2006-09-29 11:20:00) [6]

> Спасибо !

Пожалуйста.
Вопрос-то в чем?

---

Наверх