pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Convert system month names to utf8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2846 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
zoran-vucenovic
2013-11-23 06:22:41 +00:00
parent 63f2b8fae4
commit db4eec3283
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas
View File

@ -905,7 +905,8 @@ begin
FMonthNames := AValue; FMonthNames := AValue;
if UpperCase(AValue) = 'SHORT' then if UpperCase(AValue) = 'SHORT' then
FMonthNamesArray := DefaultFormatSettings.ShortMonthNames for I := Low(TMonthNameArray) to High(TMonthNameArray) do
FMonthNamesArray[I] := AnsiToUtf8(DefaultFormatSettings.ShortMonthNames[I])
else begin else begin
N := 0; N := 0;
if Length(AValue) >= 24 then begin if Length(AValue) >= 24 then begin
@ -935,7 +936,8 @@ begin
end; end;
if N < 12 then if N < 12 then
FMonthNamesArray := DefaultFormatSettings.LongMonthNames; for I := Low(TMonthNameArray) to High(TMonthNameArray) do
FMonthNamesArray[I] := AnsiToUtf8(DefaultFormatSettings.LongMonthNames[I]);
end; end;
if FShowMonthNames and if FShowMonthNames and