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

when executing defaultcontrol action, check if control visible

Browse Source 
git-svn-id: trunk@7069 -
This commit is contained in:
micha 2005-04-12 10:02:47 +00:00
parent b2c1d425e5
commit 151ef8e01a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/application.inc
View File

@ -1335,7 +1335,8 @@ begin
if Form<>nil then begin if Form<>nil then begin
if (anoReturnForDefaultControl in Navigation) if (anoReturnForDefaultControl in Navigation)
and (Form.DefaultControl <> nil) and (Form.DefaultControl <> nil)
and Form.DefaultControl.Enabled then and ((Form.DefaultControl.Parent = nil) or (Form.DefaultControl.Parent.CanFocus))
and Form.DefaultControl.Enabled and Form.DefaultControl.Visible then
begin begin
//debugln('TApplication.ControlKeyUp VK_RETURN ', Acontrol.Name); //debugln('TApplication.ControlKeyUp VK_RETURN ', Acontrol.Name);
Form.DefaultControl.ExecuteDefaultAction; Form.DefaultControl.ExecuteDefaultAction;
@ -1454,6 +1455,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.115 2005/04/12 10:02:47 micha
when executing defaultcontrol action, check if control visible
Revision 1.114 2005/04/01 09:26:56 micha Revision 1.114 2005/04/01 09:26:56 micha
only execute button action when enabled (fixes bug 676) only execute button action when enabled (fixes bug 676)