mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Cache time zone bias on Windows.

Browse source
This commit is contained in:
cobines 2012-04-14 12:36:17 +00:00
commit b8a4a45448
1 changed files with 27 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

41
components/doublecmd/dcdatetimeutils.pas
View file

@ -129,6 +129,11 @@ const { Short names of months. }
'Jul','Aug','Sep','Oct','Nov','Dec');
SecsPerHour = SecsPerMin * MinsPerHour;
{$IF DEFINED(MSWINDOWS)}
var
WinTimeZoneBias: LongInt;
{$ENDIF}
function AdjustUnixFileTime(const FileTime: DCBasicTypes.TFileTime;
out AdjustedFileTime: DCBasicTypes.TFileTime;
AdjustValue: Int64): Boolean;
@ -490,22 +495,9 @@ begin
end;
function GetTimeZoneBias: LongInt;
{$IF DEFINED(MSWINDOWS)}
var
TZInfo: TTimeZoneInformation;
{$ENDIF}
begin
{$IF DEFINED(MSWINDOWS)}
case GetTimeZoneInformation(@TZInfo) of
TIME_ZONE_ID_UNKNOWN:
Result := TZInfo.Bias;
TIME_ZONE_ID_STANDARD:
Result := TZInfo.Bias + TZInfo.StandardBias;
TIME_ZONE_ID_DAYLIGHT:
Result := TZInfo.Bias + TZInfo.DaylightBias;
else
Result := 0;
end;
Result := WinTimeZoneBias;
{$ELSEIF DEFINED(UNIX)}
Result := -Tzseconds div 60;
{$ELSE}
@ -561,5 +553,26 @@ begin
FDateTime := ADateTime;
end;
{$IF DEFINED(MSWINDOWS)}
procedure InitTimeZoneBias;
var
TZInfo: TTimeZoneInformation;
begin
case GetTimeZoneInformation(@TZInfo) of
TIME_ZONE_ID_UNKNOWN:
WinTimeZoneBias := TZInfo.Bias;
TIME_ZONE_ID_STANDARD:
WinTimeZoneBias := TZInfo.Bias + TZInfo.StandardBias;
TIME_ZONE_ID_DAYLIGHT:
WinTimeZoneBias := TZInfo.Bias + TZInfo.DaylightBias;
else
WinTimeZoneBias := 0;
end;
end;
initialization
InitTimeZoneBias;
{$ENDIF}
end.