Как бы это осуществить рисование в окне без его дурацкого мерцания и без помощи создания виртуального изображения в памяти? WM_SETREDRAW здесь поможет?
Попробуйте этот код. Даже если некоторые компоненты имеют пару BeginUpdate / EndUpdate, то для таких компонентов, как TTreeView, интенсивное рисование может послужить причиной перемещения полосы прокрутки и появления других "барабашек". В таких ситуаций вместо дескриптора элемента управления используйте родительский дескриптор.
|
Code: |
|
procedure BeginScreenUpdate(hwnd: THandle); begin if (hwnd = 0) then hwnd := Application.MainForm.Handle; SendMessage(hwnd, WM_SETREDRAW, 0, 0); end;
procedure EndScreenUpdate(hwnd: THandle; erase: Boolean); begin if (hwnd = 0) then hwnd := Application.MainForm.Handle; SendMessage(hwnd, WM_SETREDRAW, 1, 0); RedrawWindow(hwnd, nil, 0, DW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT); if (erase) then Windows.InvalidateRect(hwnd, nil, True); end; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!