Выделение цветом полей "только для чтения"

//Модуль scr_BaseDBEditUtils
 
function ProcessBaseDBEditOnPrepare(Window, BaseDBEdit) {
...
    /* Добавляем строчку в функцию... */
    SetCaptionColorForIsReadOnlyFields(Window); //Устанавливает цвет для полей с признаком "Только чтение"
}
 
//Устанавливает цвет для полей с признаком "Только чтение"
function SetCaptionColorForIsReadOnlyFields(Window) {
	for (var i = 0; i < Window.ComponentCount; i++) {
		if (!IsUndefined(Window.Components(i).DataField)) {
			if (Window.Components(i).DataField.IsReadOnly) {
				//Можно включить выделение цветом --> Window.Components(i).CaptionColor = clReadOnlyCaptionColor;
				Window.Components(i).IsEnabled = false;
			}
		}
	}
}