yypsybs
2023-09-09 3cb5a54def670d97301f07170fcaad213bfc54f2
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
Quintiq file version 2.0
#parent: #root
Method ShowYearlyPattern () id:Method_LibCal_dlgEvent_ShowYearlyPattern
{
  #keys: '[131094.0.1704965651]'
  Body:
  [*
    // Specific date
    isDate := ckbYearlyDay.Checked();
    clrSs  := ifexpr( isDate, Color::Black(), Color::Gray() );
    
    ckbYearlyDay     .Enabled(   true   );
    ssYearlyMonth     .Enabled(   isDate );
    ssYearlyMonth     .TextColor( clrSs  );
    ssYearlyDayOfMonth.Enabled(   isDate );
    ssYearlyDayOfMonth.TextColor( clrSs  );
    
    // Pattern
    isPattern := ckbYearlyPattern.Checked();
    clrLbl    := ifexpr( isPattern, Color::WindowText(), Color::Gray() );
    clrSs     := ifexpr( isPattern, Color::Black(),      Color::Gray() );
    
    ckbYearlyPattern          .Enabled(   true    );
    ssYearlyPatternWeekOfMonth.Enabled( isPattern );
    ssYearlyPatternWeekOfMonth.TextColor( clrSs   );
    ssYearlyPatternDayOfWeek  .Enabled( isPattern );
    ssYearlyPatternDayOfWeek  .TextColor( clrSs   );
    lblYearlyPatternOf        .TextColor( clrLbl  );
    ssYearlyPatternMonth      .Enabled( isPattern );
    ssYearlyPatternMonth      .TextColor( clrSs   );
  *]
}