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

IDE: source editor SetPageIndex: check if PageIndex=AValue

Browse Source 
git-svn-id: trunk@42483 -
This commit is contained in:
mattias 2013-08-24 18:42:17 +00:00
parent d01d5e1399
commit 4a79a421e4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourceeditor.pp
View File

@ -5647,6 +5647,7 @@ var
i: Integer;
n: TComponent;
begin
FPageIndex:=-1;
i := 1;
n := AOwner.FindComponent(NonModalIDEWindowNames[nmiwSourceNoteBookName]);
while (n <> nil) do begin
@ -6396,6 +6397,10 @@ end;
procedure TSourceNotebook.SetPageIndex(const AValue: Integer);
begin
DebugLnEnter(SRCED_PAGES, ['>> TSourceNotebook.SetPageIndex Cur-PgIdx=', PageIndex, ' FPageIndex=', FPageIndex, ' Value=', AValue, ' FUpdateLock=', FUpdateLock]);
if PageIndex = AValue then begin
//debugln(['>> TSourceNotebook.SetPageIndex PageIndex=', PageIndex, ' FPageIndex=', FPageIndex, ' Value=', AValue, ' FUpdateLock=', FUpdateLock]);
exit;
end;
FPageIndex := AValue;
if FUpdateLock = 0 then begin
DebugBoss.LockCommandProcessing;