Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Авг

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

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;