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;
|
*]
|
}
|
