Add(Convertor,12266045,182,175)
{
 Digits=3
 SymbolFill=" "
}

#pas
procedure THIFixStr._work_doConvert;
var
Len,l,n:integer;
s:string;
begin
 Len:= ReadInteger(_Data,_data_NewLength,_prop_Digits);
 st:=ReadString(_Data,_data_Str,');
 l:=Length(st);
 n:=Len-l;
 If n<1 then st:= copy(st,1,Len)
  else
   begin
     s:=';
     For l:=1 to n do s:=s+_prop_SymbolFill;
     case _prop_Align of
      0: st:= s + st;
      1: st:= st + s;   
     end;
   end;
   _hi_onEvent(_event_onResult, st);
end;

Add(MainForm,2953706,140,224)
{
 link(onCreate,902210:doEnum,[])
}
Add(StrList,7877734,189,161)
{
 Strings=#6:Январь|7:Февраль|4:Март|6:Апрель|3:Май|4:Июнь|4:Июль|6:Август|8:Сентябрь|7:Октябрь|6:Ноябрь|7:Декабрь|8:--------|
}
Add(StrList,13403999,273,161)
{
 Strings=#7:1312,12|4:2,34|4:3,45|5:43,45|5:56,67|7:4544,44|6:234,44|4:4,56|5:34,67|6:456,78|5:23,56|7:2345,67|8:========|
}
Add(ArrayEnum,902210,203,238)
{
 link(onItem,13783388:doRead,[])
 link(Array,7877734:Array,[])
}
Add(StringTableMT,16259781,406,238)
{
 Left=20
 Top=10
 Width=180
 Height=220
 Font=[Courier,8,1,0,204]
 Columns=#11:Месяц   =85|11:Сумма   =85|
 TextAlign=1
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
}
Add(ArrayRW,13783388,287,238)
{
 link(onRead,4063541:doString,[])
 link(Array,13403999:Array,[])
 link(Index,902210:Index,[(300,226)(258,226)(258,282)(216,282)])
}
Add(FormatStr,4063541,343,238)
{
 Mask="%1  ;%2  "
 link(onFString,16259781:doAdd,[])
 link(Str1,902210:Item,[(349,226)(279,226)(279,282)(209,282)])
}