equal
deleted
inserted
replaced
126 //////////////////// |
126 //////////////////// |
127 procedure OnDestroy; |
127 procedure OnDestroy; |
128 begin |
128 begin |
129 {$IFDEF DEBUGFILE}AddFileLog('Freeing resources...');{$ENDIF} |
129 {$IFDEF DEBUGFILE}AddFileLog('Freeing resources...');{$ENDIF} |
130 if isSoundEnabled then ReleaseSound; |
130 if isSoundEnabled then ReleaseSound; |
131 StoreRelease;SendKB; |
131 StoreRelease; |
|
132 SendKB; |
132 CloseIPC; |
133 CloseIPC; |
133 TTF_Quit; |
134 TTF_Quit; |
134 SDL_Quit; |
135 SDL_Quit; |
135 halt |
136 halt |
136 end; |
137 end; |