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

Вниз

Проблема с CoolBar   Найти похожие ветки 

← →
P0tia ©   (2003-10-17 22:02) [0]

У меня на форме один coolbar в нем 3 toolbarа, нужно сделать так чтобы при выходе сохранялись все параметры этих toolbarов, а при входе читались. Желательно запихнуть их в фаил. Мараметры все которые можно(в пределах разумного). Если не сложно напишитмер.

---

← →
P0tia ©   (2003-10-19 11:42) [1]

Вот что у меня сейчас ...


procedure TForm1.FormDestroy(Sender: TObject);
var Ini: Tinifile;
i: integer;
begin
ini.WriteBool("tbt1","break",form1.CoolBar2.Bands[0].break);
ini.WriteBool("tbt2","break",form1.CoolBar2.Bands[1].break);
ini.WriteBool("tbt3","break",form1.CoolBar2.Bands[2].break);
ini.WriteString("bar","bands0",form1.CoolBar2.Bands.Items[0].Control.Name);
ini.WriteString("bar","bands1",form1.CoolBar2.Bands.Items[1].control.Name);
ini.WriteString("bar","bands2",form1.CoolBar2.Bands.Items[2].control.Name);
Ini.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+"config.ini");
form1.CoolBar2.Bands.Items[0].Control.name :="";
form1.CoolBar2.Bands.Items[1].Control.Name :="";
form1.CoolBar2.Bands.Items[2].Control.Name :="";
form1.CoolBar2.Bands.Items[2].Control.Name := ini.ReadString("bar","bands2","");
form1.CoolBar2.Bands.Items[1].Control.Name := ini.ReadString("bar","bands1","");
form1.CoolBar2.Bands.Items[0].Control.Name := ini.ReadString("bar","bands0","");
form1.CoolBar2.Bands[0].Break := ini.ReadBool("tbt1","break",true);
form1.CoolBar2.Bands[1].Break := ini.ReadBool("tbt2","break",true);
form1.CoolBar2.Bands[2].Break := ini.ReadBool("tbt3","break",true);
Ini.Free;
end;

Все нормально, НО не сохраняются порядки панелий, тоисть, если ты поставил 3 после 1 и вышел, после загр. будут 1, 2 наместе 3 и 3 на месте 2.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.039 c