moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 15:20:09 -05:00
Code Issues Releases Wiki Activity

Probably fixed bug in SaveScreenshot on Windows.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@323 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-12-23 00:54:31 +00:00
parent 800916d673
commit 54efac8f52
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Units/MMLAddon/PSInc/Wrappers/other.inc
View File

@ -45,16 +45,13 @@ end;
procedure SaveScreenshot(FileName: string); procedure SaveScreenshot(FileName: string);
var var
w,h : integer; w,h : integer;
bmp: TMufasaBitmap;
begin; begin;
with CurrThread.Client.MWindow do CurrThread.Client.MWindow.GetDimensions(w,h);
begin; bmp := TMufasaBitmap.Create;
GetDimensions(w,h); bmp.CopyClientToBitmap(CurrThread.Client.MWindow,True,0,0,w-1,h-1);
with CopyClientToBitmap(0,0,w-1,h-1) do bmp.SaveToFile(FileName);
begin; bmp.Free;
SaveToFile(FileName);
Free;
end;
end;
end; end;
function CreateForm : TForm; function CreateForm : TForm;