/// <summary>write the code for the designer file where the properties of the control are written</summary> public override ProcessTemplate SetControlProperties(TFormWriter writer, TControlDef ctrl) { base.SetControlProperties(writer, ctrl); if (ctrl.GetAttribute("AutoComplete").EndsWith("History")) { writer.SetControlProperty(ctrl, "AcceptNewValues", "true"); writer.SetEventHandlerToControl(ctrl.controlName, "AcceptNewEntries", "TAcceptNewEntryEventHandler", "FPetraUtilsObject.AddComboBoxHistory"); writer.CallControlFunction(ctrl.controlName, "SetDataSourceStringList(\"\")"); writer.Template.AddToCodelet("INITUSERCONTROLS", "FPetraUtilsObject.LoadComboBoxHistory(" + ctrl.controlName + ");" + Environment.NewLine); } return(writer.FTemplate); }