Главная страница
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.042 c
2-1140538748
Compton's G
2006-02-21 19:19
2006.03.12
Вопросик


15-1139597623
Marser
2006-02-10 21:53
2006.03.12
Эх, пойду лопатой помахаю...


6-1133163165
SergP.
2005-11-28 10:32
2006.03.12
WinInet. Узнать размер контента, принимаемого по http/https


1-1138743883
DillerXX
2006-02-01 00:44
2006.03.12
Можно ли линковать .lib файлы к проекту?


2-1141033730
WestBronx
2006-02-27 12:48
2006.03.12
Как правельно указать параметры в OleCreateLinkToFile?