paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 23:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: edit: force show texthint in InitializeWnd. issue #32053

Browse Source 
git-svn-id: trunk@55716 -
This commit is contained in:
ondrej 2017-08-20 12:17:57 +00:00
parent c5473412de
commit bdb91bdc6d
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customedit.inc
View File

@ -53,7 +53,8 @@ begin
if WidgetSet.GetLCLCapability(lcTextHint) = LCL_CAPABILITY_YES then
TWSCustomEditClass(WidgetSetClass).SetTextHint(Self, FTextHint)
else
if CanShowEmulatedTextHint then ShowEmulatedTextHint;
if CanShowEmulatedTextHint then
ShowEmulatedTextHint(True);
end;
{------------------------------------------------------------------------------
@ -680,11 +681,11 @@ begin
end;
end;
procedure TCustomEdit.ShowEmulatedTextHint;
procedure TCustomEdit.ShowEmulatedTextHint(const ForceShow: Boolean);
var
HintFont: TFont;
begin
if (FEmulatedTextHintStatus<>thsHidden) then
if (FEmulatedTextHintStatus<>thsHidden) and not ForceShow then
Exit;
FEmulatedTextHintStatus := thsChanging;

2
lcl/stdctrls.pp
View File

@ -731,7 +731,7 @@ type
FSelStart: integer;
FTextChangedByRealSetText: Boolean;
FTextHint: TTranslateString;
procedure ShowEmulatedTextHint;
procedure ShowEmulatedTextHint(const ForceShow: Boolean = False);
procedure HideEmulatedTextHint;
procedure SetAlignment(const AValue: TAlignment);
function GetCanUndo: Boolean;