hedgewars/uMisc.pas
changeset 3350 5cd02aafc612
parent 3337 75e7455c69ed
child 3355 dc9e61e67484
equal deleted inserted replaced
3349:5571592f10a8 3350:5cd02aafc612
   582 size:= cScreenWidth * cScreenHeight * 3;
   582 size:= cScreenWidth * cScreenHeight * 3;
   583 p:= GetMem(size);
   583 p:= GetMem(size);
   584 
   584 
   585 // update header information and file name
   585 // update header information and file name
   586 {$IFNDEF WIN32}
   586 {$IFNDEF WIN32}
   587 filename:= ParamStr(1) + '/' + filename + '.tga';
   587 filename:= ParamStr(1) + '/Screenshots/' + filename + '.tga';
   588 
   588 
   589 head[6]:= cScreenWidth;
   589 head[6]:= cScreenWidth;
   590 head[7]:= cScreenHeight;
   590 head[7]:= cScreenHeight;
   591 {$ELSE}
   591 {$ELSE}
   592 filename:= ParamStr(1) + '/' + filename + '.bmp';
   592 filename:= ParamStr(1) + '/Screenshots/' + filename + '.bmp';
   593 
   593 
   594 head[$02]:= (size + 54) and $ff;
   594 head[$02]:= (size + 54) and $ff;
   595 head[$03]:= ((size + 54) shr 8) and $ff;
   595 head[$03]:= ((size + 54) shr 8) and $ff;
   596 head[$04]:= ((size + 54) shr 16) and $ff;
   596 head[$04]:= ((size + 54) shr 16) and $ff;
   597 head[$05]:= ((size + 54) shr 24) and $ff;
   597 head[$05]:= ((size + 54) shr 24) and $ff;