moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

FindColor test for people who want to test without PS. 

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@159 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-10-25 20:55:50 +00:00
parent ae967f063c
commit bf4e1e5a69
2 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Projects/MufasaTests/project1.lpi
View File

@ -35,8 +35,8 @@
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="42" Y="27"/> <CursorPos X="53" Y="63"/>
<TopLine Value="20"/> <TopLine Value="35"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -74,7 +74,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
</Units> </Units>
<JumpHistory Count="7" HistoryIndex="6"> <JumpHistory Count="8" HistoryIndex="7">
<Position1> <Position1>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="77" Column="17" TopLine="42"/> <Caret Line="77" Column="17" TopLine="42"/>
@ -103,6 +103,10 @@
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<Caret Line="11" Column="3" TopLine="1"/> <Caret Line="11" Column="3" TopLine="1"/>
</Position7> </Position7>
<Position8>
<Filename Value="project1.lpr"/>
<Caret Line="59" Column="18" TopLine="40"/>
</Position8>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

21
Projects/MufasaTests/project1.lpr
View File

@ -8,8 +8,10 @@ uses
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp, Classes, SysUtils, CustApp,
Forms,Interfaces, Forms,Interfaces,
LCLIntf,
Client Client
{ you can add units after this }; { you can add units after this };
type type
@ -31,7 +33,10 @@ procedure MufasaTests.DoRun;
var var
ErrorMsg: String; ErrorMsg: String;
Time: DWord;
C: TClient; C: TClient;
I, W, H, X, Y: Integer;
begin begin
// quick check parameters // quick check parameters
ErrorMsg:=CheckOptions('h','help'); ErrorMsg:=CheckOptions('h','help');
@ -50,7 +55,21 @@ begin
{ add your program here } { add your program here }
C := TClient.Create; 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;