Code:
{*******************************************************************************
function FindAllObjsRecord(var Objects: TPointArray; AutoInfo: TAutoColorInfo; x1, y1, x2, y2: Integer; QuickSorting, RGBXYZCheck: Boolean): Boolean;
By: Sumilion
Description: Finds an Object using a TAutoColorInfo record, returns the center of the found objects.
*******************************************************************************}
To setup this function correctly, you'll need to setup a TPointArray, and TAutoColorInfo vars.
Code:
var
TPAs : TPointArray;
Code:
var
acInf : TAutoColorInfo;
acInfo.Color := 5724517;
acInfo.LumTol := 12;
acInfo.HueMod := 0.10;
acInfo.SatMod := 0.07;
acInfo.MinCount := 130;
acInfo.MaxCount := 148;
That way, you can do this:
Code:
FindAllObjsRecord(TPAs, acInfo, MSX1, MSY1, MSX2, MSY2, True, True);
Now, I've never actually used this, this is just what I understand from looking at the code.
Hope this helps.