moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-16 22:35:05 -05:00
Code Issues Releases Wiki Activity

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@101 3f818213-9676-44b0-a9b4-5e4c4e03d09d

Browse Source
This commit is contained in:
Raymond 2009-10-03 22:22:28 +00:00
parent 490c3e1871
commit e9292ee853
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Tests/PS/dmtest.txt Normal file
View File

@ -0,0 +1,18 @@
program new;
var
dtm,x,y, w, h:integer;
begin
getclientdimensions(w,h);
writeln(inttostr(w) + ',' + inttostr(h));
dtm := DTMFromString('78DA63F4606460F0634001E181810C46401A2' +
'8C3F01F0818AD31D54064612490B601B28209A87105B2A209A8F1' +
'23424D38901540841A2FFC6A00C8100982');
if finddtm(dtm, x,y, 0, 0, w-1,h-1) then
begin
writeln('found');
movemouse(x,y);
end else
writeln('not found');
freedtm(dtm);
end.