Hello
You can override
procedure TDBGridEhStyle.GetSelectionBackgroundParams(Grid: TCustomDBGridEh;
IsActiveState: Boolean; var AColor: TColor; var ATransparencyLevel: Integer);
and assign new ATransparencyLevel for Highlighted cells
Like this:
Code:
unit MainFormUnit;
...
type
TMyDBGridEhStyle = class(TDBGridEhStyle)
procedure GetSelectionBackgroundParams(Grid: TCustomDBGridEh; IsActiveState: Boolean; var AColor: TColor; var ATransparencyLevel: Integer); override;
end;
...
procedure TMyDBGridEhStyle.GetSelectionBackgroundParams(Grid: TCustomDBGridEh;
IsActiveState: Boolean; var AColor: TColor; var ATransparencyLevel: Integer);
begin
inherited GetSelectionBackgroundParams(Grid, IsActiveState, AColor, ATransparencyLevel);
ATransparencyLevel := 150;
end;
....
initialization
SetDBGridEhDefaultStyle(TMyDBGridEhStyle.Create(nil)).Free;
end.