mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Tabs under macOS

Browse source
This commit is contained in:
Alexander Koblov 2018-11-21 14:25:46 +00:00
commit 0db681d147
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/ufileviewnotebook.pas
View file

@ -171,7 +171,6 @@ type
protected
procedure DoChange;
procedure UpdatePagePosition(AIndex, ASpacing: Integer);
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
public
@ -750,6 +749,8 @@ begin
FPageControl:= TFileViewPageControl.Create(Self);
Constraints.MinHeight:= FPageControl.GetMinimumTabHeight * 2;
Parent := ParentControl;
TabStop := False;
ShowHint := True;
@ -988,8 +989,8 @@ begin
begin
FPageControl.TabPosition:= AValue;
{$IF DEFINED(LCLWIN32) or DEFINED(LCLCARBON)}
// Fix Z-order, it's wrong when only one tab
if PageCount = 1 then RecreateWnd(Self);
// Fix Z-order, it's wrong after tab position change
RecreateWnd(Self);
{$ENDIF}
Application.QueueAsyncCall(@FPageControl.TabControlBoundsChange, 0);
end;
@ -1035,16 +1036,14 @@ begin
BorderSpacing.Bottom:= ASpacing;
end;
end;
{$IF DEFINED(CARBON) or DEFINED(COCOA)}
if Visible then BringToFront;
{$ELSEIF DEFINED(LCLGTK2) or DEFINED(LCLQT) or DEFINED(LCLQT5)}
BringToFront;
{$ENDIF}
end;
end;
procedure TFileViewNotebook.DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
FPageControl.TabControlBoundsChange(0);
end;
procedure TFileViewNotebook.ActivateTabByIndex(Index: Integer);
begin
if Index < -1 then