Change DBGrid Colors/FontStyle on Delphi XE2+ Application

I need Change DBGrid Colors/FontStyle on Delphi XE2+ application, so i need a code to do this, see my example code. Req: Application must be Style Enabled Req: DBGrid DrawingStyle must be gdsThemed Req: Must works on XE2+ version ( My example works only on old delphi, not on XE+ ) Req: Need change row color on gdSelected, gdRowSelected, gdFocused Req: Full and working project code must be sent. Proc... DrawColumnCell(); if [gdselected, gdRowSelected] in state then [login to view URL] := somecolor; case [login to view URL]('somefeld').asInteger off 1: begin [login to view URL] := [fsbold]; [login to view URL] := clRed; end; 2: begin [login to view URL] := []; [login to view URL] := clBlue; end; end; end;