Janilabo

MSSL_FindColorTolCS

Mar 29th, 2013
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.96 KB | None | 0 0
  1. function MSSL_FindColorTolCS(var x, y: Integer; color, XS, YS, XE, YE, tol: Integer; settings: MSSL_TColorSettings): Boolean;
  2. {==============================================================================]  
  3.   Created: March 29th, 2013.
  4.   Contributors: Janilabo
  5.   Explanation: FindColorTol(), but with parameter for custom color settings (settings) - function performs these steps:
  6.                1. Captures original (current) color settings in the begin to 'cs' variables
  7.                2. Sets custom color settings to SCAR Divi
  8.                3. Performs the FindColorTol() function, just like it should!
  9.                4. Restores the original color settings for SCAR Divi          
  10. [==============================================================================}
  11. var
  12.   cs: MSSL_TColorSettings;
  13. begin
  14.   cs := MSSL_GetColorSettings;
  15.   MSSL_SetColorSettings(settings);
  16.   Result := FindColorTol(x, y, color, XS, YS, XE, YE, tol);
  17.   MSSL_SetColorSettings(cs);
  18. end;
Advertisement
Add Comment
Please, Sign In to add comment