yanweiyuan3
2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Quintiq file version 2.0
#parent: CustomDrawComponentRoutingConfigurator/CustomDrawDataLayerOperationInput
Response OnDrawObject (
  OperationInput object
) id:Response_CustomDrawComponentRoutingConfigurator_CustomDrawDataLayerOperationInput_OnDrawObject
{
  #keys: '[110994.0.1918845886]'
  Body:
  [*
    // Draw operation input                                                                              
    
    //Initialize borders
    surface.Pen().Style( PenSpecification::StyleSolid() );
    surface.Pen().Width( 1 )
    surface.Pen().Color( ColorScheme.Outline() );
    
    // Using if-else stmt as splitting it into 2 responses with the same object type binding doesn't work
    if( object.IsElementOfInputGroup() )
    {
      color := ColorScheme.RoutingConfigurator_ElementOfInputGroup();
    
      if( object.IsFloating() )
      {
        color := ColorScheme.RoutingConfigurator_FloatingProduct();
      }
    
      diameter := minvalue( region.Width(), region.Height() );
      left := [Number]( region.Width()/2 ) - [Number]( diameter/2 );
    
      circle := Shape::Circle( left, region.Top(), diameter )
      surface.Fill( circle, color );
      surface.Circle( left, region.Top(), diameter, surface.Pen().Color() );
    }
    else
    {   
      colorstart := ColorScheme.RoutingConfigurator_OperationInputOutput1();
      colorend := ColorScheme.RoutingConfigurator_OperationInputOutput2();
    
      // Set color to black if operation is being disabled
      if( not object.Operation().IsEnabled() )
      {
        colorstart := ColorScheme.RoutingConfiguratorDisabled_InputOutput();
        colorend := ColorScheme.RoutingConfiguratorDisabled_InputOutput();
      }
      else if( object.IsFloating() )
      {
        colorstart := ColorScheme.RoutingConfigurator_FloatingProduct();
        colorend := ColorScheme.RoutingConfigurator_FloatingProduct();
      }
    
      surface.Brush().LinearGradient( region, colorstart, colorend, 0.0 )
      surface.Fill( region );
      surface.Rect( region.Left(), region.Top(), region.Width(), region.Height(), Color::Black() );  
      
      //Initialize text
      rcv := DataHolderRCView.Data();
      surface.Font().Name( rcv.FontName() );
      surface.Font().Size( rcv.FontSize() );
      surface.TextColor( Color::Black() );
      
      textformat := TextFormat::Construct( TextFormat::AlignCenter(), TextFormat::AlignMiddle() );
      surface.Text( region, text, textformat );
    }
  *]
  CanBindMultiple: false
  DefinitionID: 'Responsedef_CustomDrawDataLayer_OnDrawObject'
  Precondition:
  [*
    return not isnull( DataHolderRCView.Data() );
  *]
}