From 00cbfa7a0808df6d8c1af2796ddc23837935731c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 26 Jul 2009 08:45:21 +0000
Subject: [PATCH] Apply correct background color to grideditors (inplace +
 datetime), for cases where columns are sorted and have a gray background.

---
 source/grideditlinks.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index 67aa7c63..1f82e902 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -17,6 +17,7 @@ type
     FColumn: TColumnIndex;            // The column of the node.
     FCellText: WideString;            // Original cell text value
     FCellFont: TFont;                 // Cosmetic
+    FCellBackground: TColor;
     FMainControl: TWinControl;        // The editor's most important component
     FStopping: Boolean;               // Set to True when the edit link requests stopping the edit action.
     FLastKeyDown: Integer;            // Set in OnKeyDown on the editor's main control
@@ -221,6 +222,7 @@ begin
   FCellFont := TFont.Create;
   FTree.GetTextInfo(FNode, FColumn, FCellFont, FCellTextBounds, FCellText);
   FCellFont.Color := DatatypeCategories[Integer(Datatypes[Integer(Datatype)].Category)].Color;
+  FCellBackground := FTree.Header.Columns[FColumn].Color;
   if Assigned(FMainControl) then begin
     FOldWindowProc := FMainControl.WindowProc;
     FMainControl.WindowProc := TempWindowProc;
@@ -383,12 +385,12 @@ begin
   FPanel.Parent := FParentForm;
   FPanel.Hide;
   FPanel.ParentBackground := False;
-  FPanel.Color := FTree.Color;
   FPanel.BevelOuter := bvNone;
   FPanel.OnExit := DoEndEdit;
 
   FMaskEdit := TMaskEdit.Create(FPanel);
   FMaskEdit.Parent := FPanel;
+  FMaskEdit.ParentColor := True;
   FMaskEdit.BorderStyle := bsNone;
   FMaskEdit.OnKeyDown := DoKeyDown;
   FMaskEdit.OnKeyUp := DoKeyUp;
@@ -459,6 +461,7 @@ begin
   end;
   FMaskEdit.Text := CellText;
   FMaskEdit.Font.Assign(FCellFont);
+  FPanel.Color := FCellBackground;
   // Auto-enlarge current tree column so the text in the edit is not cut
   MinColWidth := FTree.Canvas.TextWidth(CellText) + FTree.TextMargin + FUpDown.Width + 5;
   if FTree.Header.Columns[FColumn].Width < MinColWidth then
@@ -791,12 +794,12 @@ begin
   FPanel.Parent := FParentForm;
   FPanel.Hide;
   FPanel.ParentBackground := False;
-  FPanel.Color := FTree.Color;
   FPanel.BevelOuter := bvNone;
   FPanel.OnExit := DoEndEdit;
 
   FEdit := TTntEdit.Create(FPanel);
   FEdit.Parent := FPanel;
+  FEdit.ParentColor := True;
   FEdit.BorderStyle := bsNone;
   FEdit.OnKeyDown := DoKeyDown;
   FMainControl := FEdit;
@@ -881,6 +884,7 @@ begin
 
   FEdit.Font.Assign(FCellFont);
   FEdit.Font.Color := clWindowText;
+  FPanel.Color := FCellBackground;
   if ScanNulChar(FCellText) then begin
     MessageDlg(SContainsNulCharGrid, mtInformation, [mbOK], 0);
     FEdit.Text := RemoveNulChars(FCellText);