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

use -dVerboseDesignerModified to see a stack trace when somthing modified the form

Browse Source 
git-svn-id: trunk@8525 -
This commit is contained in:
mattias 2006-01-15 23:36:55 +00:00
parent 9278bbf72a
commit b866eb1a17
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -10112,6 +10112,9 @@ begin
if SrcEdit<>nil then begin
SrcEdit.Modified:=true;
SourceNotebook.UpdateStatusBar;
{$IFDEF VerboseDesignerModified}
DumpStack;
{$ENDIF}
end;
end;
end;

7
lcl/include/customnotebook.inc
View File

@ -724,10 +724,11 @@ Begin
//debugln('TCustomNotebook.CNNotify A fPageIndex=',fPageIndex,' FLoadedPageIndex=',FLoadedPageIndex);
UpdateAllDesignerFlags;
if ([csLoading,csDestroying]*ComponentState=[]) then begin
if fPageIndexOnLastChange<>fPageIndex then
if fPageIndexOnLastChange<>fPageIndex then begin
Change;
if csDesigning in ComponentState then
OwnerFormDesignerModified(Self);
if csDesigning in ComponentState then
OwnerFormDesignerModified(Self);
end;
end;
end;
end;