procedure TForm2.FormShow(Sender: TObject);
var pic1:TBitmap;
begin try
if Trim(get_ini_params('system','hotkey'))<>'' then begin
        hotkey1.HotKey := TextToShortCut(trim(get_ini_params('system','hotkey')));
        hotkey1.Active :=true;
end;
FlatComboBox1.Items.LoadFromFile(get_search_list);
if IsGlobalOffline then begin
        mode_.Tag:=0;
        mode_.Caption :='Offline Mode';
end else begin
        mode_.Tag:=1;
        mode_.Caption :='Online Mode';
end;
pic1:=TBitmap.Create;
line1.GetBitmap(mode_.Tag,pic1);
state_1.Picture.Bitmap:=pic1;
state_1.Refresh;
pic1.free;
XiTrackBar1Change(nil);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'G80000');
end;End;