ComboBox\PopupMenu Остаются полосы\тени после использования

[IvaniuS]

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


Использую pmItems и вот такой обработчик Popup, но даже в обычном ComboBox тоже остается подобное.

Procedure TMainForm.pmItemsPopup(Sender: TObject);
var
  text:string;
Begin
  Try
    If cbbType.ItemIndex >= 0 Then
    Begin
      pmItems.Items.Clear;
      text:=PluginProc(Ord(PCGetList), 'ByPasses', PChar(Pinteger(cbbType.ItemIndex - 3)));
      if text<>'' then
        pmAddItems(text);
    End;
  Except
    On E: Exception Do
      Raise Exception.CreateFmt('"%s":"%s" in pmItemsPopup', [E.Message, E.ClassName, Name]);
  End;
End;

Procedure TMainForm.pmAddItems(Items: String);
Var
  i: integer;
  sarr: TArray<String>;
Begin
  Try
    pmItems.Items.Clear;
    sarr := Items.Split([#13 + #10]);
    For i := 0 To High(sarr) Do
      pmItems.Items.Add(NewItem(sarr[i], 0, False, True, MenuItemEdtAddClick, 0, 'MenuItem' + IntToStr(i)));
  Except
    On E: Exception Do
      Raise Exception.CreateFmt('"%s":"%s" in pmAddItems', [E.Message, E.ClassName, Name]);
  End;
End;

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

П.С. Раньше такого не было, VCL не крутил не менял, но видимо что-то добавил и пошло поехало вот такое. Использую стандартный VCL и стили иногда.

[Heneken87]

Если программа не сверхсекретная выложите исходник.

[IvaniuS]

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

[Heneken87]

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

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

Окей,так будет проще разобратся

[Arigato]

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

завтра проснусь выложу.

Мне уже страшно, человек не проснулся?

[Аватар]

Дык может в спячку впал, рождественские каникулы они такие, мало ли ))

[IvaniuS]

Простите пожалуйста, костыль конечно, главное что проблему решает:
Суть проблемы оказать в Hint`aх
Решение в FormCreate формы
Присваиваем HintWindowClass := THintWindowWoShd;

type
THintWindowWoShd = Class(THintWindow)
Protected
Procedure CreateParams(Var Params: TCreateParams); Override;
End;

...

Procedure THintWindowWoShd.CreateParams(Var Params: TCreateParams);
Begin
Inherited CreateParams(Params);
Params.WindowClass.Style := Params.WindowClass.style And Not CS_DROPSHADOW;
End;

Procedure TMainForm.FormCreate(Sender: TObject);
Begin
HintWindowClass := THintWindowWoShd;
end;

Всем спасибо.