Форум: "Основная";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];
ВнизКак записать/прочитать значение цвета в реестр Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c