при ресайзе окна мерцают кнопки

[BLACK_RAIN]

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

  fStyle := WS_CHILD or WS_VISIBLE;
  fControlWindowHandle := CreateWindow('static','', fStyle or WS_CLIPCHILDREN,
                    fLeft, fTop, fWidth,fHeight, aOwnerWnd, 0, HInstance, nil);
      fHandle := CreateWindow('Button','', fStyle or BS_OWNERDRAW,
                    0, 0, fWidth,fHeight, fControlWindowHandle, 0, HInstance, nil);
  fOldControlProc := SetWindowLong(fControlWindowHandle, GWL_WNDPROC, LongInt(@ControlWndProc));
{......
..........
Загрузка иконки и т.п.
............
.........}

function ControlWndProc(wnd: HWND; msg: Cardinal; WPar: WPARAM; LPar: LPARAM): LRESULT; stdcall;
var
  dis : PDrawItemStruct;
begin
  case msg of

    WM_DRAWITEM:
    begin
      if Assigned(OnDrawButton) then
      begin
        dis := pdrawitemstruct(LPar);
        OnDrawButton(Self, dis); // Выполняется RedrawButton
      end;

    end;

  else
    begin
      Result := CallWindowProc(Pointer(fOldControlProc), wnd, msg, WPar, LPar);
    end;
  end;
end;

procedure TWinApiIconButton.RedrawButton;
begin
  GetDC;  //получает DC
  Winapi.Windows.FillRect(DC,ClientRect, Brush.fHandle);
  if (fIcon<>nil) and (fIcon.Handle>0) then
  begin
    DrawIconEx(DC,0,0, fIcon.fHandle, Width,Height, 0, 0, DI_NORMAL);
  end;
  ReleaseDC; // отпускает DC
end;

У меня контролы WinAPI завёрнуты в классы, что несколько запутывает код. Да и вообще многие скажут, что это сомнительное решение.
Но если писать как положено - без обёртывания в классы, то кнопки всё-равно мерцают при ресайзе.
Чем больше в окне кнопок, тем сильнее мерцание.
Предполагаю, что это из-за контрольных статиков под каждой кнопкой, но без них ничего не будет работать, как задумано.
Мерцают только контролы с классом "button". Есть и ListBox'ы и ListView - они при ресайзе окна почти не мерцают.
Почему же сильно мерцают кнопки? Даже если создать кнопку без стиля BS_OWNERDRAW она всё-равно мерцает.
Видео прилагается: https://youtu.be/mXrkQx569Nw

[waleri]

WS_CLIPCHILDREN в родительском окне (aOwnerWnd).
В своих статиках надо осторожней с WM_ERASEBKGND.

[BLACK_RAIN]

Сообщение от waleri

WS_CLIPCHILDREN в родительском окне (aOwnerWnd).

есть он там

Сообщение от waleri

В своих статиках надо осторожней с WM_ERASEBKGND.

в каком смысле?

[waleri]

В прямом.
Erase сначала стирает все, потом поверх этого рисуем. В итоге имеем мерцание.

[BLACK_RAIN]

то есть, в оконной процедуре статика надо принять сообщение WM_ERASEBKG и вернуть 0?

[BLACK_RAIN]

Погуглил вчера WM_ERASEBKND.
Только складывается впечатление, что это действует только на главное окно, а не на дочерние. Какой бы результат я ни возвращал - 0 или 1 - статики всё-равно мерцают при таскании за зеленый статик (см. видео).
А если принимать WM_ERASEBKND в главном окне или убрать стили CS_HREDRAW CS_VREDRAW, то статики почти совсем перестают мерцать при ресайзе главного окна. Однако, иногда, всё-равно слегка подмерцивают.

[waleri]

А у вас точно выставлен WS_CLIPCHILDREN в главном окне?

[BLACK_RAIN]

Сообщение от waleri

А у вас точно выставлен WS_CLIPCHILDREN в главном окне?

в главном окне программы - да.
в статиках тоже нужен? Пробовал и с ним и без него.