Код

--
procedure УстановитьАтрибуты()
	var X,Y,W,H,X1,Y1,Y2,H1,H2,H23;

	Attrib=СоздатьОбъект("АтрибутФормы");
	Attrib.AssignAttrib(Форма,"ГПК");
	Attrib.GetCoordinates(X,Y,W,H);

	Y=Y+H+4;
	H=160;

	Attrib.AssignAttrib(Форма,"ТП_Климат");
	Attrib.SetCoordinates(X-1,Y+H-1,W,);

	// Список Ширин Колонок
	СШК=СоздатьОбъект("СписокЗначений");
	for i=0 to ТП_Климат.Columns.Count()-1 do
		СШК.AddValue(ТП_Климат.Columns.Получить(i).РеалШирина-1);
	enddo;

	Y=Y-1;
	Attrib.AssignAttrib(Форма,"к1");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(1),H);

	X=X+СШК.GetValue(1)+1;
	Attrib.AssignAttrib(Форма,"к23");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(2)+СШК.GetValue(3)+1,);
	Attrib.GetCoordinates(,,,H23);

	Attrib.AssignAttrib(Форма,"к2");
	Attrib.SetCoordinates(X,Y+H23+1,СШК.GetValue(2),H-H23-1);
	Attrib.GetCoordinates(,Y2,,H2);

	X=X+СШК.GetValue(2)+1;
	Attrib.AssignAttrib(Форма,"к3");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(3),H2);


	X=X+СШК.GetValue(3)+1;
	Attrib.AssignAttrib(Форма,"к45");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(4)+СШК.GetValue(5)+1,H23);

	Attrib.AssignAttrib(Форма,"к4");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(4),H2);

	X=X+СШК.GetValue(2)+1;
	Attrib.AssignAttrib(Форма,"к5");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(5),H2);

	X=X+СШК.GetValue(5)+1;
	Attrib.AssignAttrib(Форма,"к6");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(6),H);

	X=X+СШК.GetValue(6)+1;
	Attrib.AssignAttrib(Форма,"к7");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(7),H);

	X=X+СШК.GetValue(7)+1;
	Attrib.AssignAttrib(Форма,"к8");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(8),H);

	X=X+СШК.GetValue(8)+1;
	Attrib.AssignAttrib(Форма,"к91011121314");
	GetValue(12)+СШК.GetValue(13)+СШК.GetValue(14)+5,);
	Attrib.GetCoordinates(,,,H1);


	Attrib.AssignAttrib(Форма,"к910");
	Attrib.SetCoordinates(X,Y+H1+1,СШК.GetValue(9)+СШК.GetValue(10)+1,H-H1-H2-2);

	Attrib.AssignAttrib(Форма,"к9");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(9),H2);

	X=X+СШК.GetValue(9)+1;
	Attrib.AssignAttrib(Форма,"к10");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(10),H2);

	X=X+СШК.GetValue(10)+1;
	Attrib.AssignAttrib(Форма,"к1112");
	Attrib.SetCoordinates(X,Y+H1+1,СШК.GetValue(11)+СШК.GetValue(12)+1,H-H1-H2-2);

	Attrib.AssignAttrib(Форма,"к11");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(11),H2);

	X=X+СШК.GetValue(11)+1;
	Attrib.AssignAttrib(Форма,"к12");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(12),H2);

	X=X+СШК.GetValue(12)+1;
	Attrib.AssignAttrib(Форма,"к1314");
	Attrib.SetCoordinates(X,Y+H1+1,СШК.GetValue(13)+СШК.GetValue(14)+1,H-H1-H2-2);

	Attrib.AssignAttrib(Форма,"к13");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(13),H2);

	X=X+СШК.GetValue(13)+1;
	Attrib.AssignAttrib(Форма,"к14");
	Attrib.SetCoordinates(X,Y2,СШК.GetValue(14),H2);

	X=X+СШК.GetValue(14)+1;
	Attrib.AssignAttrib(Форма,"к15");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(15),H);

	X=X+СШК.GetValue(15)+1;
	Attrib.AssignAttrib(Форма,"к16");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(16),H);

	X=X+СШК.GetValue(16)+1;
	Attrib.AssignAttrib(Форма,"к17");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(17),H);

	X=X+СШК.GetValue(17)+1;
	Attrib.AssignAttrib(Форма,"к18");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(18),H);

	X=X+СШК.GetValue(18)+1;
	Attrib.AssignAttrib(Форма,"к19");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(19),H);

	X=X+СШК.GetValue(19)+1;
	Attrib.AssignAttrib(Форма,"к20");
	Attrib.SetCoordinates(X,Y,СШК.GetValue(20),H);

endprocedure // УстановитьАтрибуты()