TPopUpMenu and ExplorerTheme
===

I use delphi7, a TPopUpMenu and a few icons assigned to the TPopUpMenu.

It kinda looks like this:

![Old Style][1]

I would like to have it look like this (explorer theme):

![New Style][2]

I used SetWindowTheme to change it but no luck.
Any ideas how I can make it look like as in explorer?

Thank you for your help.




  [1]: http://i.stack.imgur.com/lydiy.png
  [2]: http://i.stack.imgur.com/loWl7.png