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

LCL: add stored function for FilterEdit TextHint. Issue #28956

Browse Source 
git-svn-id: trunk@50231 -
This commit is contained in:
ondrej 2015-11-05 12:38:05 +00:00
parent 1b015d1034
commit 6d5708e02c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/editbtn.pas
View File

@ -435,6 +435,7 @@ type
procedure SetUseFormActivate(AValue: Boolean); procedure SetUseFormActivate(AValue: Boolean);
procedure FormActivate(Sender: TObject); // Connects to owning form. procedure FormActivate(Sender: TObject); // Connects to owning form.
procedure FormDeactivate(Sender: TObject); procedure FormDeactivate(Sender: TObject);
function IsTextHintStored: Boolean;
protected protected
fNeedUpdate: Boolean; fNeedUpdate: Boolean;
fIsFirstUpdate: Boolean; fIsFirstUpdate: Boolean;
@ -535,7 +536,7 @@ type
property OnStartDrag; property OnStartDrag;
property OnUTF8KeyPress; property OnUTF8KeyPress;
property Text; property Text;
property TextHint; property TextHint stored IsTextHintStored;
property TextHintFontColor; property TextHintFontColor;
property TextHintFontStyle; property TextHintFontStyle;
end; end;
@ -2233,6 +2234,11 @@ begin
IdleConnected:=true; IdleConnected:=true;
end; end;
function TCustomControlFilterEdit.IsTextHintStored: Boolean;
begin
Result := TextHint <> rsFilter;
end;
procedure TCustomControlFilterEdit.ResetFilter; procedure TCustomControlFilterEdit.ResetFilter;
begin begin
Filter := ''; Filter := '';