equal
deleted
inserted
replaced
533 logfileBase:= 'preview'; |
533 logfileBase:= 'preview'; |
534 {$ENDIF} |
534 {$ENDIF} |
535 {$IFDEF USE_VIDEO_RECORDING} |
535 {$IFDEF USE_VIDEO_RECORDING} |
536 InitCriticalSection(logMutex); |
536 InitCriticalSection(logMutex); |
537 {$ENDIF} |
537 {$ENDIF} |
538 {$I-} |
|
539 // if log is locked, write to the next one |
538 // if log is locked, write to the next one |
540 i:= 0; |
539 i:= 0; |
541 while(i < 7) do |
540 while(i < 7) do |
542 begin |
541 begin |
543 logFile:= pfsOpenWrite('/Logs/' + logfileBase + inttostr(i) + '.log'); |
542 logFile:= pfsOpenWrite('/Logs/' + logfileBase + inttostr(i) + '.log'); |
544 if logFile <> nil then |
543 if logFile <> nil then |
545 break; |
544 break; |
546 inc(i) |
545 inc(i) |
547 end; |
546 end; |
548 {$I+} |
|
549 {$ENDIF} |
547 {$ENDIF} |
550 |
548 |
551 //mobile stuff |
549 //mobile stuff |
552 {$IFDEF IPHONEOS} |
550 {$IFDEF IPHONEOS} |
553 mobileRecord.PerformRumble:= @AudioServicesPlaySystemSound; |
551 mobileRecord.PerformRumble:= @AudioServicesPlaySystemSound; |