diff options
author | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-09-07 00:11:32 +0000 |
---|---|---|
committer | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-09-07 00:11:32 +0000 |
commit | 3eb83d6110761ac8c8efae4baaa231be3bfa64e4 (patch) | |
tree | f221afe626f5b5d399e9fc5449c6021350b35e4d /src/ultrastardx.dpr | |
parent | a1cc9838fa20ec350c06534ce34b493fdc9fbb6d (diff) | |
download | usdx-3eb83d6110761ac8c8efae4baaa231be3bfa64e4.tar.gz usdx-3eb83d6110761ac8c8efae4baaa231be3bfa64e4.tar.xz usdx-3eb83d6110761ac8c8efae4baaa231be3bfa64e4.zip |
* show CallStack on unhandled application error
* do not show Top 5 Screen when there are no scores to show
* first UThemes changes for duett and fixes for jukebox
* first step of standardizing the function-keys in JukeBox: press r to randomize/mix the playlist or press j and start typing for song search
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3131 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/ultrastardx.dpr')
-rw-r--r-- | src/ultrastardx.dpr | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/ultrastardx.dpr b/src/ultrastardx.dpr index d798d632..d5cf85e6 100644 --- a/src/ultrastardx.dpr +++ b/src/ultrastardx.dpr @@ -354,13 +354,27 @@ uses const sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF} {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF}; +var + I: Integer; + Report: string; + begin try Main; except on E : Exception do begin - ShowMessage('Exception class name = '+E.ClassName+sLineBreak+'Exception message = '+E.Message); + Report := 'Sorry, an error ocurred! Please report this error to the game-developers. Also check the Error.log file in the game folder.' + LineEnding + + 'Stacktrace:' + LineEnding; + if E <> nil then begin + Report := Report + 'Exception class: ' + E.ClassName + LineEnding + + 'Message: ' + E.Message + LineEnding; + end; + Report := Report + BackTraceStrFunc(ExceptAddr); + for I := 0 to ExceptFrameCount - 1 do + Report := Report + LineEnding + BackTraceStrFunc(ExceptFrames[I]); + ShowMessage(Report); + Halt; end; end; end. |