Редактирование анкеты

В scr_SurveyUtils есть функция InitializeInterviewEditWindow, которая и заполняет окно контролами. Т.е. при наличии большого желания, времени и TSAdmin-а можно сделать и горизонтально.

ParentComponent.BeginUpdate();
	try {
	    Window.Height = 80;
		for (var i = 0; i <= QuestionDataset.RecordsCount - 1; i++) {
			if (Window.Height < 700) {
				Window.Height = Window.Height + 20;
			}
			CreateFrame(Window, 	ParentComponent, QuestionDataset, FrameObjects);
			QuestionDataset.GotoNext();
		}
	} finally {
	    ParentComponent.EndUpdate();
	}

Я так понимаю в этом цикле врпросы просто набиваются один под другой.

Да, вопросы один под другой набиваются. Да и Бог бы с ним, удалось бы варианты ответов расположить в два столбца, и совсем неплохо разнообразить шрифты

AddSelection(ParentComponent,	FrameObject, ComponentType)

добавляет на фрейм варианты ответов. ParentComponent ставим направление горизонатльное. Пусть вариантов ответов в колонке должно быть не больше N. Тогда для каждых N вопросов создаем фрейм (назове его ColumnFrame). Ставим ему alClient по горизонтали и вертикали и вертикальное направление. ColumnFrame добавляем в ParentComponent, а создаваемые компоненты (в скрипте это переменная Component) добавляем не в ParentComponent а в ColumnFrame.

Извинниете, нет времени писать в скрипте и тестировать, но там вроде бы все не сложно.

Спасибо! Буду пробовать