procedure THIImg_Text.SetNewFont;
begin
   if Assigned(GFont) then GFont.free;
   GFont := NewFont;
   GFont.Color:= Value.Color;
   Share.SetFont(GFont,Value.Style);
   GFont.FontName:= Value.Name;
   GFont.FontHeight:= _hi_SizeFnt(Value.Size);
   GFont.FontCharset:= Value.CharSet;
end;

#pas
procedure THIImg_Text.SetNewFont;
begin
   if Assigned(GFont) then GFont.free;
   GFont := NewFont;
   GFont.Color:= Value.Color;
   Share.SetFont(GFont,Value.Style);
   GFont.FontName:= Value.Name;
   GFont.FontHeight:= _hi_SizeFnt(Value.Size);
   GFont.FontCharset:= Value.CharSet;
   GFont.FontOrientation:=90*10; // ДОБАВИТЬ Tad
end;

#pas
GFont.FontOrientation:=ReadInteger(_Data,Angle,_prop_Angle)*10;

Add(MainForm,2953706,21,105)
{
 Point(onPaint)
 link(onPaint,2910449:doDraw,[])
}
Add(Img_Text,2910449,84,126)
{
 X=100
 Y=100
 DrawSource=2
 Font=[Arial,14,0,0,204]
 Orientation=45
 Text="Петя"
}