Wrappers

The wrappers include contains wrapper functions used throughout SRL, some of them to simplify coding while others are just fixes.

The source for this file can be found here.

GetClientBounds

function GetClientBounds(): TBox;

Returns the clients bounds.

Note

by Olly

Example:

b := GetClientBounds();

GetColor; overload

function GetColor(const p: TPoint): Integer; overload;

Takes a TPoint variable instead of x, y variables.

Note

by Olly

Example:

p := Point(350, 200);
WriteLn(GetColor(p));

GetColors; overload

function GetColors(const TPA: TPointArray; const ClearSame: boolean): TIntegerArray; overload;

Takes an extra parameter, clearSame if true will clear the same integers in the result.

Note

by Olly

Example:

Colors := GetColors(TPA, True);

FindColor; overload

function FindColor(var x, y: integer; const Color: integer; const SearchBox: TBox): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Coh3n

Example:

FindColor(x, y, clRed, Box);

findColorTolerance; overload

function FindColorTolerance(var x, y: Integer; const Color: Integer; const SearchBox: TBox; const Tolerance: Integer): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

FindColorTolerance(x, y, 255, Box, 10);

FindColors; overload

function FindColors(var Points: TPointArray; const Color: Integer; const SearchBox: TBox): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Coh3n

Example:

WriteLn(FindColors(TPA, 255, Box));

FindColorsTolerance; overload

function FindColorsTolerance(var Points: TPointArray; const Color: Integer; const SearchBox: TBox; const Tolerance: Integer): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Zyt3x

Example:

WriteLn(FindColorsTolerance(TPA, 255, Box, 10));

CountColor; overload

function CountColor(const Color: Integer; const SearchBox: TBox): Integer; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Coh3n

Example:

WriteLn(CountColor(clRed, Box));

CountColorTolerance: overload;

function CountColorTolerance(Color: integer; searchBox: TBox; tol: integer): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Coh3n

Example:

WriteLn(CountColorTolerance(clRed, 10, Box));

BitmapFromClient; overload

function BitmapFromClient(const SearchBox: TBox): Integer; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

BMP := BitmapFromClient(Box);

FindBitmapIn; overload

function FindBitmapIn(const BMP: Integer; var x, y: integer; const SearchBox: TBox): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

Result := FindBitmap(bmp, x, y, Box);

FindBitmapToleranceIn; overload

function FindBitmapToleranceIn(const BMP: Integer; var x, y: Integer; const SearchBox: TBox; const Tolerance: Integer): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

Result := FindBitmapToleranceIn(BMP, x, y, Box, 20);

FindDTMRotatedSE; overload

function FindDTMRotatedSE(const DTM: Integer; var x, y: Integer; SearchBox: TBox; sAngle, eAngle, aStep, aFound: Extended): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

if (FindDTMRotatedSE(aDTM, x, y, Box, -Pi/4, Pi/4, Pi/60, aFound)) then
  WriteLn('Found the dtm!');

FindDTMRotatedAlternating: overload;

function FindDTMRotatedAlternating(DTM: Integer; var x, y: Integer; SearchBox: TBox; sAngle, eAngle, aStep, aFound: Extended): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

if (FindDTMRotatedAlternating(DTM, x, y, Box, -Pi/4, Pi/4, Pi/60, aFound)) then
  WriteLn('Found the dtm!');

FindDTMRotated

function FindDTMRotated(const DTM: Integer; var x, y: Integer; const x1, y1, x2, y2: Integer; const sAngle, eAngle, aStep: Extended; out aFound: Extended): Boolean;

Searches for a rotated DTM, A legacy method commonly used in past SRL versions.

Note

by Olly

Example:

if (FindDTMRotated(DTM, x, y, 100, 100, 400, 400, -Pi/4, Pi/4, Pi/60, aFound)) then
  WriteLn('Found the dtm!');

FindDTMRotated; overload

function FindDTMRotated(const DTM: Integer; var x, y: Integer; const SearchBox: TBox; const sAngle, eAngle, aStep: extended; out aFound: Extended): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

if (FindDTMRotated(aDTM, x, y, Box, -Pi/4, Pi/4, Pi/60, aFound)) then
  WriteLn('found the dtm!');

FindDTMs; overload

function FindDTMs(const DTM: Integer; var TPA: TPointArray; const SearchBox: TBox): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

FindDTMs(DTM, TPA, Box);
WriteLn('Matches' + toString(TPA));

FindDTM; overload

function FindDTM(const DTM: Integer; var x, y: Integer; const SearchBox: TBox): Boolean; overload;

Takes a TBox variable instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

WriteLn(FindDTM(DTM, x, y, Box));

TPAFromText; overload

function TPAFromText(const Text, Font: string): TPointArray; overload;

Creates a TPA of the text without the need for the W and H params.

Note

by Olly

Example:

TPA := TPAFromText('Hello world', StatChars);

InRange; overload

function InRange(const Value, Min, Max: Extended): Boolean; overload;

Takes a extended variable instead of an integer variable.

Note

by Olly

Example:

WriteLn(InRange(15.0, 10.0, 20.0));

Distance; overload

function Distance(const p1, p2: TPoint): Integer; overload;

Accepts two TPoints instead of x1, y1, x2 and y2 variables.

Note

by Olly

Example:

WriteLn(Distance(Point(100, 100), Point(200, 200)));