Переместить курсор на цвет пикселя

Posted by micher under Delphi

Как при нажатии на Mouse1 переместить курсор на цвет пикселя?

BDA

procedure TForm1.Button1Click(Sender: TObject);

var

  i, j, dx: integer;

  bit: TBitmap;

  flag: boolean;

  t: tdatetime;

  Pixels: PByteArray;

const

  red1 = 94;

  green1 = 168;

  blue1 = 38;

begin

  flag := false;

  bit := TBitmap.Create;

  bit.PixelFormat := pf24bit;

  bit.Width := Screen.Width;

  bit.Height := Screen.Height;

  BitBlt(bit.Canvas.Handle, 0, 0, bit.Width, bit.Height, GetDC(0), 0, 0, SRCCOPY);

  t := now;

  dx := DWord(bit.ScanLine[1]) - DWord(bit.ScanLine[0]);

  Pixels := bit.ScanLine[0];

  for i := 0 to bit.Height - 1 do

  begin

    for j := 0 to bit.Width - 1 do

    begin

      flag := (Pixels[j * 3 + 2] = red1) and (Pixels[j * 3 + 1] = green1) and (Pixels[j * 3] = blue1);

      if flag then

        break;

    end;

    if flag then

      break;

    inc(DWord(Pixels), dx);

  end;

  caption := FormatDateTime('s.zzz', now - t);
  if flag then

    setcursorpos(j, i);
  bit.Free;

end;

тема на форуме

Похожие статьи

• Перемещение мыши по координатам чужого окна