LAMW - Help with JSpinner
lazarus / 43-Android

----------------------------------------------------------------------
magleft · 2023-11-02 06:58

Hello. In my app use jspinners with following code. Items of spinner2
depents from spinner1.
If i  set the event OnItemSelected is null, spinner1 get all records
from table but not get items in spinner2.
If i set  the event OnItemSelected active, spinner1 get only first
record from table.

Any Idea?

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  procedure
TFland.ImageView1Click(Sender: TObject);begin 
AddLandDialog.show('Spinner');  Spinner1.Clear  ; 
AddDataToSpinner('Select distinct fdname1 from
Tbname',Spinner1);end;  procedure TFland.AddDataToSpinner(asqtxt:
String; var cb: jSpinner);var  newitem:String;begin 
 showmessage('Please wait...',gvCenter , slShort);   
DbInfo.Select(asqtxt,False);    while
DbInfo.Cursor.GetPosition()<DbInfo.cursor.GetRowCount() do    begin  
    newitem:=trim(DbInfo.Cursor.GetValueAsString(0));        if
(cb.Items.IndexOf(newitem)<1)and(newitem<>'') then           
cb.Add(newitem);         DbInfo.Cursor.MoveToNext  ;   
end;end;  procedure TFland.Spinner1ItemSelected(Sender: TObject;
itemCaption: string;  itemIndex: integer);var  z:integer;begin 
 z:=addKode ;   Spinner2.Clear  ;   AddDataToSpinner('Select distinct
fdname2 from tbname'   +' WHERE (fdname1=
'+QuotedStr(Spinner1.GetSelectedItem)   +') order by fdname2',
Spinner2)  ;   addKode :=z;end;