Текущий архив: 2006.11.12;
Скачать: CL | DM;

Вниз

Как записать/прочитать значение цвета в реестр   Найти похожие ветки 

← →
Jakudza   (2006-09-29 11:15) [0]

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

Спасибо !

---

← →
EvS ©   (2006-09-29 11:20) [1]

> Спасибо !

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

---

← →
stone ©   (2006-09-29 11:22) [2]

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

---

← →
Jakudza   (2006-09-29 11:29) [3]

как правильно записать 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:48) [4]

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

---

← →
Jakudza   (2006-09-29 12:18) [5]

спасибо!

---

← →
Samurai Kruche chem Jakudza   (2006-09-29 12:52) [6]

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;

---

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

Текущий архив: 2006.11.12;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.047 c