From db4eec3283ee74b090810ef7b961ab446057f31c Mon Sep 17 00:00:00 2001 From: zoran-vucenovic Date: Sat, 23 Nov 2013 06:22:41 +0000 Subject: [PATCH] Convert system month names to utf8 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2846 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas b/components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas index ee909426b..a624598ed 100644 --- a/components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas +++ b/components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas @@ -905,7 +905,8 @@ begin FMonthNames := AValue; if UpperCase(AValue) = 'SHORT' then - FMonthNamesArray := DefaultFormatSettings.ShortMonthNames + for I := Low(TMonthNameArray) to High(TMonthNameArray) do + FMonthNamesArray[I] := AnsiToUtf8(DefaultFormatSettings.ShortMonthNames[I]) else begin N := 0; if Length(AValue) >= 24 then begin @@ -935,7 +936,8 @@ begin end; if N < 12 then - FMonthNamesArray := DefaultFormatSettings.LongMonthNames; + for I := Low(TMonthNameArray) to High(TMonthNameArray) do + FMonthNamesArray[I] := AnsiToUtf8(DefaultFormatSettings.LongMonthNames[I]); end; if FShowMonthNames and