Quintiq file version 2.0
#parent: PanelSCV/CustomDrawDataLayerSCVEdge
Response OnDrawObject (
  shadow[SCVEdge] object
) id:Response_PanelSCV_CustomDrawDataLayerSCVEdge_OnDrawObject
{
  #keys: '[134266.2.4973606]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebCustomDrawDataLayer_OnDrawObject'
  QuillAction
  {
    Body:
    [*
      // Draw object
      scvConfig := MacroPlan.SCVConfiguration();
      
      adjustmentX := scvConfig.NodeSize();
      adjustmentY := floor( scvConfig.NodeSize() / 2 );
      
      // Adjust line based on its orientations
      
      topdown := object.ToY() > object.FromY();
      leftright := object.ToX() > object.FromX();
      
      padding := 6;
      
      
      fromy := region.BoundingRect().Top() + padding;
      toy := region.BoundingRect().Height() - padding;
      
      if( topdown )
      {
        if( not leftright )
        {
          fromy := region.BoundingRect().Top() + padding;
          toy := region.BoundingRect().Height() - padding;
        }
      }
      else
      {
        if( leftright )
        {
          fromy := region.BoundingRect().Height() - padding;
          toy := region.BoundingRect().Top() + padding;
        }
      }
      
      // Get line quantity and label
      quantity := object.Quantity();
      lineLabel := object.Label()
      
      // Color the line gray if quantity is 0 or smaller
      lineColor := ColorScheme.SupplyChainVisualization_Edge();
      if( quantity <= 0.0 )
      {
        lineColor := ColorScheme.SupplyChainVisualization_Node();
        // Color the text gray too
        surface.TextColor( lineColor );
      }
      
      //Initialize drawing parameters
      surface.Pen().Color( lineColor )
                   .Width( 1 );
      surface.Brush().Color( lineColor );
      
      // Draw the directional line
      line := GraphicalLine::LineTo( region.BoundingRect().Left(), fromy, region.BoundingRect().Width(), toy );
      line.ArrowToEnd( true ).ArrowPos( GraphicalLine::ArrowPosMiddle() );
      surface.Draw( line );
      
      // Draw quantity label
      // Get rotation angle to rotate the text to the same angle as the line
      gradient := ( toy - fromy ) / ( region.BoundingRect().Width() - region.BoundingRect().Left() );
      degree := atan( -gradient ) * 180 / pi;
      // Webclient doesn't support negative degree rotation
      
      surface.Font().Name( scvConfig.FontName() )
                    .Size( scvConfig.FontSize() )
                    .Angle( [Number]degree );
      
      textformat := TextFormat::Construct( TextFormat::AlignCenter() );
      
      // Rotate the text to 
      if( object.FromY() = object.ToY() )
      {
        surface.TextZoom( region.BoundingRect().Left(), region.BoundingRect().Top() - scvConfig.FontSize(),
                          region.BoundingRect().Width(), scvConfig.FontSize() * 2,
                          lineLabel, textformat );
      }
      else
      {
        // If targetnode and sourcenode have different Y positions,
        // it means there is a gradient and we need to rotate the 
        // text. The hardcoded offsets below are the sweet numbers
        // that we found that allows the text to have even distance to line
        // for any angle of rotation
        textformat := TextFormat::Construct( TextFormat::AlignCentered() );
        surface.TextZoom( region.BoundingRect().Left(), region.BoundingRect().Top() + ifexpr( gradient > 0, -14, -4 ),
                          region.BoundingRect().Width(), region.BoundingRect().Height(),
                          [String]lineLabel, textformat );    
      }
    *]
    GroupServerCalls: false
  }
}
