renhao
2023-10-13 462215553c754d26acde8edab81b4a73f774e21e
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
Quintiq file version 2.0
#parent: #root
Method GetColorScheme (
  String definitionname
) as internal[Color] id:Method_ApplicationLibMacroPlanner_GetColorScheme
{
  #keys: '[11660.0.549111060]'
  Body:
  [*
    // Get color scheme
    colorscheme := ApplicationScope.ColorSchemeManager().ActiveColorScheme();
    
    colorschemeentry := select( colorscheme,
                                Accessors.Entry.astype( ColorSchemeEntry ),
                                e,
                                e.Definition().Name() = definitionname );
    
    manager := ApplicationScope.Project().ColorSchemeManager();
    scheme  := manager.Edit( ApplicationScope.SessionMDS(), colorscheme );
    lock    := scheme.AcquireLock();
    
    dlg := construct( dlgEditColorSchemeEntry );
    dlg.Data( colorschemeentry );
    dlg.dhLockHolder().Data( lock );
    
    result := dlg.DoModal(this);
    
    if( result > 0 )
    {
      manager.Apply( colorscheme, lock );
    }
    
    return colorschemeentry.Color();
  *]
}