paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 14:32:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 53292 #f95821fe94 from trunk:

Browse Source 
lcl: Do not check for Text property directly in TextChanged. Part of issue . Patch by Michl
........

git-svn-id: branches/fixes_1_6@53352 -
This commit is contained in:
maxim 2016-11-11 22:38:44 +00:00
parent dd6cd0a3b0
commit ff35800fc0
1 changed files with 2 additions and 2 deletions

4
lcl/include/customedit.inc
View File

@ -403,8 +403,8 @@ end;
function TCustomEdit.CanShowTextHint: Boolean;
begin
Result := (([csDesigning,csLoading] * ComponentState) = []) and
(Text = '') and
(FTextHint <> '') and
(Text = '') and
(not Focused);
end;
@ -586,7 +586,7 @@ begin
Change;
end;
end;
if (Text = '') and (not FTextHintShowing) then ShowTextHint;
if CanShowTextHint and (not FTextHintShowing) then ShowTextHint;
end;
procedure TCustomEdit.Change;