opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

* Fix text editor getting original celltext instead of already modified text from inplace editor.

Browse Source 
* Set modification flag on popup editor in that case.
* Nukes duplicated error message from r2387 (see issue #1097).
This commit is contained in:
Ansgar Becker
2009-04-26 16:29:09 +00:00
parent a827f68509
commit f6a6379e20
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/texteditor.pas
View File

@ -42,12 +42,12 @@ type
DetectedLineBreaks,
SelectedLineBreaks: TLineBreaks;
procedure SetModified(NewVal: Boolean);
property Modified: Boolean read FModified write SetModified;
public
function GetText: WideString; override;
procedure SetText(text: WideString); override;
procedure SetMaxLength(len: integer); override;
procedure SetFont(font: TFont); override;
property Modified: Boolean read FModified write SetModified;
end;
@ -107,6 +107,9 @@ begin
// TODO: Find out why the Delphi IDE insists hinting that this
// property is ANSI when it is in fact a WideString.
memoText.Text := text;
memoText.SelectAll;
Modified := False;
end;
@ -175,10 +178,7 @@ begin
// Fix label position:
lblTextLength.Top := tlbStandard.Top + (tlbStandard.Height-lblTextLength.Height) div 2;
SetWindowSizeGrip(Handle, True);
memoText.SelectAll;
memoText.SetFocus;
memoTextChange(Sender);
Modified := False;
end;