Для PB6.5 и выше

//************ Обработка для Resize ************************
// В instance variable должна быть определена переменная
// uo_resize_window io_resize_window

// Определение первого запуска и создание управляющего элемента - UserObject-а
IF NOT(IsValid(io_resize_window)) THEN ; io_resize_window = Create uo_resize_window ; END IF

// Исключаются режимы minimize и режимы popup-окон
IF (sizetype > 2) OR sizetype = 1 THEN ; Return(0) ; END IF

// Вызов универсального resizer-а
io_resize_window.of_resize(This,newwidth,newheight,4,4,"tabpage_6 cbx_2 ")
// Эта функция при первом вызове "подбирает" все обьекты на окне , включая размещенные
// на закладках и userobject-ах со вложенностью до 6 и сохраняет в instance массиве
// все данные по их координатам и размерам (включая fontsize)
// при повторных вызовах - выполняется move&resize этих обьектов
//
// Параметры функции of_resize(window a_window,int newwidth,int newheight, &
// int One_Dim_mode, int Two_Dim_mode,{string as_exception} )
// a_window - обязательно THIS
// newwidth, newheight - новые значения ширины и высоты - параметры event resize
// Все обьекты , располагающиеся на window делятся на две категории :
// одноразмерные - те , которые располагаются в одну строку
// CASE commandbutton! , statictext! , singlelineedit!, checkbox!, editmask!,&
// dropdownlistbox!, picturebutton!, radiobutton!
// остальные - двухразмерные
//
// Режимы - отдельно для одномерных и двумерных обьектов - one_dim_mode/two_dim_mode
// 0 - do nothing
// 1 - только move - пропорциональное изменение положение верхнего левого угла обьекта
// 2 - (1) + изменение размера только по ширине
// 3 - (1) + изменение размера по обеим координатам
// 4 - (3) + изменение размера шрифта в соответсвии с изменением newheight, для обьектов
// в которых существует этот property
// для DataWidow и RTF - не относится - нужно управлять шрифтом внутри обьекта
//
// Рекомендуемые параметры по умолчанию {One_Dim_mode =2 , Two_Dim_mode = 3}
//as_exception - необязательный строчный список обьектов-исключений вида "tab_12 cb_34 " ,
// на которые Resizer не влияет ; если в список входит обьект типа tab или tabpage
// - то и все "лежащие" на нем также не видоизменяются
//
// Внимание!!! - естественно - resizer не совместим и не допустим к применению совместно с любым
// иным resizer-ом, особенно из PFC



//Debug messages
This.St_1.Text="StaticText Width/Height = " + String(This.Width)+"/"+String(This.Height)

Return(0)
// Обязательно выполнить деструктор обьекта
// Включить в event [Close] - Destroy io_resize_window

// SPb,ZhV