From 6d4d4e0d970a134ec0899f9570fd5d894beccb60 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 28 Nov 2018 20:58:51 +0100
Subject: [PATCH] Display column name in title bar of popup text editor. Closes
 #395.

---
 source/grideditlinks.pas | 2 ++
 source/texteditor.pas    | 9 +++++++++
 2 files changed, 11 insertions(+)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index bcffe5bf..8b3e477a 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -139,6 +139,7 @@ type
     procedure ButtonClick(Sender: TObject);
   public
     ButtonVisible: Boolean;
+    TitleText: String;
     constructor Create(Tree: TVirtualStringTree); override;
     destructor Destroy; override;
     function BeginEdit: Boolean; override;
@@ -1130,6 +1131,7 @@ begin
   FTextEditor := TfrmTextEditor.Create(FTree);
   FTextEditor.SetFont(FEdit.Font);
   FTextEditor.SetText(FEdit.Text);
+  FTextEditor.SetTitleText(TitleText);
   FTextEditor.Modified := FEdit.Modified;
   FTextEditor.SetMaxLength(Self.FMaxLength);
   FTextEditor.ShowModal;
diff --git a/source/texteditor.pas b/source/texteditor.pas
index 322e2da4..a9132df8 100644
--- a/source/texteditor.pas
+++ b/source/texteditor.pas
@@ -56,6 +56,7 @@ type
   public
     function GetText: String;
     procedure SetText(text: String);
+    procedure SetTitleText(Title: String);
     procedure SetMaxLength(len: integer);
     procedure SetFont(font: TFont);
     property Modified: Boolean read FModified write SetModified;
@@ -108,6 +109,14 @@ begin
 end;
 
 
+procedure TfrmTextEditor.SetTitleText(Title: String);
+begin
+  // Add column name to window title bar
+  if Title <> '' then
+    Caption := Title + ' - ' + Caption;
+end;
+
+
 procedure TfrmTextEditor.SelectLinebreaks(Sender: TObject);
 var
   Selected, Item: TMenuItem;