diff options
Diffstat (limited to 'wizards/source/schedule/CalendarMain.xba')
| -rw-r--r-- | wizards/source/schedule/CalendarMain.xba | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/wizards/source/schedule/CalendarMain.xba b/wizards/source/schedule/CalendarMain.xba index 338906e6f871..46e500681406 100644 --- a/wizards/source/schedule/CalendarMain.xba +++ b/wizards/source/schedule/CalendarMain.xba @@ -92,19 +92,19 @@ Dim iThisMonth as Integer .lstMonth.StringItemList() = cCalShortMonthNames() Select Case sCurLangLocale Case cLANGUAGE_JAPANESE - .lstOwnData.FontName = "HG Mincho Light J" - .txtEvent.FontName = "HG Mincho Light J" + .lstOwnData.FontName = "HG MinochoL" + .txtEvent.FontName = "HG MinchoL" Case cLANGUAGE_CHINESE If oDocument.CharLocale.Country = "CN" Then - .lstOwnData.FontName = "HG MSung Light SC" - .txtEvent.FontName = "HG MSung Light SC" + .lstOwnData.FontName = "FZ Song Ti" + .txtEvent.FontName = "FZ Song Ti" Else - .lstOwnData.FontName = "HG MSung Light TC" - .txtEvent.FontName = "HG MSung Light TC" + .lstOwnData.FontName = "FZ Ming Ti" + .txtEvent.FontName = "FZ Ming Ti" End If Case "ko" - .lstOwnData.FontName = "HG MyeongJo Light K" - .txtEvent.FontName = "HG MyeongJo Light K" + .lstOwnData.FontName = "Sun Gulim" + .txtEvent.FontName = "Sun Gulim" End Select .lstOwnEventMonth.StringItemList() = cCalShortMonthNames() .optYear.State = 1 |