سلام به دوستان
h2.jpg
فرض کنید این نقطه ها قرمز را در عکس می خواهیم پردازش کنیم
و در مرکز هر نقطه می خواهیم یک shape1 یا آیتم قابل جابجا شدن بگذاریم یعنی نقطه اول را باshape1 ونقطه دوم shape2 ونقطه سوم shape3وبه همین ترتیب...
البته من کدی نوشتم که می تواند یک نقطه را پیدا کند و shape در مرکز آن قرار بگیرد ولی برای پیدا کردن بقیه مشکل دارم
لطفا از اساتید در خواست کمک دارم
قسمتی از کدها اینه بقیش الکیه
for Y := 0 to Bitmap.Height - 1 do
begin
Pixels := Bitmap.ScanLine[Y];
for X := 0 to Bitmap.Width - 1 do
begin
C := RGB(
Pixels[X].rgbtRed,
Pixels[X].rgbtGreen,
Pixels[X].rgbtBlue);
if (Pixels[X].rgbtRed = Ra) and (Pixels[X].rgbtGreen = Ga) and (Pixels[X].rgbtBlue = Ba) then
begin
if a=0 then begin
a:=1;
z1:=X;
end;
end else begin
if a=1 then begin
a:=0;
z2:=X-1
Shape1.Left:= (img_4.Left+(z1+(z2-z1) div 2)) - (Shape1.Width div 2);
// Shape1.Top:= (img_4.Top+ (q1+(q2-q1) div 2)) - (Shape1.Height div 2);