pseudocode > >lcFormName = ... && ie "lossnotice" >if ( file( lcFormName + ".scx" ) ) > * change name to prevent overwrites... >endif > >create form (lcFormName) nowait >aselobj( laForm, 1 ) >loForm = laForm[1] >lnLabelCount = 1 >for each say > lcLabelName = "lbl" + transform( lnLabelCount ) > loForm.AddObject( lcLabelName, "yourBaseLabel" ) > loLabel = eval( "loForm." + lcLabelName ) > with loLabel > .Visible = .t. > .Top = f( @ coordinate) > .Left = f( @ coordinate ) > .Caption = f( the quoted text prompt ) > endwith > lnLabelCount = lnLabelCount + 1 >endfor > >for each get > lcTxtName = "txt" + transform( lnTxtCount ) > loForm.AddObject( lcTxtName, "yourBaseTextbox" ) > ... >endfor >>
>>DEFINE WINDOW editwin FROM 2,6 TO 20+glRow,73 TITLE "LOSS NOTICE" FLOAT SHADOW FONT (glFontName), (glFontSize) >>ACTIVATE WINDOW editwin >> >>@ 1, 2 SAY com_name(mpo_insco(pol_number)) >>@ 7, 2 SAY "Adjuster....:" >>*... >>@ 3,51 GET m.lossdate VALID vEpoch(@m.lossdate) >>@ 9,16 GET m.pmtfor >>*... >>>>Examples like the above (hundreds of them in our code) must be switched to forms...there are no .scx files for those because they were hand coded...