From 6837e079bbf77ef350c2de888963575e7fe452db Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 3 Jun 2002 20:26:16 +0000
Subject: [PATCH]  * use local time for windows

---
 fv/time.pas      | 15 +++++++++------
 fvision/time.pas | 15 +++++++++------
 2 files changed, 18 insertions(+), 12 deletions(-)

diff --git a/fv/time.pas b/fv/time.pas
index 422775247f..9c8181ebad 100644
--- a/fv/time.pas
+++ b/fv/time.pas
@@ -279,15 +279,15 @@ PROCEDURE SetTime (Hour, Minute, Second, Sec100: Word);
    VAR DT: TSystemTime;
    BEGIN
      {$IFDEF PPC_FPC}                                 { FPC WINDOWS COMPILER }
-     GetSystemTime(@DT);                              { Get the date/time }
+     GetLocalTime(@DT);                              { Get the date/time }
      {$ELSE}                                          { OTHER COMPILERS }
-     GetSystemTime(DT);                               { Get the date/time }
+     GetLocalTime(DT);                               { Get the date/time }
      {$ENDIF}
      DT.wHour := Hour;                                { Transfer hour }
      DT.wMinute := Minute;                            { Transfer minute }
      DT.wSecond := Second;                            { Transfer seconds }
      DT.wMilliseconds := Sec100 * 10;                 { Transfer millisecs }
-     SetSystemTime(DT);                               { Set the date/time }
+     SetLocalTime(DT);                               { Set the date/time }
    END;
    {$ENDIF}
 {$ENDIF}
@@ -388,9 +388,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
    VAR DT: TSystemTime;
    BEGIN
      {$IFDEF PPC_FPC}                                 { FPC WINDOWS COMPILER }
-     GetSystemTime(@DT);                              { Get the date/time }
+     GetLocalTime(@DT);                              { Get the date/time }
      {$ELSE}                                          { OTHER COMPILERS }
-     GetSystemTime(DT);                               { Get the date/time }
+     GetLocalTime(DT);                               { Get the date/time }
      {$ENDIF}
      Hour := DT.wHour;                                { Transfer hour }
      Minute := DT.wMinute;                            { Transfer minute }
@@ -438,7 +438,10 @@ END.
 
 {
  $Log$
- Revision 1.4  2001-05-04 09:04:08  pierre
+ Revision 1.5  2002-06-03 20:26:16  pierre
+  * use local time for windows
+
+ Revision 1.4  2001/05/04 09:04:08  pierre
   * fix dos assembler problem
 
  Revision 1.3  2001/05/04 08:42:56  pierre
diff --git a/fvision/time.pas b/fvision/time.pas
index 422775247f..9c8181ebad 100644
--- a/fvision/time.pas
+++ b/fvision/time.pas
@@ -279,15 +279,15 @@ PROCEDURE SetTime (Hour, Minute, Second, Sec100: Word);
    VAR DT: TSystemTime;
    BEGIN
      {$IFDEF PPC_FPC}                                 { FPC WINDOWS COMPILER }
-     GetSystemTime(@DT);                              { Get the date/time }
+     GetLocalTime(@DT);                              { Get the date/time }
      {$ELSE}                                          { OTHER COMPILERS }
-     GetSystemTime(DT);                               { Get the date/time }
+     GetLocalTime(DT);                               { Get the date/time }
      {$ENDIF}
      DT.wHour := Hour;                                { Transfer hour }
      DT.wMinute := Minute;                            { Transfer minute }
      DT.wSecond := Second;                            { Transfer seconds }
      DT.wMilliseconds := Sec100 * 10;                 { Transfer millisecs }
-     SetSystemTime(DT);                               { Set the date/time }
+     SetLocalTime(DT);                               { Set the date/time }
    END;
    {$ENDIF}
 {$ENDIF}
@@ -388,9 +388,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
    VAR DT: TSystemTime;
    BEGIN
      {$IFDEF PPC_FPC}                                 { FPC WINDOWS COMPILER }
-     GetSystemTime(@DT);                              { Get the date/time }
+     GetLocalTime(@DT);                              { Get the date/time }
      {$ELSE}                                          { OTHER COMPILERS }
-     GetSystemTime(DT);                               { Get the date/time }
+     GetLocalTime(DT);                               { Get the date/time }
      {$ENDIF}
      Hour := DT.wHour;                                { Transfer hour }
      Minute := DT.wMinute;                            { Transfer minute }
@@ -438,7 +438,10 @@ END.
 
 {
  $Log$
- Revision 1.4  2001-05-04 09:04:08  pierre
+ Revision 1.5  2002-06-03 20:26:16  pierre
+  * use local time for windows
+
+ Revision 1.4  2001/05/04 09:04:08  pierre
   * fix dos assembler problem
 
  Revision 1.3  2001/05/04 08:42:56  pierre