Add(Plotter,16744840,588,154)
{
 Left=25
 Top=100
 Width=445
 Height=185
 Color=16777215
 Name="own_rate"
 MinH=-0.001
 MinW=-1.5
 MaxW=35
 Point(doMaxH)
 Point(MaxY)
}
Add(PlotHistogram,11543609,406,210)
{
 Grapher="own_rate"
 Step=3
 Name="22"
 Axis="11"
 link(onAdd,11661144:doEvent1,[])
}
Add(PlotAxis,395775,406,266)
{
 Grapher="own_rate"
 Name="11"
 Color=0
}
Add(PlotSeriesMarker,1928897,455,266)
{
 Grapher="own_rate"
 HAlign=1
 TextList=#6:Январь|7:Февраль|4:Март|6:Апрель|3:Май|4:Июнь|4:Июль|6:Август|8:Сентябрь|7:Октябрь|6:Ноябрь|7:Декабрь|
 Series="22"
}
Add(Math,5516945,588,217)
{
 Op2=4
 ResultType=0
 link(onResult,13051532:doWork3,[(632,223)(632,197)(571,197)])
 link(Op1,5392838:Var2,[])
}
Add(Hub,11661144,462,210)
{
 link(onEvent1,11561095:doMessage,[])
 link(onEvent2,5516945:doOperation,[])
}
Add(HubEx,13051532,567,161)
{
 link(onEvent,16744840:doMaxH,[])
}
Add(For,7127810,350,210)
{
 Start=11
 End=22
 link(onEvent,11543609:doAdd,[])
}
Add(Message,11561095,511,210)
{
 link(Message,5392838:Var1,[(517,201)])
}
Add(GetDataEx,5392838,588,196)
{
 link(Data,16744840:MaxY,[])
}
Add(MainForm,2953706,84,84)
{
 Width=507
 Height=541
 Position=1
 link(onCreate,7127810:doFor,[(233,104)(233,216)])
}

#pas
function THIPlotter.graphMaxY:real;
var i:integer;
    r:real;
begin
   if SeriesCount = 0 then
     Result := 0
   else
     if _prop_MaxH ‹› 0 Then Result := _prop_MaxH Else
        begin
          Result := -$FFFFFF;
          for i := 0 to SeriesCount-1 do
            if Series[i].Count › 0 then 
              begin
                r := Series[i].graphMaxY;
                if r › Result then
                  Result := r;
              end;
          if Result = -$FFFFFF then
            Result := 0; 
        end;
end;