1. Pascal / Говнокод #18058

    +143

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocaleService)) then
        S := LocaleService.GetLocaleFirstDayOfWeek
      else
        S := '6';
      FFirstDayOfWeekNum := Ord(S.Chars[0]) - Ord('0');
      {$IFDEF MACOS}
      FFirstDayOfWeekNum:= Ord(S.Chars[0]) + Ord('0');
      {$ENDIF}
      {$IFDEF ANDROID}
        FFirstDayOfWeekNum := FFirstDayOfWeekNum - MondayOffset;
      {$ENDIF}

    Это FireMonkey! FMX.Calendar.Style.pas! И это реально работает.
    Главное, что всё очевидно.

    Запостил: PeaK, 24 Апреля 2015

    Комментарии (1) RSS

    Добавить комментарий