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

LCL: in FilterEdit, name a method better (ReturnKeyHandled).

Browse Source 
git-svn-id: trunk@44914 -
This commit is contained in:
juha 2014-05-04 22:32:35 +00:00
parent ea3be751a5
commit 176412a277
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazcontrols/listfilteredit.pas
View File

@ -42,7 +42,7 @@ type
protected
procedure MoveNext; override;
procedure MovePrev; override;
function ReturnPressed: Boolean; override;
function ReturnKeyHandled: Boolean; override;
procedure SortAndFilter; override;
procedure ApplyFilterCore; override;
function GetDefaultGlyph: TBitmap; override;
@ -272,7 +272,7 @@ begin
end;
end;
function TListFilterEdit.ReturnPressed: Boolean;
function TListFilterEdit.ReturnKeyHandled: Boolean;
// Retuns true if the Return press was forwarded to the ListBox
var
Key: Char;

4
components/lazcontrols/treefilteredit.pas
View File

@ -79,7 +79,7 @@ type
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure MoveNext; override;
procedure MovePrev; override;
function ReturnPressed: Boolean; override;
function ReturnKeyHandled: Boolean; override;
procedure SortAndFilter; override;
procedure ApplyFilterCore; override;
function GetDefaultGlyph: TBitmap; override;
@ -592,7 +592,7 @@ begin
fFilteredTreeview.MoveToPrevNode;
end;
function TTreeFilterEdit.ReturnPressed: Boolean;
function TTreeFilterEdit.ReturnKeyHandled: Boolean;
// Retuns true if the Return press was forwarded to the Tree
var
Key: Char;

4
lcl/editbtn.pas
View File

@ -412,7 +412,7 @@ type
procedure ApplyFilterCore; virtual; abstract;
procedure MoveNext; virtual; abstract;
procedure MovePrev; virtual; abstract;
function ReturnPressed: Boolean; virtual; abstract;
function ReturnKeyHandled: Boolean; virtual; abstract;
function GetDefaultGlyphName: String; override;
public
constructor Create(AOwner: TComponent); override;
@ -1840,7 +1840,7 @@ begin
case Key of
VK_UP: begin MovePrev; Handled:=True; end;
VK_DOWN: begin MoveNext; Handled:=True; end;
VK_RETURN: Handled:=ReturnPressed;
VK_RETURN: Handled:=ReturnKeyHandled;
end;
if Handled then
Key:=VK_UNKNOWN