Текущий архив: 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.055 c