I've been going around in circles (metaphorically speaking) trying to align the "Type-in" boxes on the following Dialog Script. Everything else works as expected.
The Dialog Script:
With reference to the attached PDF File with all the various different displays of the Dialog.
Figures 2 and 3
How do I get the two entry boxes in the same place (ie where the "ICAO_Code" box is on Figure 2)?
Figures 4,5,6,7
How do I get each entry box onto the line below "Select From List"?
The Dialog Script:
Code:
'Date Created: 01-Jan-2007 05:11:52 PM 'Last Updated: 23-Sep-2007 01:37:41 PM 'Created By : Graham Wickens 'Updated By : Graham Wickens on error goto error_routine ' Set Variables DIM Mode as C DIM Choice as C DIM Order as n = 1 DIM Qry AS P DIM Tbl AS P DIM Var_Prod_list_rl_def AS C DIM Var_Civ_Fleet as C = "" DIM Var_Mil_Fleet as C = "" DIM Var_Air_fleet as C = "" DIM Var_Cou_Fleet as C = "" DIM Var_bas_fleet as c = "" DIM Var_prod_list as c = "" DIM Var_icao_code as c = "" DIM Var_Full_name as c = "" DIM VarC_result as C DIM Var_Mil_Fleet_rl_def as C DIM Var_Civ_Fleet_rl_def as C DIM Var_Cou_Fleet_rl_def as C DIM Var_Air_Fleet_rl_def as C DIM Var_bas_fleet_rl_def as c DIM Var_ICAO_Code_rl_def as c DIM Var_Full_Name_rl_def as c ' Listbox parameters when mode = "Airline" and choice = "ICAO_Code" Var_Icao_Code_rl_def = "k=appendix_c,{keylist_build(\"H=.025,1:10[Icao],2:25[Operator]\",''+Icao,left(''+Icao,10),left(''+Operator,25))}{isnotblank(\"Icao\")}" ' Listbox parameters when mode = "Airline" and choice = "Full Operator Name" Var_Full_Name_rl_def = "k=appendix_c,{keylist_build(\"H=.025,1:25[Operator],2:10[Icao]\",''+Unique,left(''+Operator,25),left(''+Icao,25))}{}" ' Listbox parameters when mode = "Production" selected Var_Prod_list_rl_def = "k=aircraft_type,{keylist_build(\"H=.025,1:25[C2]\",''+Type_code,left(''+Aircraft_type,36))}{generic}" ' Listbox parameters when mode = "Military" selected Var_Mil_Fleet_rl_def = "k=appendix_c,{keylist_build('H=.025,1:35[Operator],2:18[Country]',''+Unique,left(''+Operator,35),left(''+Country,18))}{C1 = 'M'}" ' Listbox parameters when mode = "Register" selected Var_Civ_Fleet_rl_def = "k=appendix_c,{keylist_build('H=.025,1:35[Operator],2:6[Icao]',''+Icao,left(''+Operator,35),left(''+Icao,6))}{isnotblank('Icao')}" ' Listbox parameters when mode = "Country" selected Var_Cou_Fleet_rl_def = "k=prefix,{keylist_build('H=.025,1:25[Country],2:8[Prefix]',''+Name12,left(''+Country,25),left(''+Prefix,8))}{Usage_c = .t.}" ' Listbox parameters when mode = "Airline" selected Var_Air_Fleet_rl_def = "k=appendix_c,{keylist_build('H=.025,1:35[Operator],2:4[Icao]',''+ut(unique),left(''+Operator,35),left(''+Icao,6))}{isnotblank('Icao')}" ' Listbox parameters when mode = "Location" selected Var_Bas_Fleet_rl_def = "k=base_details,{keylist_build('H=.025,1:25[Location],2:18[Region],3:25[Country]',''+Unique,left(''+Base,25),left(''+Region_n,18),left(''+Country,25))}{}" ' Dialog Box mode="Airline" 'Default varC_result = ui_dlg_box( "Fleet Listing", <<%dlg% {font=MS Sans Serif,8,b}Choose:{font=MS Sans Serif,8,n}; (mode:Airline) (mode:Military) (mode:Country) (mode:Register) (mode:Production) (mode:Location); {line=1,0}; {font=MS Sans Serif,8,b}Select From List:{font=MS Sans Serif,8,n}; {Comment=Record List Combo Box to use if Mode is 'Airline'} {condition=mode="Airline"} {region} (choice={ICAO Code,Full Operator Name}) {Comment=Use if Choice is ICAO Code} {condition=choice="ICAO Code".and.mode="Airline"} {start_pos} | [%@Var_Icao_Code_rl_def%.10Var_ICAO_Code]; {Comment=Use if choice is Full Name} {Condition=choice="Full Operator Name".and.mode="Airline"} {start_pos} | [%@Var_Full_Name_rl_def%.40Var_Full_name]; {endregion}; {Comment=Record List Combo Box to use if Mode is 'Military'} {condition=mode="Military"} {start_pos} {region} Unit: | [%@Var_Mil_Fleet_rl_def%.40Var_Mil_Fleet]; {endregion} {Comment=Record List Combo Box to use if Mode is 'Country'} {condition=mode="Country"} {start_pos} {region} Country: | [%@Var_Cou_Fleet_rl_def%.25Var_Cou_Fleet]; {endregion} {Comment=Record List Combo Box for 'Location'} {condition=mode="Location"} {start_pos} {region} Location:| [%@Var_Bas_Fleet_rl_def%.25Var_bas_Fleet]; {endregion} {Comment=Record List Combo Box to use if Mode is 'Register'} {condition=mode="Register"} {start_pos} {region} Country: | [%@Var_Cou_Fleet_rl_def%.25Var_Cou_Fleet]; {endregion} {Comment=Record List Combo Box for 'Production'} {condition=mode="Production"} {start_pos} {region} Aircraft Type: | [%@var_Prod_list_rl_def%.40Var_Prod_list]; {condition=Var_Prod_list<>""} {start_pos} {region} (order={MSN,Line No,Reg,Original Id}); {endregion} {endregion} {Condition=.t.} {line=1,0}; <*15OK> <15Cancel> %dlg%) IF varC_result = "ok" THEN tbl = table.current() tbl.query_detach_all() SELECT CASE mode = "Airline" query.filter = "op_unique = " + quote( alltrim( Var_Air_Fleet ) ) query.order = "reg" CASE mode = "Production" query.filter = "type_code = " + quote( alltrim( Var_Prod_list ) ) query.order = selectlist(order,"sortmsn+line_no","line_no+sortmsn","Reg","Origin_id") CASE mode = "Military" query.filter = "op_unique = " + quote( alltrim( Var_Mil_fleet ) ) + " .and. c1 = 'M'" query.order = "reg" CASE mode = "Country" query.filter = "country = " + quote( alltrim( Var_Cou_Fleet ) ) + " .and. c1 = 'M' .and. status = 'C'" query.order = "reg" CASE mode = "Register" query.filter = "country = " + quote( alltrim( Var_Cou_Fleet ) ) + " .and. c1 = 'C'" query.order = "reg" CASE mode = "Location" query.filter = "b_unique = " + quote( alltrim( Var_Bas_Fleet ) ) query.order = "reg" CASE else ui_msg_box("Fleet Listing","Invalid Parameters",UI_STOP_SYMBOL+UI_ATTENTION_SYMBOL) end END SELECT query.options = "M" qry = tbl.query_create() tbl.fetch_first() topparent.refresh_layout() END IF end error_routine: err_msg = error_text_get(error_code_get()) script = error_script_get() line = error_line_number_get() ui_msg_box("Error",err_msg+" error occured at line "+alltrim(str(line,4,0))+" in Script "+alltrim(script))
Figures 2 and 3
How do I get the two entry boxes in the same place (ie where the "ICAO_Code" box is on Figure 2)?
Figures 4,5,6,7
How do I get each entry box onto the line below "Select From List"?
Comment