Beispiel #1
0
        public PageInfo(string pstrFilePathAndName)
        {
            //            mstrPageName = Strings.LCase(RemovePath(pstrFilePathAndName));
            mstrPageName = RemovePath(pstrFilePathAndName);

            string sstrSource = null;
            sstrSource = OpenFile(pstrFilePathAndName);

            int slonProcessLocation = 0;

            //get control info
            ControlsInfo sclsControlsInfo = null;
            sclsControlsInfo = new ControlsInfo();
            ControlInfo sclsFormControl = null;
            //first (top) control should be Begin Form
            sclsFormControl = sclsControlsInfo.GetControlsInfo(sstrSource, ref slonProcessLocation);
            mcolControlsByName = sclsControlsInfo.ControlsByName;//not used?
            mcolAllControls = sclsControlsInfo.AllControls;

            //GetControlsInfo above should leave slonProcessLocation at the end of Control area of file and just before Function area of file

            //get function info
            mclsFunctionsInfo = new FunctionsInfo(sstrSource, ref slonProcessLocation);
            mlstFunctions = mclsFunctionsInfo.Functions; //used in WritePHPPage function below
            mlstOpenFormNames = mclsFunctionsInfo.OpenFormNames; //used in WritePHPPage function below
        }
Beispiel #2
0
        public PageInfo(string pstrFilePathAndName)
        {
            //            mstrPageName = Strings.LCase(RemovePath(pstrFilePathAndName));
            mstrPageName = RemovePath(pstrFilePathAndName);

            string sstrSource = null;

            sstrSource = OpenFile(pstrFilePathAndName);

            int slonProcessLocation = 0;


            //get control info
            ControlsInfo sclsControlsInfo = null;

            sclsControlsInfo = new ControlsInfo();
            ControlInfo sclsFormControl = null;

            //first (top) control should be Begin Form
            sclsFormControl    = sclsControlsInfo.GetControlsInfo(sstrSource, ref slonProcessLocation);
            mcolControlsByName = sclsControlsInfo.ControlsByName;//not used?
            mcolAllControls    = sclsControlsInfo.AllControls;


            //GetControlsInfo above should leave slonProcessLocation at the end of Control area of file and just before Function area of file


            //get function info
            mclsFunctionsInfo = new FunctionsInfo(sstrSource, ref slonProcessLocation);
            mlstFunctions     = mclsFunctionsInfo.Functions;     //used in WritePHPPage function below
            mlstOpenFormNames = mclsFunctionsInfo.OpenFormNames; //used in WritePHPPage function below
        }
Beispiel #3
0
        public PageInfo(string pstrFilePathAndName)
        {
            mstrPageName = Strings.LCase(RemovePath(pstrFilePathAndName));

            string sstrSource = null;

            sstrSource = OpenFile(pstrFilePathAndName);

            int  slonProcessLocation  = 0;
            long sslonProcessLocation = 0;

            //sstrSource string starts at location 1
            slonProcessLocation  = 1;
            sslonProcessLocation = 1;

            //get control info
            ControlsInfo sclsControlsInfo = null;

            sclsControlsInfo = new ControlsInfo();
            ControlInfo sclsFormControl = null;

            //first (top) control should be Begin Form
//150203            sclsFormControl = sclsControlsInfo.GetControlsInfo(sstrSource, ref sslonProcessLocation);
            sclsFormControl = sclsControlsInfo.GetControlsInfo(sstrSource, ref slonProcessLocation);//150203
            //Ian - break here
            //inpect mlstAttributes and you can see attributes in a control
            //if you inspect sclsFormControl you can keep drilling down into SubControls to see the whole control part of the file
            //I haven't had time yet - but I think the next step is to create a Collection that has all the Controls on the page using its Name as the index, not caring about where it is in the form
            //  what we are looking for is the button that is calling a certain OpenForm so we can put that control on the page and have it when clicked open the next page
            //        MsgBox("Ian break here")


            //GetControlsInfo above should leave slonProcessLocation at the end of Control area of file and just before Function area of file

            //get function info

            //I think we need lstOpenFormsNamesUnique - just names of forms to be processed
            //-change so only making unique right when adding to lstOpenFormsNameUnique if not doing tha talready
            //and a list of open forms with associalted function name
            //-for now skip controls
            //--goto functions - if only 1 OpenForm and its in Load then redirect to new page
            //---so need OpenForms by Function

            //150110        Dim sclsFunctionsInfo As FunctionsInfo
            //150110        sclsFunctionsInfo = New FunctionsInfo
            //150110        sclsFunctionsInfo.GetFunctionsInfo(sstrSource, slonProcessLocation)
            //151010        sclsFunctionsInfo = New FunctionsInfo(sstrSource, slonProcessLocation) '150110
            mclsFunctionsInfo = new FunctionsInfo(sstrSource, ref slonProcessLocation);
            //150110
            mlstFunctions     = mclsFunctionsInfo.Functions;
            mlstOpenFormNames = mclsFunctionsInfo.OpenFormNames;
            //
            //        MsgBox("Ian break here to check out the mlstOpenFormsNames")
        }