i decided to look at the includes inside the srl folder and i cant understand how to implement them, do i unclude the whole piece of code or just the first line? if i include the whole thing, can someone explain it to me? as i understand the first line but am still blurry on how tolerance is measured. what does 1 tolerance mean?
I assume that functions are used the same way as procedures, if so whats the difference?
I assume that functions are used the same way as procedures. what is the difference between the 2 of them?Code:function AutoColorThis(Bitmap, MaxTol, X1, Y1, X2, Y2: Integer): Integer; var lTol, Ax, Ay: Integer; begin Result := 0; repeat; if (FindTransparentBitmapTolerance(Bitmap, Ax, Ay, clBlack, X1, Y1, X2, Y2, lTol)) then begin Result := GetColor(Ax, Ay); Exit; end; lTol := lTol + 5; until (lTol >= MaxTol); srl_Warn('AutoColorThis', 'The Color was not found', warn_Warning); WriteLn('Color NOT found.'); end;


Reply With Quote





