equal
deleted
inserted
replaced
113 begin |
113 begin |
114 flagMakeCapture:= false; |
114 flagMakeCapture:= false; |
115 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); |
116 |
116 |
117 playSound(sndShutter); |
117 playSound(sndShutter); |
118 {$IFNDEF IPHONEOS} |
118 if MakeScreenshot(s) then WriteLnToConsole('Screenshot saved: ' + s) |
119 if not MakeScreenshot(s) then |
119 else begin |
120 begin |
|
121 WriteLnToConsole('Screenshot failed.'); |
120 WriteLnToConsole('Screenshot failed.'); |
122 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
121 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)'); |
123 end |
122 end |
124 else |
|
125 {$ENDIF} |
|
126 WriteLnToConsole('Screenshot saved: ' + s); |
|
127 end; |
123 end; |
128 end; |
124 end; |
129 |
125 |
130 //////////////////// |
126 //////////////////// |
131 procedure OnDestroy; |
127 procedure OnDestroy; |
146 isTerminated:= false; |
142 isTerminated:= false; |
147 end; |
143 end; |
148 |
144 |
149 /////////////////// |
145 /////////////////// |
150 procedure MainLoop; |
146 procedure MainLoop; |
151 {$WARNINGS OFF} |
147 var event: TSDL_Event; |
152 // disable "Some fields weren't initialized" warning |
148 PrevTime, CurrTime: Longword; |
153 const event: TSDL_Event = (); |
|
154 {$WARNINGS ON} |
|
155 var PrevTime, CurrTime: Longword; |
|
156 {$IFDEF SDL13} |
149 {$IFDEF SDL13} |
157 previousGameState: TGameState; |
150 previousGameState: TGameState; |
158 {$ELSE} |
151 {$ELSE} |
159 prevFocusState: boolean; |
152 prevFocusState: boolean; |
160 {$ENDIF} |
153 {$ENDIF} |