1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-23 15:58:51 -05:00
Simba/Tests/PS/dtmtest.simba
2010-04-16 17:04:50 +02:00

24 lines
623 B
Plaintext

program new;
var
dtm,x,y, w, h:integer;
ppdtm:pdtm;
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');
ppdtm := GetDTM(Dtm);
printpdtm(tdtmtopdtm(pdtmtotdtm(ppdtm)));
dtm := addpdtm(ppdtm);
freedtm(dtm);
// old dtm is not freed, since it is overridden by addpdtm.
end.