hedgewars/uTypes.pas
changeset 9377 48ab6dea8d2f
parent 9317 a04c30940d2d
child 9473 a51a69094c24
equal deleted inserted replaced
9376:0405f5f4e7e0 9377:48ab6dea8d2f
   411             Flawless: boolean;
   411             Flawless: boolean;
   412             end;
   412             end;
   413 
   413 
   414      cdeclPtr = procedure; cdecl;
   414      cdeclPtr = procedure; cdecl;
   415      cdeclIntPtr = procedure(num: LongInt); cdecl;
   415      cdeclIntPtr = procedure(num: LongInt); cdecl;
   416      functionDoublePtr = function: Double;
       
   417 
   416 
   418      TMobileRecord = record
   417      TMobileRecord = record
   419                      getScreenDPI: functionDoublePtr;
       
   420                      PerformRumble: cdeclIntPtr;
   418                      PerformRumble: cdeclIntPtr;
   421                      GameLoading: cdeclPtr;
   419                      GameLoading: cdeclPtr;
   422                      GameLoaded: cdeclPtr;
   420                      GameLoaded: cdeclPtr;
   423                      SaveLoadingEnded: cdeclPtr;
   421                      SaveLoadingEnded: cdeclPtr;
   424                      end;
   422                      end;