private String GetProperty(IPropertyType aProperty, Control aControl)
 {
     String result = aProperty.Get();
     result = result.Replace("$ControlClass", aControl.ControlClass());
     result = result.Replace("$ControlName", aControl.ControlName);
     return result;
 }
        public String AssignmentStatement(Control aControl, IPropertyType aProperty, String aValue)
        {
            String result = aProperty.Set();
            if (aValue.EndsWith(";"))
                aValue = aValue.Remove(aValue.Length - 1, 1);

            result = result.Replace("$ControlClass", aControl.ControlClass());
            result = result.Replace("$ControlName", aControl.ControlName);
            result = result.Replace("$Value", aValue);
            return result;
        }
        public List<String> GetEventHandler(Control aControl)
        {
            List<String> result = new List<String>(); ;
            Control mainForm = ControlAction.Instance.GetMainForm();

            bool foundEventHandler = false;

            FileInfo[] pascalSourceFiles = AppUtils.GetFiles(AppConfiguration.Instance.InputPath, "*.pas", "Pascal source");
            foreach (FileInfo file in pascalSourceFiles)
            {
                List<String> sourceCodeList = GetSourceCode(file.FullName);
                bool afterBegin = false;
                foreach (String code in sourceCodeList)
                {
                    if (afterBegin && code.Trim().StartsWith("end"))
                        break;

                    if (afterBegin && !code.Trim().StartsWith("end"))
                    {
                        // TODO: This should actually be done by the Object Pascal language compiler (thats still outstanding)
                        result.Add(Parse(code));
                    }

                    if (code.IndexOf(mainForm.ControlName + "." + aControl.Prop_OnClick) > -1)
                        foundEventHandler = true;

                    if (foundEventHandler && code.Trim().StartsWith("begin"))
                        afterBegin = true;
                }
            }

            if (!foundEventHandler)
                throw new ArgumentException("Can't find event handler '" + aControl.Prop_OnClick + "' for control: " + aControl.ControlName);

            return result;
        }
Esempio n. 4
0
        /// <summary>
        /// Return the property for the given control
        /// </summary>
        /// <param name="aControl"></param>
        /// <param name="aPropertyName"></param>
        /// <returns></returns>
        public IPropertyType GetProperty(Control aControl, String aPropertyName)
        {
            IPropertyType[] controlProperties = aControl.Properties();
            if (controlProperties == null || controlProperties.Length == 0)
                throw new CompileErrorException("Control '" + aControl.ControlClass() + "' doesn't have any properties");

            IPropertyType property = (from c in controlProperties
                                                where c.GetType().Name.CompareTo(aPropertyName) == 0
                                                select c).FirstOrDefault();

            return property;
        }