paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 12:29:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEintf: object inspector: comment

Browse Source 
git-svn-id: trunk@44251 -
This commit is contained in:
mattias 2014-02-26 18:15:38 +00:00
parent 206cae270e
commit 86fdb15eae
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/objectinspector.pp
View File

@ -1479,6 +1479,7 @@ begin
end;
end;
{$ENDIF}
// CurRow is now invalid, do not access CurRow
if (OldChangeStep<>FChangeStep) then begin
// the selection has changed => CurRow does not exist any more
@ -1628,8 +1629,10 @@ var
NewValue: string;
EditorAttributes: TPropertyAttributes;
begin
//if FRows.Count=0 then
// debugln(['TOICustomPropertyGrid.SetItemIndex ',DbgSName(Self),' ',dbgsname(FCurrentEdit),' ',dbgs(FStates),' GridIsUpdating=',GridIsUpdating,' FItemIndex=',FItemIndex,' NewIndex=',NewIndex]);
{if pgsCallingEdit in FStates then begin
DumpStack;
debugln(['TOICustomPropertyGrid.SetItemIndex ',DbgSName(Self),' ',dbgsname(FCurrentEdit),' ',dbgs(FStates),' GridIsUpdating=',GridIsUpdating,' FItemIndex=',FItemIndex,' NewIndex=',NewIndex]);
end;}
if GridIsUpdating or (FItemIndex = NewIndex) then
exit;
// save old edit value