Главная страница
    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.044 c
15-1161864240
Pavel__
2006-10-26 16:04
2006.11.12
Сообщение, посылаемое при закрытии приложения


15-1161853778
Ricko
2006-10-26 13:09
2006.11.12
Оцените программу


15-1161339330
ArtemESC
2006-10-20 14:15
2006.11.12
Язык, который всем нравится...


15-1161765286
Сатир
2006-10-25 12:34
2006.11.12
Использование пакетов в Оракле


8-1144249486
ronyn
2006-04-05 19:04
2006.11.12
DS Pack мануал





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский