From 60b51646dfb8a01f8aaf2962d536aadb8a3216c3 Mon Sep 17 00:00:00 2001 From: martin Date: Wed, 24 Nov 2010 19:53:40 +0000 Subject: [PATCH] SrcEdit: Fix close button on tab. issue #0018038 git-svn-id: trunk@28466 - --- ide/sourceeditor.pp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp index 3547fb1aac..a94ddb2e20 100644 --- a/ide/sourceeditor.pp +++ b/ide/sourceeditor.pp @@ -6529,10 +6529,8 @@ procedure TSourceNotebook.CloseTabClicked(Sender: TObject); var TabIndex: Integer; begin - TabIndex:=FNotebook.TabIndex; - if TabIndex>=0 then - CloseClicked(NoteBookPage[TabIndex], - (GetKeyState(VK_CONTROL) < 0) and EditorOpts.CtrlMiddleTabClickClosesOthers); + CloseClicked(Sender, + (GetKeyState(VK_CONTROL) < 0) and EditorOpts.CtrlMiddleTabClickClosesOthers); end; function TSourceNotebook.GetEditors(Index:integer):TSourceEditor;