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

packagetabs: fix compilation after r50520 #19206bce93

Browse Source 
git-svn-id: trunk@50524 -
This commit is contained in:
ondrej 2015-11-29 19:30:12 +00:00
parent 6bb18f6fbd
commit d0f1cf3088
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/packagetabs/packagetabs_impl.pas
View File

@ -772,7 +772,6 @@ begin
xBtn.Parent := FPanel; xBtn.Parent := FPanel;
xBtn.Editor := xEditor; xBtn.Editor := xEditor;
xBtn.OnMouseDown := @TabButtonMouseDown; xBtn.OnMouseDown := @TabButtonMouseDown;
xBtn.ControlStyle := xBtn.ControlStyle + [csDoubleClicks];
xBtn.PopupMenu := FTabButtonMenu; xBtn.PopupMenu := FTabButtonMenu;
xBtn.Down := xEditor = xOldActive; xBtn.Down := xEditor = xOldActive;
if xBtn.Down then if xBtn.Down then
@ -971,14 +970,9 @@ var
xBtn: TPackageTabButton; xBtn: TPackageTabButton;
begin begin
xBtn := (Sender as TPackageTabButton); xBtn := (Sender as TPackageTabButton);
if (not IDEEnvironmentOptions.UseDoubleClickToCloseTabs and (Button = mbMiddle)) case Button of
or ( IDEEnvironmentOptions.UseDoubleClickToCloseTabs and (Button = mbLeft) and (ssDouble in Shift)) mbLeft: FWindow.ActiveEditor := xBtn.Editor;
then begin mbMiddle: LazarusIDE.DoCloseEditorFile(xBtn.Editor, [cfSaveFirst]);
LazarusIDE.DoCloseEditorFile(xBtn.Editor, [cfSaveFirst]);
end else
if (Button = mbLeft) then
begin
FWindow.ActiveEditor := xBtn.Editor;
end; end;
end; end;