mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-28 20:12:16 -05:00
ffb90926b6
OnDestroy event for bitmaps.. Added PosterizeBitmap Added window.inc Added FormTest.mufa git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@141 3f818213-9676-44b0-a9b4-5e4c4e03d09d
57 lines
1.5 KiB
PHP
57 lines
1.5 KiB
PHP
{
|
|
This file is part of the Mufasa Macro Library (MML)
|
|
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
|
|
|
MML is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
MML is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
See the file COPYING, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
Other.inc for the Mufasa Macro Library
|
|
}
|
|
|
|
procedure Wait(t: Integer);
|
|
begin
|
|
Sleep(t);
|
|
end;
|
|
|
|
procedure SaveScreenshot(FileName: string);
|
|
var
|
|
w,h : integer;
|
|
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;
|
|
end;
|
|
|
|
function CreateForm : TForm;
|
|
begin;
|
|
result := TForm.Create(nil);
|
|
end;
|
|
function CreateButton(Owner : TComponent) : TButton;
|
|
begin;
|
|
Result := TButton.Create(Owner);
|
|
end;
|
|
|
|
function Distance(x1, y1, x2, y2: Integer): Integer;
|
|
begin;
|
|
Result := Round(Sqrt(Sqr(x2-x1) + Sqr(y2-y1)));
|
|
end;
|