Commit bdb91bdc authored by ondrej's avatar ondrej
Browse files

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

git-svn-id: trunk@55716 -
parent c5473412
......@@ -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;
......
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment