Блокируется вывод графической информации

[ger_kar]

Встретился с интересным глюком, при котором, если рисовать в PictureBox (а также пробовал непосредственно на форме) при помощи WinApi функций, после первой отрисовки например (как в примере) в событии Form_Load блокируется вывод новой графики (графика не обновляется). Т.е. при обработке события загрузки формы, все прекрасно рисуется, а в дальнейшем при обработке событий мыши уже нет, хотя, если применить один из встроенных в VB графических методов или Refresh, то все опять работает как надо. Вот пример

GDITest.rar

(3.51 Кб) Скачиваний: 139

Если в процедуре LstDrawTextLine обе строки P.Refresh P.PSet (1, 1) закомментированны, то ни шиша не работает вывод графики, для реакции на события мыши. Но стоит убрать комментарий с одной из строк и все оживает. В чем может быть причина такого поведения?

[The trick]

Потому что у тебя Autoredraw = True. При таком раскладе все GDI функции работают с контекстом в памяти при вызове Refresh перерисовывается из него в окно.

[ger_kar]

Хорошо, пусть будет так, но Refresh достаточно тяжелая операция, если посмотреть в отладчике, а тот же Pset достаточно легкая, и тем не менее этот встроенный метод сразу модифицирует отображаемую графику. Другие встроенные графические методы тоже. Значит можно обновить выводимую информацию и без вызова Refresh, как это делает сам VB. Только вот вопрос как?

[ger_kar]

При применении метода Pset основная обработка идет в рантайме, окуда идет вызов нескольких внешних функций (по порядку вызова)
OleTranslateColor
GetSysColor
SetPixelV
Вот собственно и весь набор, и получается, что весь алгоритм по обновлению графической информации реализован исключительно в самом рантайме, так как никаких функций копирования растра даже близко не вызывается да и каких либо экспортируемых самим рантаймом функций тоже.

Потому что у тебя Autoredraw = True. При таком раскладе все GDI функции работают с контекстом в памяти при вызове Refresh перерисовывается из него в окно.

По идее такая перерисовка же должна происходить при каждой обработке сообщения WM_PAINT, может просто посылать окну такое сообщение?

[ger_kar]

Вобщем событие WM_PAINT не помогло, равно, как и вызов функции UpdateWindow, зато помог вызов функции
Call RedrawWindow(hWnd, ByVal 0&, 0, RDW_INVALIDATE)
которая сначала помечает область недействительной, а потом сама засылает WM_PAINT. Но вопрос все равно остается открытым, VB6 при вызове, например того же Pset, ничего такого не вызывает (RedrawWindow) и хотелось бы узнать, как это делает сам VB6.

[Mikle]

PSet - это внутренний псевдометод VB6, при его применении, когда AutoRedraw = True, выставляется флаг, что необходимо выполнить Refresh. На форме ничего сразу не рисуется, а рисуется по приходу DoEvents либо по окончание работы процедуры-обработчика события.
Напиши такую процедуру:

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

Private Sub Form_Click()
  Dim x As Long, y As Long

  For y = 0 To 500
'    DoEvents
    For x = 0 To 800
      PSet (x, y)
    Next x
  Next y
End Sub


При AutoRedraw = True квадрат будет появляться сразу весь, а не попиксельно, после окончания работы Sub Form_Click(), если снять ремарку с DoEvents, то рисоваться будет построчно.
Что тебе мешает отказаться от AutoRedraw = True?

[ger_kar]

При AutoRedraw = True можно перерисовывать только одну нужную область, а не рисовать все. С ним гораздо удобнее, нежели обрабатывать событие Paint.

[The trick]

при его применении, когда AutoRedraw = True, выставляется флаг, что необходимо выполнить Refresh

Если быть точнее вызывается InvalidateRect с указанием всей клиентской области.

[ger_kar]

Если быть точнее вызывается InvalidateRect с указанием всей клиентской области.

Ну, если вызвать Refresh, то да, такая функция вызывается, но при обработке вызова Pset, такая функция не вызывается (имеется ввиду сам метод Pset ), и вызывается InvalidateRect рантаймом уже после возврата из обработчика Pset. Поэтому видимо сначала выставляется флаг внутри рантайма, а уже он впоследствии вызывает InvalidateRect

[The trick]

Если быть точнее вызывается InvalidateRect с указанием всей клиентской области.

Ну, если вызвать Refresh, то да, такая функция вызывается, но при обработке вызова Pset, такая функция не вызывается (имеется ввиду сам метод Pset ), и вызывается InvalidateRect рантаймом уже после возврата из обработчика Pset. Поэтому видимо сначала выставляется флаг внутри рантайма, а уже он впоследствии вызывает InvalidateRect

InvalidateRect вызывается после каждого вызова Pset.

[ger_kar]

Я думаю вызов RedrawWindow будет хорошей альтернативой, ну или, как вариант можно и Refresh дергать, но если рисование будет полностью на Win API, то вызов API функции будет предпочтительнее. Тогда можно будет писать универсальные процедуры, которые вообще никак не будут зависеть от контролов VB. Вот все и прояснилось, спасибо. Теперь меня интересует вопрос, как реализовать свой AutoRedraw. Пока этот момент видится в общих чертах так: Создавать контекст посредством CreateCompatibleDC, рисовать на нем и обрабатывая сообщение WM_PAINT копировать в контекст экрана для отображения.

[The trick]

Теперь меня интересует вопрос, как реализовать свой AutoRedraw. Пока этот момент видится в общих чертах так: Создавать контекст посредством CreateCompatibleDC, рисовать на нем и обрабатывая сообщение WM_PAINT копировать в контекст экрана для отображения.

Ну да. Нужно еще при ресайзе создавать битмап в памяти такого же размера. Можешь вот тут посмотреть как я делал.
http://www.cyberforum.ru/blogs/354370/blog2672.html

[ger_kar]

Спасибо, хорошие контролы, мне понравились, буду изучать их устройство