hedgewars/uMisc.pas
branchqmlfrontend
changeset 10424 4be6cd55f1cf
parent 10150 fa5c83fd0ad9
child 10748 dc587913987c
equal deleted inserted replaced
10422:4cf23d4c7624 10424:4be6cd55f1cf
   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:= shortstring(UserPathPrefix) + filename + ext;
   259 //image^.filename:= shortstring(UserPathPrefix) + filename + ext;
       
   260 image^.filename:= filename + ext;
   260 image^.width:= cScreenWidth div k;
   261 image^.width:= cScreenWidth div k;
   261 image^.height:= cScreenHeight div k;
   262 image^.height:= cScreenHeight div k;
   262 image^.size:= size;
   263 image^.size:= size;
   263 image^.buffer:= p;
   264 image^.buffer:= p;
   264 
   265