PDA

View Full Version : auto color picking.



derek9456
11-03-2006, 11:30 PM
can someone teach me how to do this?

my msn is troy.cos@hotmail.com

ps i think it might be somthing like:


procedure pickcolors;
begin
findcolorspiraltolerance(knowncolor, MSX1, MSY1, MSX2, MSX2, Tol)
getmousepos(x,y)
getcolor(x,y, newcolor) ??
end;

Starblaster100
11-03-2006, 11:38 PM
If(FindColorSpiralTolerance(x, y, A_SIMILAR_COLOR_TO_WHAT_YOU_WANT, MSX1, MSY1, MSX2, MSX2, THE_MAX_TOL_TO_SEARCH)then
Begin
MMouse(x, y, 0, 0, False);
GetMousePos(x, y);
TheColor := GetCOlor(x, y);
end;

derek9456
11-03-2006, 11:43 PM
thanks much

derek9456
11-03-2006, 11:47 PM
alright thanks... now if i want to to find say 3 colors of one thing would i do that 3 diferent times with 3 diferent colors as A_SIMILAR_COLOR_TO_WHAT_YOU_WANT