PARAMETERS my_string,my_msg_F_N,my_msg_F_S,my_msg_F_St
LOCAL my_obj_tab, my_width_tab
m.my_msg_F_N = IIF(TYPE("m.my_msg_F_N")#"C","Arial",m.my_msg_F_N)
m.my_msg_F_S = IIF(TYPE("m.my_msg_F_S")#"N", 9 ,m.my_msg_F_S)
m.my_msg_F_St = IIF(TYPE("m.my_msg_F_St")#"C","",m.my_msg_F_St)
STORE  0  TO m.my_width_tab
STORE '' TO m.my_ret
IF OCCURS(CHR( 9 ),m.my_string)# 0  && Если присутствует спец-символ табуляции
	m.my_obj_fr = CREATEOBJECT('form')
	m.my_obj_fr.Left = -  1000 
	m.my_obj_fr.Visible = .T.
	m.my_obj_fr.AddObject('my_obj_tab','Editbox')
	WITH m.my_obj_fr.my_obj_tab
		.ScrollBars =  0 
		.Visible = .T.
		.Width= 9 
		.FontName = m.my_msg_F_N
		.FontSize = m.my_msg_F_S
		IF "B"$m.my_msg_F_St
			.FontBold = .T.
		ENDIF
		IF "I"$m.my_msg_F_St
			.FontItalic = .T.
		ENDIF
		.Value = CHR( 9 )+'a'
		STORE  0  TO .SelStart
		DO WHILE .SelStart# 2  AND .Width<=SYSMETRIC( 1 )
			.Width = .Width+ 1 
			.SetFocus
			STORE  0  TO .SelStart
			KEYBOARD '{END}' PLAIN
			DOEVENTS
		ENDDO
		m.my_w_a = TXTWIDTH('a',m.my_msg_F_N,m.my_msg_F_S,m.my_msg_F_St)*FONTMETRIC( 6 ,m.my_msg_F_N,m.my_msg_F_S,m.my_msg_F_St)
		m.my_ret = .Width-m.my_w_a- 8 
	ENDWITH
	RELEASE m.my_obj_tab
ENDIF
RETURN m.my_ret