I have attached a small portion of my xdialog code and a screenshot of it. Although I think it may not be possible to get the formatting exactly as I would like, I would like to have it a bit better than what it is currently....
What time it has taken to code the various parts of my xdialog, I would have to say that more than double that has been spent to try and get the formatting to be acceptable....xdialog has been touted as being much more powerful than using forms, but the formatting sure seems to be both a bit lacking and even more undocumented. I am hopeful that I have just missed some easier ways---time will tell.
Currently I cannot get the vertical lines any better than what is shown in the screenshot...not just equal and centered (a minimum really), but nice to be able to have the vertical lines touch the horizontal line and continue to close to the xdialog box bottom.
I also would like to be able to center the list box and buttons to each other (hopefully just a function I overlooked for this!).
Hopefully someone has an idea or so! Thanks! :)
What time it has taken to code the various parts of my xdialog, I would have to say that more than double that has been spent to try and get the formatting to be acceptable....xdialog has been touted as being much more powerful than using forms, but the formatting sure seems to be both a bit lacking and even more undocumented. I am hopeful that I have just missed some easier ways---time will tell.
Currently I cannot get the vertical lines any better than what is shown in the screenshot...not just equal and centered (a minimum really), but nice to be able to have the vertical lines touch the horizontal line and continue to close to the xdialog box bottom.
I also would like to be able to center the list box and buttons to each other (hopefully just a function I overlooked for this!).
Hopefully someone has an idea or so! Thanks! :)
Code:
dim vNew_Flag as L vNew_Flag=.F. dim code as c CODE=<<%cde% if a_dlg_button="CANCEL" end end if ' '=========================================== if a_dlg_button ="New Filter" vNew_Flag=.T. vfltr_choice="" vcgQB_Selected_Companies=list_class_unformat 'eval(new_list) vEmployees=lst_emp_unformat vSuper=lst_Super_Unformat vProjMgr=lst_ProjMgr_Unformat vSalesRep=lst_SalesRep_Unformat a_dlg_button="" end if if a_dlg_button="Cancel New" vNew_Flag=.F. vfltr_choice="" a_dlg_button="" end if %cde% ui_dlg_box("Title",<<%dlg% {line=1,0}; {line=1,0}; {lf=2} {region1} {sp=3}<*15,0.32"OK> <15,0.32"CANCEL> {endregion1} {sp=11}{line=0,1} {line=0,1}{sp=0.5} {region2} {condition=(vNew_flag=.F.)} <12,0.15"New Filter?vEdit_Flag=.F.> {condition=(vNew_flag=.T.)} {start_pos} <12,0.15"Cancel New>{condition=.t.}{sp=2}<12,0.15"Edit?vfltr_choice<\>"".and.vNew_Flag=.F.> {sp=0.8}{line=0,1}; <12,0.15"Save New?vNew_Flag=.T..and.vEdit_Flag=.F.>{sp=2}<12,0.15"Save Edit?vfltr_choice<\>"".and.vEdit_Flag=.T..and.vNew_Flag=.F.> {sp=0.8}{line=0,1} {endregion2} {region3} {sp=1.5}<12,0.32"Load Filter?vfltr_choice<\>"">{sp=1.0}[26vfltr_choice^+vfltr_names!Choice_Change?vNew_Flag=.T.]{sp=1}<6Delete?vfltr_choice<\>"">; {endregion3}; %dlg%,CODE)
Comment