paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 19:20:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: object inspector: fixed DoCallEdit checking for focus

Browse Source 
git-svn-id: trunk@41867 -
This commit is contained in:
mattias 2013-06-24 12:33:34 +00:00
parent 4a4b3a8ecd
commit bbf5c1f087
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/objectinspector.pp
View File

@ -1356,7 +1356,8 @@ var
CurRow:TOIPropertyGridRow; CurRow:TOIPropertyGridRow;
OldChangeStep: integer; OldChangeStep: integer;
begin begin
if not CanEditRowValue(true) then exit; //debugln(['TOICustomPropertyGrid.DoCallEdit ',dbgs(GetFocus),' ',DbgSName(FindControl(GetFocus))]);
if not CanEditRowValue(false) then exit;
OldChangeStep:=fChangeStep; OldChangeStep:=fChangeStep;
CurRow:=Rows[FItemIndex]; CurRow:=Rows[FItemIndex];
@ -1957,7 +1958,8 @@ begin
or (FPropertyEditorHook.LookupRoot = FCurrentEditorLookupRoot)); or (FPropertyEditorHook.LookupRoot = FCurrentEditorLookupRoot));
if Result and CheckFocus then begin if Result and CheckFocus then begin
FocusedControl:=FindControl(GetFocus); FocusedControl:=FindControl(GetFocus);
if (FocusedControl<>nil) and not IsParentOf(FocusedControl) then if (FocusedControl<>nil) and (FocusedControl<>Self)
and (not IsParentOf(FocusedControl)) then
Result:=false; Result:=false;
end; end;
if Result then begin if Result then begin