hedgewars/uMisc.pas
changeset 10127 7f29a65aa1e4
parent 10124 aabd1b75d5a3
child 10150 fa5c83fd0ad9
equal deleted inserted replaced
10126:2fa3bb7785ee 10127:7f29a65aa1e4
   254 ReduceImage(p, cScreenWidth, cScreenHeight, k);
   254 ReduceImage(p, cScreenWidth, cScreenHeight, k);
   255 {$ENDIF}
   255 {$ENDIF}
   256 
   256 
   257 // allocate and fill structure that will be passed to new thread
   257 // allocate and fill structure that will be passed to new thread
   258 New(image); // will be disposed in SaveScreenshot()
   258 New(image); // will be disposed in SaveScreenshot()
   259 image^.filename:= UserPathPrefix + filename + ext;
   259 image^.filename:= shortstring(UserPathPrefix) + filename + ext;
   260 image^.width:= cScreenWidth div k;
   260 image^.width:= cScreenWidth div k;
   261 image^.height:= cScreenHeight div k;
   261 image^.height:= cScreenHeight div k;
   262 image^.size:= size;
   262 image^.size:= size;
   263 image^.buffer:= p;
   263 image^.buffer:= p;
   264 
   264