opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Display column name in title bar of popup text editor. Closes #395.

Browse Source
This commit is contained in:
Ansgar Becker
2018-11-28 20:58:51 +01:00
parent 32ebea38a1
commit 6d4d4e0d97
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/texteditor.pas
View File

@@ -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;