Quintiq file version 2.0
#parent: CustomDrawRC/CustomDrawDataLayerOperationLinkEdge
Response OnDrawObject (
  OperationLinkEdge object
) id:Response_CustomDrawRC_CustomDrawDataLayerOperationLinkEdge_OnDrawObject
{
  #keys: '[139394.0.1292640671]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebCustomDrawDataLayer_OnDrawObject'
  QuillAction
  {
    Body:
    [*
      // Draw operation link edge
      rcv := MacroPlan.RoutingConfiguratorView();
      
      // Adjust line based on its orientations
      topdown := object.FromY() < object.ToY();
      leftright := object.FromX() < object.ToX();
      padding := 6;
      
      fromx := region.BoundingRect().Left() + padding;
      tox := region.BoundingRect().Width() - padding;
      
      if( topdown )
      {
        if( not leftright )
        {
          fromx := region.BoundingRect().Width() - padding;
          tox := region.BoundingRect().Left() + padding;
        }
      }
      else
      {
        if( leftright )
        {
          fromx := region.BoundingRect().Width() - padding;
          tox := region.BoundingRect().Left() + padding;
        }
      }
      
      surface.Brush().Reset(); // strange. without this line, the arrow head will not be filled.
      surface.Pen().Color( ColorScheme.RoutingConfigurator_RoutingArrow() );
      surface.Brush().Color( ColorScheme.RoutingConfigurator_RoutingArrow() ); // to paint the solid arrowhead
      
      surface.Pen().Style( PenSpecification::StyleDotted() );
      surface.Pen().Width( rcv.EdgeThickness() );
      
      // Draw the directional line
      line := GraphicalLine::LineTo(  fromx, region.BoundingRect().Top(), tox, region.BoundingRect().Height() );
      line.ArrowToEnd( topdown ).ArrowPos( GraphicalLine::ArrowPosMiddle() );  
      surface.Draw( line );
    *]
    GroupServerCalls: false
  }
}