Quintiq file version 2.0
#parent: #root
Method PTF_ZoomGanttChart (
  String formname,
  String ganttchartname,
  Number zoomlevel,
  output String response_o
) as Boolean id:Method_LibPTF_pnlTestRunner_PTF_ZoomGanttChart
{
  #keys: '[103546.0.53959002]'
  Body:
  [*
    // Zooms the Gantt Chart in or out
    issuccessful     := false;
    targetganttchart := this.PTF_GetGanttChart( formname, ganttchartname, response_o );
    
    if( response_o.Length() = 0 ) //equals to not isnull( targetganttchart );
    {
      // Perform (multiple) zoom in or zoom out on gantt chart depending on zoomlevel value
      if( zoomlevel > 0 )
      {
        for( i := 0; i < zoomlevel; i++ )
        {
          targetganttchart.ZoomIn();
        }
      }
      else
      {
        for( i := 0; i > zoomlevel; i-- )
        {
          targetganttchart.ZoomOut();
        }
      }
      issuccessful := true;
    }
    else
    {
      MessageBox::Warning( this, response_o, "OK", 1 );
    }
    
    return issuccessful;
  *]
}