ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);

Page.StopTimer();
Audio.Stop(CHANNEL_NARRATION)
Progress.SetCurrentPos("Progress1", 0);
s=SQLite.QueryToTable(db, "select * from Ncoran");
Progress.SetRange("Progress1", 0, #s.Data);
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
ListBox.DeleteItem("ListBox2", LB_ALLITEMS);

Input.SetText("Input_Info_Display", "");
Label.SetText("Label1", "");
tol=0;
istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
ali = Input.GetText("Input1");
result4 = string.gsub (ali, ".",istibdalate);

---------- serch vide ----------
if ali == "" then
  Dialog.Message("ÊäÈíå","ÇßÊÈ ãÇ ÊÑíÏ ÇáÈÍË Úäå");
  Page.SetFocus("Input1");

else
 ---------- trouve "-" ---------------
 ali = result4;
 PosWord={};  x=1; hh=""; f=1;
 sopi = String.Find(ali, "-", 1);
 if sopi ~= -1 then  
 --------------------------
  repeat
 New = String.Find(ali, "-", 1);
 if New ~= -1 then  
 alla = String.Mid(ali, 1, New);
 assia = String.Mid(alla, 1,#alla-1);
 ali = String.Replace(ali, alla, "");  
 ---dellet espace left-----------
 repeat
 verf = String.Left(assia, 1, 1);
 if verf == " " then   assia = String.Mid(assia, 2, #assia-1);end
 until verf ~= " ";
 ---------dellet espace right-----
repeat
 verf = String.Right(assia, 1);
 if verf == " " then   assia = String.Mid(assia, 1, #assia-1);end
 until verf ~= " " ;
 -------------
PosWord[x] = assia  ; x=x+1;   end
 until New == -1;  
------------- espace rightfinal--------
repeat
 verf = String.Right(ali, 1);
 if verf == " " then   ali = String.Mid(ali, 1, #ali-1);end
 until verf ~= " " ;
 PosWord[x] = ali ;  
 
 ------------
 else  PosWord= {} ; PosWord[1] = ali ; end
----------

 for baka,Wword in pairs(PosWord) do
 
------- tach  sora1----------------------------------------------------
if  CheckBox.GetChecked("CheckBox1") == true then
  if Mys == "" then
  Dialog.Message("ÊäÈíå","ÇÎÊÑ ÓæÑÉ ãä ÞÇãÉ ÇáÓæÑ ÇáÊí ÊÑíÏ ÇáÈÍË ÝíåÇ");
  else
  ---------------------------
  for i,v in pairs(s.Data) do
  
  if Mys == s.Data[i]["Sora_Num"] then
   ----------------
   m = s.Data[i]["Aya_text"];
     if m ~= " " then
  istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
  abou_belkiss = string.gsub (m, ".",istibdalate);
  -----------------
   g = String.Find(abou_belkiss,Wword, 1, false);
  if g~= -1 then
  ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n"..s.Data[i]["Aya_Num"]);
   ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
  tol = tol+1;          
  end end
  end
    Progress.SetCurrentPos("Progress1", i);
  end
Label.SetText("Label1", tol);
end
---  tach soar katira--------------
elseif CheckBox.GetChecked("CheckBox3") == true then
  
  for i,v in pairs(s.Data) do
  for cop,com in pairs(Nsora) do ala = ""..com;
     if ala == s.Data[i]["Sora_Num"] then
     m = s.Data[i]["Aya_text"];
     if m ~= " " then
     istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
     abou_belkiss = string.gsub (m, ".",istibdalate)
     g = String.Find(abou_belkiss,Wword, 1, false);
       if g~= -1 then
       ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n".."ÇáÂíÉ ÑÞã "..s.Data[i]["Aya_Num"]);
       tol=tol+1;
      ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
     end end
    end end
  
  Progress.SetCurrentPos("Progress1", i);
  end
  Label.SetText("Label1", tol);
------------- theme -------------  
elseif CheckBox.GetChecked("CheckBox4") == true then

  for i,v in pairs(s.Data) do
  for cop,ala in pairs(Mytheme) do
   ---------------
     istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
     ala = string.gsub (ala, ".",istibdalate)
      ---------
     m = s.Data[i]["Aya_text"];
     if m ~= " " then
     istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
     abou_belkiss = string.gsub (m, ".",istibdalate)
      g = String.Find(abou_belkiss,ala, 1, false);
       if g~= -1 then
       ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n".."ÇáÂíÉ ÑÞã "..s.Data[i]["Aya_Num"]);
      ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
      tol=tol+1;
      end end
    end
   Progress.SetCurrentPos("Progress1", i);
   end
   Label.SetText("Label1", tol);

-------------tach  tous mashaf -----
elseif CheckBox.GetChecked("CheckBox2") == true then

 
 for i,v in pairs(s.Data) do
  m = s.Data[i]["Aya_text"];
  if m ~= " " then
  istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
  abou_belkiss = string.gsub (m, ".",istibdalate)
   g = String.Find(abou_belkiss, Wword, 1, false);
   if g~= -1 then
  ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n".."ÇáÂíÉ ÑÞã "..s.Data[i]["Aya_Num"]);
   ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
   tol=tol+1;
  end end
  Progress.SetCurrentPos("Progress1", i);
 end
 Label.SetText("Label1", tol);

------------------------ word --------------
end -------elsecheckobox--
end
end
-----------------------------------------------------
ListBox.SelectItem("ListBox1", 1)

Raya =  ListBox.GetItemData("ListBox2", AudioAya);
Rsora = ListBox.GetItemText("ListBox2", AudioAya);
------------- name ayaettes -------------
if String.ToNumber(Rsora) < 10 then Rsora = "00"..Rsora;
elseif  String.ToNumber(Rsora) > 9 and String.ToNumber(Rsora) < 100 then Rsora = "0"..Rsora;
elseif String.ToNumber(Rsora) > 99 then Rsora = ""..Rsora;
end

if String.ToNumber(Raya) < 10 then Raya = Rsora.."00"..Raya;
elseif  String.ToNumber(Raya) > 9 and String.ToNumber(Raya) < 100 then Raya = Rsora.."0"..Raya;
elseif  String.ToNumber(Raya) > 99 then  Raya = Rsora..Raya;
end

Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\quran"..Rsora..""..Raya..".mp3", true);