diff --git a/Projects/MufasaTests/project1.lpi b/Projects/MufasaTests/project1.lpi index ab64502..a97b8f4 100644 --- a/Projects/MufasaTests/project1.lpi +++ b/Projects/MufasaTests/project1.lpi @@ -35,8 +35,8 @@ - - + + @@ -74,7 +74,7 @@ - + @@ -103,6 +103,10 @@ + + + + diff --git a/Projects/MufasaTests/project1.lpr b/Projects/MufasaTests/project1.lpr index cfaad06..ea483c4 100644 --- a/Projects/MufasaTests/project1.lpr +++ b/Projects/MufasaTests/project1.lpr @@ -8,8 +8,10 @@ uses {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp, Forms,Interfaces, + LCLIntf, Client + { you can add units after this }; type @@ -31,7 +33,10 @@ procedure MufasaTests.DoRun; var ErrorMsg: String; + Time: DWord; C: TClient; + I, W, H, X, Y: Integer; + begin // quick check parameters ErrorMsg:=CheckOptions('h','help'); @@ -50,7 +55,21 @@ begin { add your program here } C := TClient.Create; - writeln('wat'); + + C.MWindow.GetDimensions(W, H); + Time := GetTickCount; + for i := 0 to 100 do + C.MFinder.FindColor(X, Y, 0, 0, 0, W - 1, H - 1); + writeln('Time: ' + IntToStr(GetTickCount - Time)); + + if C.MFinder.FindColor(X, Y, 0, 0, 0, W - 1, H - 1) then + begin + C.MInput.SetMousePos(X, Y); + writeln('found!'); + end else + begin + writeln('not found!'); + end;