|
Как бы это осуществить рисование в окне без его дурацкого мерцания и без помощи создания виртуального изображения в памяти? WM_SETREDRAW здесь поможет? Попробуйте этот код. Даже если некоторые компоненты имеют пару BeginUpdate / EndUpdate, то для таких компонентов, как TTreeView, интенсивное рисование может послужить причиной перемещения полосы прокрутки и появления других "барабашек". В таких ситуаций вместо дескриптора элемента управления используйте родительский дескриптор. procedure BeginScreenUpdate( hwnd : THandle ); begin if (hwnd = 0) then hwnd := Application.MainForm.Handle; SendMessage( h0 ); 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; |