hedgewars/uMisc.pas
changeset 10658 a3872ffdeab1
parent 10633 2f062fac5791
child 10692 a88647ead05c
equal deleted inserted replaced
10657:f2507005be87 10658:a3872ffdeab1
   285 New(image); // will be disposed in SaveScreenshot()
   285 New(image); // will be disposed in SaveScreenshot()
   286 if dump = 2 then
   286 if dump = 2 then
   287      image^.filename:= shortstring(UserPathPrefix) + filename + '_landpixels' + ext
   287      image^.filename:= shortstring(UserPathPrefix) + filename + '_landpixels' + ext
   288 else if dump = 1 then
   288 else if dump = 1 then
   289      image^.filename:= shortstring(UserPathPrefix) + filename + '_land' + ext
   289      image^.filename:= shortstring(UserPathPrefix) + filename + '_land' + ext
   290 else image^.filename:= shortstring(UserPathPrefix) + filename + '_land' + ext;
   290 else image^.filename:= shortstring(UserPathPrefix) + filename + ext;
   291 
   291 
   292 if dump <> 0 then
   292 if dump <> 0 then
   293     begin
   293     begin
   294     image^.width:= LAND_WIDTH;
   294     image^.width:= LAND_WIDTH;
   295     image^.height:= LAND_HEIGHT
   295     image^.height:= LAND_HEIGHT