hedgewars/uTypes.pas
branchwebgl
changeset 8332 9333216f2054
parent 8330 aaefa587e277
child 8444 75db7bb8dce8
equal deleted inserted replaced
8330:aaefa587e277 8332:9333216f2054
   402             Flawless: boolean;
   402             Flawless: boolean;
   403             end;
   403             end;
   404 
   404 
   405      cdeclPtr = procedure; cdecl;
   405      cdeclPtr = procedure; cdecl;
   406      cdeclIntPtr = procedure(num: LongInt); cdecl;
   406      cdeclIntPtr = procedure(num: LongInt); cdecl;
   407      functionDoublePtr = function: Double;
   407      funcDoublePtr = function: Double;
   408 
   408 
   409      TMobileRecord = record
   409      TMobileRecord = record
   410                      getScreenDPI: functionDoublePtr;
   410                      getScreenDPI: funcDoublePtr;
   411                      PerformRumble: cdeclIntPtr;
   411                      PerformRumble: cdeclIntPtr;
   412                      GameLoading: cdeclPtr;
   412                      GameLoading: cdeclPtr;
   413                      GameLoaded: cdeclPtr;
   413                      GameLoaded: cdeclPtr;
   414                      SaveLoadingEnded: cdeclPtr;
   414                      SaveLoadingEnded: cdeclPtr;
   415                      end;
   415                      end;