Issue #861: use session background color for row id column

This commit is contained in:
Ansgar Becker
2023-10-24 06:22:45 +02:00
parent 2ef4662b48
commit bef9488b71

View File

@ -10925,11 +10925,16 @@ var
FieldText, FocusedFieldText: String;
VT: TVirtualStringTree;
ResultCol: Integer;
SessionColor: TColor;
begin
if Column = -1 then
Exit;
ResultCol := Column -1;
if ResultCol < 0 then begin
SessionColor := ActiveConnection.Parameters.SessionColor;
if SessionColor <> AppSettings.GetDefaultInt(asTreeBackground) then
TargetCanvas.Brush.Color := SessionColor
else
TargetCanvas.Brush.Color := clBtnFace;
TargetCanvas.FillRect(CellRect);
Exit;