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

MG: fixed deleting TPage, when page is selected

Browse Source 
git-svn-id: trunk@3643 -
This commit is contained in:
mattias 2002-11-16 11:59:24 +00:00
parent 8027d20e8c
commit a24bd9505a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/componenteditors.pas
View File

@ -514,7 +514,6 @@ begin
if (OldIndex>=0) and (OldIndex<Notebook.PageCount) then begin if (OldIndex>=0) and (OldIndex<Notebook.PageCount) then begin
if not GetHook(Hook) then exit; if not GetHook(Hook) then exit;
Hook.DeleteComponent(TComponent(NoteBook.PageList[OldIndex])); Hook.DeleteComponent(TComponent(NoteBook.PageList[OldIndex]));
GetDesigner.Modified;
end; end;
end; end;
@ -566,7 +565,7 @@ begin
case Index of case Index of
nbvAddPage: DoAddPage; nbvAddPage: DoAddPage;
nbvInsertPage: DoInsertPage; nbvInsertPage: DoInsertPage;
nbvDeletePage: DoDeletePage; nbvDeletePage: DoDeletePage; // beware: this can free the editor itself
nbvMovePageLeft: DoMoveActivePageLeft; nbvMovePageLeft: DoMoveActivePageLeft;
nbvMovePageRight: DoMoveActivePageRight; nbvMovePageRight: DoMoveActivePageRight;
end; end;