moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 18:52:15 -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);
var
w,h : integer;
bmp: TMufasaBitmap;
begin;
with CurrThread.Client.MWindow do
begin;
GetDimensions(w,h);
with CopyClientToBitmap(0,0,w-1,h-1) do
begin;
SaveToFile(FileName);
Free;
end;
end;
CurrThread.Client.MWindow.GetDimensions(w,h);
bmp := TMufasaBitmap.Create;
bmp.CopyClientToBitmap(CurrThread.Client.MWindow,True,0,0,w-1,h-1);
bmp.SaveToFile(FileName);
bmp.Free;
end;
function CreateForm : TForm;