Quintiq file version 2.0
#parent: CustomDrawComponent/CustomDrawDataLayerGridBackground
Response OnDrawObject (
  MacroPlan object
) id:Response_CustomDrawComponent_CustomDrawDataLayerGridBackground_OnDrawObject
{
  #keys: '[11660.0.348772634]'
  Body:
  [*
    // Draw background image
    if( not isnull( DataHolderView.Data() ) )
    {
      // Draw the background image defined in global parameter unless it's in a drilled down unit
      view := select( MacroPlan, ViewBase.astype( SupplyChainView ), v, v.User() = ApplicationScope.Session().CurrentUser().ShortName() );
      bgimage := guard( view.SupplyChainBackground(), '' );
      focusedunitnode := select( DataHolderView.Data(), Node.astype( UnitNode ), n, n.Unit() = DataHolderFocusedUnit.Data() );
    
      if ( not isnull( focusedunitnode ) )
      {
        bgimage := focusedunitnode.BackgroundImageName();
      }
    
      if ( bgimage <> '' )
      {
        surface.Image( region.Left() , region.Top(), bgimage );
      }
    
      if( DataHolderView.Data().IsGridVisible() )
      {
        surface.Pen().Color( ColorScheme.Grid() ); 
        surface.Pen().Style( PenSpecification::StyleSolid() );
        surface.Pen().Width( 1 );
        
        width := DataHolderView.Data().GridWidth();
        height := DataHolderView.Data().GridHeight();
        grid := DataHolderView.Data().GridPointDistance();
      
        for ( x := 0; x < width; x := x + grid )
        {
          surface.Line( x, 0, x, height );
        }
    
        for ( y := 0; y < height; y := y + grid )
        {
          surface.Line( 0, y, width, y );
        }
      }
    }
  *]
  DefinitionID: 'Responsedef_CustomDrawDataLayer_OnDrawObject'
}