procedure TForm2.draw_fav_con_items();
var tm1:TMenuItem; lst_:TStringList; t1:Integer;
function get_fav_item(node_:Integer):Integer;
begin
result:=3;
case node_ of
   0:result:=3;
   2:result:=4;
   3:result:=5;
   5:result:=6;
   6:result:=7;
   7:result:=8;
   8:result:=9;
   9:result:=10;
end;
end;
begin try
screen.Cursor :=crHourGlass;
lst_:=TStringList.Create;
form2.fav_.ReadSections(lst_);
if lst_.Count =0 then begin
   screen.Cursor :=crDefault;
   exit;
end;
for t1:=0 to lst_.Count-1 do begin
   tm1:=TMenuItem.Create(nil);
   tm1.Caption :=form2.fav_.ReadString(lst_.Strings[t1],'SNAME','');
   tm1.Hint :=lst_.Strings[t1];
   tm1.OnClick := fav_con_mnu_ldr_Click;
   tm1.Tag :=form2.fav_.ReadInteger(lst_.Strings[t1],'PageIndex',0);
   fav_con1.Items.Items[get_fav_item(tm1.Tag)].Add(tm1);
end;
skinData1.UpdateMenu(self);
screen.Cursor :=crDefault;
freeandnil(lst_);
except
screen.Cursor :=crDefault;
end;End;