Ver Fonte

removed Dependency on Windows Unit.

@albert, please take note

in the file UBaseTypes.pas, on line 305, I replaced the existing code {$IFDEF CPU64}GetTickCount64{$ELSE}windows.GetTickCount{$ENDIF}; with {$IFDEF CPU64}GetTickCount64{$ELSE}SysUtils.GetTickCount{$ENDIF};  since this removes the dependency on the windows unit thereby making it more crossplatform.
Ugochukwu Mmaduekwe há 7 anos atrás
pai
commit
59c4b30f8a
1 ficheiros alterados com 1 adições e 3 exclusões
  1. 1 3
      src/core/UBaseTypes.pas

+ 1 - 3
src/core/UBaseTypes.pas

@@ -89,8 +89,6 @@ Type
 
 implementation
 
-Uses Windows;
-
 { TBaseType }
 
 {$IFnDEF FPC}
@@ -302,7 +300,7 @@ end;
 
 class function TPlatform.GetTickCount: TTickCount;
 begin
-  Result := {$IFDEF CPU64}GetTickCount64{$ELSE}windows.GetTickCount{$ENDIF};
+  Result := {$IFDEF CPU64}GetTickCount64{$ELSE}SysUtils.GetTickCount{$ENDIF};
 end;
 
 { TNotifyEventToMany }