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

SrcEdit: Fix close button on tab. issue #0018038

Browse Source 
git-svn-id: trunk@28466 -
This commit is contained in:
martin 2010-11-24 19:53:40 +00:00
parent 04fe47ca23
commit 60b51646df
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -6529,10 +6529,8 @@ procedure TSourceNotebook.CloseTabClicked(Sender: TObject);
var var
TabIndex: Integer; TabIndex: Integer;
begin begin
TabIndex:=FNotebook.TabIndex; CloseClicked(Sender,
if TabIndex>=0 then (GetKeyState(VK_CONTROL) < 0) and EditorOpts.CtrlMiddleTabClickClosesOthers);
CloseClicked(NoteBookPage[TabIndex],
(GetKeyState(VK_CONTROL) < 0) and EditorOpts.CtrlMiddleTabClickClosesOthers);
end; end;
function TSourceNotebook.GetEditors(Index:integer):TSourceEditor; function TSourceNotebook.GetEditors(Index:integer):TSourceEditor;