equal
deleted
inserted
replaced
110 {$ENDIF} |
110 {$ENDIF} |
111 |
111 |
112 if flagMakeCapture then |
112 if flagMakeCapture then |
113 begin |
113 begin |
114 flagMakeCapture:= false; |
114 flagMakeCapture:= false; |
115 {$IFNDEF IPHONEOS} |
|
116 s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
115 s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks); |
117 |
116 |
118 playSound(sndShutter); |
117 playSound(sndShutter); |
|
118 {$IFNDEF IPHONEOS} |
119 if not MakeScreenshot(s) then |
119 if not MakeScreenshot(s) then |
120 begin |
120 begin |
121 WriteLnToConsole('Screenshot failed.'); |
121 WriteLnToConsole('Screenshot failed.'); |
122 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
122 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
123 end |
123 end |
124 else |
124 else |
|
125 {$ENDIF} |
125 WriteLnToConsole('Screenshot saved: ' + s); |
126 WriteLnToConsole('Screenshot saved: ' + s); |
126 {$ENDIF} |
|
127 end; |
127 end; |
128 end; |
128 end; |
129 |
129 |
130 //////////////////// |
130 //////////////////// |
131 procedure OnDestroy; |
131 procedure OnDestroy; |
151 {$WARNINGS OFF} |
151 {$WARNINGS OFF} |
152 // disable "Some fields weren't initialized" warning |
152 // disable "Some fields weren't initialized" warning |
153 const event: TSDL_Event = (); |
153 const event: TSDL_Event = (); |
154 {$WARNINGS ON} |
154 {$WARNINGS ON} |
155 var PrevTime, CurrTime: Longword; |
155 var PrevTime, CurrTime: Longword; |
156 prevFocusState: boolean; |
|
157 {$IFDEF SDL13} |
156 {$IFDEF SDL13} |
158 previousGameState: TGameState; |
157 previousGameState: TGameState; |
|
158 {$ELSE} |
|
159 prevFocusState: boolean; |
159 {$ENDIF} |
160 {$ENDIF} |
160 begin |
161 begin |
161 PrevTime:= SDL_GetTicks; |
162 PrevTime:= SDL_GetTicks; |
162 while isTerminated = false do |
163 while isTerminated = false do |
163 begin |
164 begin |