paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 12:55:56 +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 protected
procedure MoveNext; override; procedure MoveNext; override;
procedure MovePrev; override; procedure MovePrev; override;
function ReturnPressed: Boolean; override; function ReturnKeyHandled: Boolean; override;
procedure SortAndFilter; override; procedure SortAndFilter; override;
procedure ApplyFilterCore; override; procedure ApplyFilterCore; override;
function GetDefaultGlyph: TBitmap; override; function GetDefaultGlyph: TBitmap; override;
@ -272,7 +272,7 @@ begin
end; end;
end; end;
function TListFilterEdit.ReturnPressed: Boolean; function TListFilterEdit.ReturnKeyHandled: Boolean;
// Retuns true if the Return press was forwarded to the ListBox // Retuns true if the Return press was forwarded to the ListBox
var var
Key: Char; Key: Char;

4
components/lazcontrols/treefilteredit.pas
View File

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

4
lcl/editbtn.pas
View File

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