Как вычислить дистанцию?

[romka1608]

1)Как вычислить дистанцию от середины экрана к vec.x и vec.y.
И как заставить Setcursorpos срабатывать ТОЛЬКО когда дистанция между ними 10





2)
и еще
Глючит всё когда включаю таймер1
код

procedure TForm1.Timer1Timer(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;

может всё дело из за таймера

[BDA]

1) Вспоминаем теорему Пифагора.
2) Можно вынести создание битмапа в formcreate, а удаление - в formdestroy.
Можно перейти на более свежую версию Дельфи.
А так - мало ли от чего глюки.

PS Не приветствую создание бота, тем более чужими руками.

[northener]

2 romka1608

Глючит всё когда включаю таймер1

Не надоело ещё совать "надыбанный" во всемирной помойке код куда-бы ни что, лишь бы наудачу заработало?

Или ещё не умерла надежда, что кто-то, где-то, когда-то будет столь любезен, что даст готовый код?

[саша40]

1) Получаем координаты курсора, получаем середину экрана(координаты), проверяем условиями. И отнимаем от середины экрана, если курсор левее, и если правее, то от координат курсора середину экрана. Тоже с высотой.

[Stilet]

если курсор левее, и если правее, то от координат курсора середину экрана. Тоже с высотой.

Зачем так сложно? Теорема пифагора все это решит.