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

LCL: TEdit: handling VK_RETURN after interface, bug #16430

Browse Source 
git-svn-id: trunk@26592 -
This commit is contained in:
mattias 2010-07-11 09:23:57 +00:00
parent 9ce0b6476f
commit f94941a0de
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customedit.inc
View File

@ -423,7 +423,7 @@ begin
Result.CY := 23; Result.CY := 23;
end; end;
procedure TCustomEdit.KeyUp(var Key: Word; Shift: TShiftState); procedure TCustomEdit.KeyUpAfterInterface(var Key: Word; Shift: TShiftState);
begin begin
inherited KeyUp(Key, Shift); inherited KeyUp(Key, Shift);
if Key = VK_RETURN then if Key = VK_RETURN then

2
lcl/stdctrls.pp
View File

@ -726,7 +726,7 @@ type
procedure SetSelText(const Val: string); virtual; procedure SetSelText(const Val: string); virtual;
function ChildClassAllowed(ChildClass: TClass): boolean; override; function ChildClassAllowed(ChildClass: TClass): boolean; override;
class function GetControlClassDefaultSize: TSize; override; class function GetControlClassDefaultSize: TSize; override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUpAfterInterface(var Key: Word; Shift: TShiftState); override;
procedure WMChar(var Message: TLMChar); message LM_CHAR; procedure WMChar(var Message: TLMChar); message LM_CHAR;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override; procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
procedure RealSetText(const AValue: TCaption); override; procedure RealSetText(const AValue: TCaption); override;