hedgewars/uTypes.pas
changeset 9431 0f5961910e27
parent 9377 48ab6dea8d2f
child 9473 a51a69094c24
equal deleted inserted replaced
9357:a501f5ec7b34 9431:0f5961910e27
   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;