Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
4-1151394771
Lagrima_JN
2006-06-27 11:52
2006.11.12
Эмуляция "клика" на компоненте формы.


15-1161695275
oldman
2006-10-24 17:07
2006.11.12
В России будет создан реестр непьющих мужчин


15-1161867385
TIF
2006-10-26 16:56
2006.11.12
Про реестр


2-1162189560
Чайник2
2006-10-30 09:26
2006.11.12
Как перенести содержимое поля 1-й таблицы в поле другой?


2-1161927953
ГореПрограммер
2006-10-27 09:45
2006.11.12
Колличество элементов динамического массива





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский