// Функция фиксирует размер объектов DW  в соостветствии с размером в пикселах,
// указанном в тэге объекта, с помощью ключевых слов "width" и "height"
// например: width= 16 ; height= 16 ;
// сейчас фиксируются размеры картинок и вычисляемых полей, можно изменять любые объекты

string	ls_ObjString, ls_ObjHolder, ls_ObjType, ls_Tag, ls_Modify = "", ls_Units
integer li_Value
integer	li_Start= 1 , li_Tab, li_Pos
boolean lb_Last = False
n_cst_string lnv_string
constant string ls_KeyWidth = "width"
constant string ls_KeyHeight = "height"

// Единица измерения DW должна быть PB Unit, если в пикселах то ничего не делаем
ls_Units = adw_Requestor.Describe("DataWindow.Units")
IF ls_Units <> "0" Then Return  0 

ls_ObjString = adw_Requestor.Describe("Datawindow.Objects")

li_Tab =  Pos(ls_ObjString, "~t", li_Start)
Do While li_Tab >  0  or lb_Last
	ls_ObjHolder = Mid(ls_ObjString, li_Start, (li_Tab - li_Start))

	ls_ObjType = adw_Requestor.Describe(ls_ObjHolder + ".type")
	If ls_ObjType = 'compute' Or ls_ObjType = "bitmap" Then
		
			ls_Tag = adw_Requestor.Describe(ls_ObjHolder + ".Tag")

			If Pos(ls_Tag, ls_KeyWidth) >  0  Then
				li_Value = integer(lnv_string.of_GetKeyValue( ls_Tag, ls_KeyWidth, ";"))
				If li_Value >  0  Then ls_Modify += ls_ObjHolder + ".Width='" + string(PixelsToUnits ( li_Value, XPixelsToUnits!  ))  + "' "
			End If

			If Pos(ls_Tag, ls_KeyHeight) >  0  Then
				li_Value = integer(lnv_string.of_GetKeyValue( ls_Tag, ls_KeyHeight, ";"))
				If li_Value >  0  Then ls_Modify += ls_ObjHolder + ".Height='" + string(PixelsToUnits ( li_Value, YPixelsToUnits!  )) + "' "
			End If
			
	End if

	If lb_Last Then Exit
	
	li_Start = li_Tab +  1 
	li_Tab =  Pos(ls_ObjString, "~t", li_Start)
	If li_Tab =  0  Then lb_Last = True
Loop 

If Len(ls_Modify) >  0  Then 
	If adw_requestor.Modify(ls_Modify) = "" Then 
		Return  1 
	Else
		Return - 1 
	End IF
End If

Return  0