Нарисовать прямоугольник, вне форм, поверх всех окон

[TrueTrue]

Ребят, кто знает, подскажите, мне чисто для отладки, нужно нарисовать прямо на экране поверх всех окон прямоугольник красным цветом, как это сделать?

Пробую таким вот методом, ни точка ни прямоугольник не рисуется.
и hDC кстати, каждый раз разный.

Код: Выделить всё

    hDC = GetDC(GetDesktopWindow())
    Call SetPixel(hDC, 960, 540, vbRed)
    Call Rectangle(hDC, X, Y, 250, 250)

[Mikle]

Чем отличается "поверх всех окон прямоугольник красным цветом" от формы красного цвета без бордюра?

[TrueTrue]

Чем отличается "поверх всех окон прямоугольник красным цветом" от формы красного цвета без бордюра?

Я хотел сделать прямоугольник без заливки. тоесть по ободу граница, внутри нет заливки.

С формой такое не знаю как сделать. Попробую с формой. Может обойдусь.

[Хакер]

С формой такое не знаю как сделать. Попробую с формой. Может обойдусь.

Вычесть внутренность из региона отсечения окна.

[TrueTrue]

Чем отличается "поверх всех окон прямоугольник красным цветом" от формы красного цвета без бордюра?

При использовании формы, если не ставь ей TOPMOST она ложится под окно FireFox. Если поставить Topmost то она ложится поверх FireFox и мою вторую форму так же поднимает поверх. Вобщем, она начинает криво перетасовывать окна, так как мне не подходит.

Ладно, если так сложно просто нарисовать на экране, тогда буду "выкручивать руки".

[Mikle]

ни точка ни прямоугольник не рисуется

У меня вот это работает:

Код: Выделить всё

Private Sub Form_Click()
  Dim DC As Long
  Dim i As Long

  DC = GetDC(0)
  For i = 100 To 400
    SetPixel DC, i, 100, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, 100, i, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, i, 400, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, 400, i, vbRed
  Next i
End Sub


Но лучше рисовать не пиксели, а линии, быстрее.

[Хакер]

ни точка ни прямоугольник не рисуется

У меня вот это работает:

Код: Выделить всё

Private Sub Form_Click()
  Dim DC As Long
  Dim i As Long

  DC = GetDC(0)
  For i = 100 To 400
    SetPixel DC, i, 100, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, 100, i, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, i, 400, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, 400, i, vbRed
  Next i
End Sub


Но лучше рисовать не пиксели, а линии, быстрее.

Это будет стёрто при первой же перерисовке случайных окон, затронутых рисованием, и плюс нарисованный мусор будет двигаться вместе с затронутыми окнами. Поэтому бесспорно, что это рисует, но лучше создавать окно с нужным регионом.

[Mikle]

Это будет стёрто при первой же перерисовке случайных окон, затронутых рисованием, и плюс нарисованный мусор будет двигаться вместе с затронутыми окнами.

Конечно. Просто автору темы сказали как лучше, а он пишет:

Ладно, если так сложно просто нарисовать на экране, тогда буду "выкручивать руки".

[TrueTrue]

ни точка ни прямоугольник не рисуется

У меня вот это работает:

Код: Выделить всё

Private Sub Form_Click()
  Dim DC As Long
  Dim i As Long

  DC = GetDC(0)
  For i = 100 To 400
    SetPixel DC, i, 100, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, 100, i, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, i, 400, vbRed
  Next i
  For i = 100 To 400
    SetPixel DC, 400, i, vbRed
  Next i
End Sub


Но лучше рисовать не пиксели, а линии, быстрее.

Спасибо Майкл, у меня тоже всё прорисовалось.

Я смотрю, ты поставил GetDC(0), а у меня
в строке:

Код: Выделить всё

hDC = GetDC(GetDesktopWindow())

GetDesktopWindow() возвращает: 65552, а значит и DC не тот.
Соответственно и девайс не тот.

Спасибо за помощь. Важно, что я разобрался и теперь имею выбор, буду выбирать, что лучше подойдёт.))

[Хакер]

Соответственно и девайс не тот.

Девайс тот. Клип-регион не тот.

[Andrey Fedorov]

Ребят, кто знает, подскажите, мне чисто для отладки, нужно нарисовать прямо на экране поверх всех окон прямоугольник красным цветом, как это сделать?

Когда делал программу для снятия скриншотов (лет так 15 назад), то выводил на весь экран форму без бордюров со скриншотом и уже по ней таскал мышью прямоугольник для выбора нужного участка. Все получилось до смешного примитивно. Вроде для этой части даже API не понадобилось...

[Хакер]

Когда делал программу для снятия скриншотов (лет так 15 назад), то выводил на весь экран форму без бордюров со скриншотом и уже по ней таскал мышью прямоугольник для выбора нужного участка. Все получилось до смешного примитивно. Вроде для этой части даже API не понадобилось..

Рад тебя видеть здесь!

Всё-таки снятие скриншота немного другая задача: там нужно именно стоп-кадр сделать, заморозить всё в том виде, в каком оно было на момент нажатия PrintScreen, и дать на этом стоп-кадре что-то обвести.

Здесь человек (как он сам говорит) пишет обучающую программу, а значит интерфейс должен оставаться живым (меняться, что-то там будет в браузере двигаться) и продолжать реагировать на клики пользователя.