陈清红
2025-04-14 0b84c9999f07bc46275f5947c4b8ebf5ce0c25cf
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
Quintiq file version 2.0
#parent: #root
Method SetDefaultValue (
  Unit parentunit,
  Group group
) id:Method_DialogCreateEditUnit_SetDefaultValue
{
  #keys: '[11660.0.46365792]'
  Body:
  [*
    // Set default values for all actions
    DataHolderParentUnit.Data( parentunit );
    CheckBoxParent.Checked( not isnull( DataHolderParentUnit.Data() ) );
    
    img := GlobalParameters_MP::GetDefaultUnitIcon();
    
    if( not isnull( Dialog.Data().WrappedInstance() ) )
    {
      img := Dialog.Data().IconName();
    }
    
    LabelImageString.Text( img );
    NodeImage.SetProperty( 'Image', img );
    NodeImage.BackgroundColor( Color::Window() );
  *]
}