TListView in Delphi with transpared whole selected row bar.

[olesio]

Hello. Please help me get one maybe simple effect in TListView which is available in Total Commander. I want to TListView have whole selection bar in transparent color. Please look at: http://forum.4programmers.net/Delphi_Pascal/199601-standardowy_tlistview_z_przezroczystym_paskiem_zaznaczenia?p=851926 I know many of you guys do not understand Polish but code there and screeonshots show what I want to do. On first screenshot (1.jpg) there is almost good efect, but... Like always there must be buts ;/ Like you see content of second column (named "test") is not displayed and row border is only in first column (index 0). My code have set DefaultDraw := False. And second screenshot (2.jpg) is with DefaultDraw := True, but like you see selection row is not transpared. Please help me and give me some hints or example code in Delphi. And maybe Total Commander Author could looke at this topic and provide some tips on how he made it in TMyLisTBox? Thanks in advice. Sorry for my bad English.

EDIT: I found solution thanks to Furious Programming which reply me with code in topic at 4programmers forum (link above). Maybe it still can be handy for someone.