Changing Style at runtime and TListview

[Serge_G 85]

Hi, in my application I offer to the user the possibility to change style (light/dark)

procedure TStartForm.SwitchThemeSwitch(Sender: TObject);
begin
Datas.StyleBookLight.UseStyleManager:=false;
Datas.StyleBookDark.UseStyleManager:=false;
if SwitchTheme.IsChecked then MainForm.StyleBook:=Datas.StyleBookDark
                         else MainForm.StyleBook:=Datas.StyleBookLight;
datas.parametres.blacktheme:=SwitchTheme.IsChecked;
Datas.StyleBookLight.UseStyleManager:=not SwitchTheme.IsChecked;
Datas.StyleBookDark.UseStyleManager:=SwitchTheme.IsChecked;
{TODO -obug -cGeneral :   TListview style don't apply on first lines}
end;

All is working except on my TListView, as you can see. Here I change from light to dark, font text color is still black on these lines, scrolling down the color is the "normal" white 

I remember I bang this bug another times, I override this by deactivating and then reactivating the link, but this is time-consuming when there are many records!

Is there another way ?

 

[Serge_G 85]

Hi, this "bug" is corrected in version 11 (and perhaps 10.4, I don't check that)