Fixed it. Just edit the current one in SRL with this one:
SCAR Code:
procedure TakeScreenshotEx(Path: string; X1, Y1, X2, Y2: Integer);
var
BMP: Integer;
begin
{$ifdef Simba}
BMP := BitmapFromClient(X1,Y1,X2,Y2);
{$else}
BMP := BitmapFromString(X2 - X1, Y2 - Y1, '');
SafeCopyCanvas(GetClientCanvas, GetBitmapCanvas(bmp), X1, Y1, X2, Y2, 0, 0, X2 - X1, Y2 - Y1);
{$endif}
if (Pos('.bmp', Path) = 0) then
if (Path = '') then
Path := AppPath + TheDate(3) + ' - ' + MsToTime(GetTimeRunning, Time_Abbrev) + '.bmp'
else
Path := Path + '.bmp';
if (FileExists(Path)) then
begin
srl_Warn('TakeScreenShotEx', 'File "' + Path + '" already exists!', warn_AllVersions);
SetLength(Path, Length(Path) - 4);
Path := Path + ' ' + IntToStr(GetTimeRunning) + '.bmp';
srl_Warn('TakeScreenShotEx', 'Renamed screenshot file path to "' + Path + '"', warn_AllVersions);
end;
try
SaveBitmap(bmp, Path);
srl_Warn('TakeScreenShotEx', 'Screenshot saved successfully to ' + Path, warn_Debug);
except
srl_Warn('TakeScreenShotEx', 'Failed saving screenshot to ' + Path, warn_AllVersions);
finally
FreeBitmap(bmp);
end;
end;