paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 15:56:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Change a counter to boolean FTextChangedLock, used for firing events right. Issue #32630.

Browse Source 
git-svn-id: trunk@56489 -
This commit is contained in:
juha 2017-11-24 20:44:02 +00:00
parent 3f7ccb5d63
commit c4f8616371
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customedit.inc
View File

@ -82,7 +82,7 @@ begin
FAutoSelect := True;
FAutoSelected := False;
FTextChangedByRealSetText := False;
FTextChangingCounter := 0;
FTextChangedLock := False;
AutoSize := True;
// Accessibility
AccessibleRole := larTextEditorSingleline;
@ -578,7 +578,7 @@ var
SStart, SLen: Integer;
begin
//debugln('TCustomEdit.TextChanged ',DbgSName(Self));
if FTextChangingCounter > 0 then
if FTextChangedLock then
Exit;
if FCharCase in [ecUppercase, ecLowercase] then
begin
@ -594,11 +594,11 @@ begin
CPos := CaretPos;
SStart := SelStart;
SLen := SelLength;
Inc(FTextChangingCounter);
FTextChangedLock := True;
try
Text := Temp;
finally
Dec(FTextChangingCounter);
FTextChangedLock := False;
end;
SelStart := SStart;
SelLength := SLen;

2
lcl/stdctrls.pp
View File

@ -730,7 +730,7 @@ type
FSelLength: integer;
FSelStart: integer;
FTextChangedByRealSetText: Boolean;
FTextChangingCounter: integer;
FTextChangedLock: Boolean;
FTextHint: TTranslateString;
procedure ShowEmulatedTextHint(const ForceShow: Boolean = False);
procedure HideEmulatedTextHint;