Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

Работа с *.ini-файлом   Найти похожие ветки 

 
ALFER ©   (2006-02-25 13:53) [0]

У меня 2 формы.
в Первой есть мемо, во второй colorbox.
Во второй пишу :
***
procedure TForm2.ColorBox1Select(Sender: TObject);
var SFile:TIniFile;label ll;
begin

begin
if form2.radiobutton1.Checked then
begin
form1.memo1.Color:=form2.colorbox1.Colors[form2.colorbox1.ItemIndex];
goto ll;
end
else if form2.radiobutton2.Checked then
begin
form1.memo1.Font.Color:=form2.colorbox1.Colors[form2.colorbox1.ItemIndex];
goto ll;
end;
ll:begin
 form1.memo1.Repaint;
form1.memo1.Refresh;
form1.memo1.Repaint;
end;

end;

begin
SFile:=Tinifile.Create("SFile_MoM.ini");
if form2.RadioButton1.Checked then   begin
sfile.WriteString("Usercolor","Fon",(form2.ColorBox1.Items.Strings[form2.ColorBo x1.Itemindex]))

 end else
  begin
  sfile.WriteString("Usercolor","Font",(form2.ColorBox1.Items.Strings[form2.ColorB ox1.Itemindex]));

 end;
   SFile.Free;
end;

end;
***

В первой :
***
procedure TForm1.FormCreate(Sender: TObject);
var SFile:Tinifile;
begin
try
  SFile:=Tinifile.Create("SFile_MoM.ini");
memo1.color:=(tcolor(Sfile.readstring("Usercolor","Fon","")));
memo1.font.Color:=(Tcolor(Sfile.readstring("Usercolor","Font","")));
finally
sfile.Free;
end; end;
***
Однако при запуске цвета  какие-то непонятные !
Что делать, я уже замучался !


 
TUser ©   (2006-02-25 14:08) [1]

TColor = это число. С ним не надо работать через ReadString/WriteString.


 
ALFER ©   (2006-02-25 14:39) [2]


> TUser ©   (25.02.06 14:08) [1]
> TColor = это число. С ним не надо работать через ReadString/WriteString.
>


Thank you very much !



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

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

Наверх




Память: 0.47 MB
Время: 0.041 c
2-1140890806
kreyl
2006-02-25 21:06
2006.03.12
Что внутри Variant?


2-1140266785
KILROY
2006-02-18 15:46
2006.03.12
инфа о файле,скан директории,ADO.


3-1137573043
Ольга
2006-01-18 11:30
2006.03.12
Работа с SQLDMO.SQLServer


3-1134517618
alpine
2005-12-14 02:46
2006.03.12
Выборка из 10 и более таблиц Paradox


2-1140609531
zxcv
2006-02-22 14:58
2006.03.12
время, затрачиваемое на выполнение процедуры или ф-ии