I am using Delphi 10.4 and EhLib 10.0.
I have LocationGrid.TitleParams.MutliTitle set to True. I am trying to color the top row of the title using the following event handler. This works if I do not have a VCL Theme enabled. But if VCL themes are enabled, the color isn't changed. Is there a way to make this work when using themes?
procedure TformParent3.LocationGridGetMultiTitleParams(Grid : TCustomDBGridEh; Params : TDBGridDrawTitleCellParamsEh); begin CodeSite.EnterMethod('TformParent3.LocationGridGetMultiTitleParams');
if (Params.Column = nil) then begin if (Params.MultiTitleNode <> nil) and (Params.MultiTitleNode.Text = 'LOCATIONS ON THIS POLICY') then begin Params.Color := RGB(0,255,255); Params.SecondColor := RGB(135,206,235); end;
Params.Font.Style := [fsBold]; end;
CodeSite.ExitMethod('TformParent3.LocationGridGetMultiTitleParams'); end;
Thanks, Randall Carpenter
|