Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
ВнизПроблема с 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c