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

Revert "PackageTabs: Improve visibility of selected editor tab. Issue #41132, patch by Maxim Ganetsky."

Browse Source 
This reverts commit 930797ee74.
This commit is contained in:
Ondrej Pokorny 2024-10-14 14:18:24 +02:00
parent 351f61afdf
commit b72fdc3e27
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/packagetabs/packagetabs_impl.pas
View File

@ -62,6 +62,8 @@ type
procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseEnter; override;
procedure MouseLeave; override;
public
constructor Create(aOwner: TComponent); override;
public
@ -565,6 +567,20 @@ begin
end;
end;
procedure TGroupTabLabel.MouseEnter;
begin
inherited MouseEnter;
Font.Style := Font.Style + [fsUnderline];
end;
procedure TGroupTabLabel.MouseLeave;
begin
inherited MouseLeave;
Font.Style := Font.Style - [fsUnderline];
end;
{ TGroupItem }
constructor TGroupItem.Create(AType: TGroupType; const ATitle: string;
@ -933,10 +949,7 @@ begin
xBtn.PopupMenu := FTabButtonMenu;
xBtn.Down := xEditor = xOldActive;
if xBtn.Down then
begin
xActBtn := xBtn;
xBtn.Font.Style := xBtn.Font.Style + [fsUnderline];
end;
xBtn.IsOtherFile := xPkgItem.&Type = gtOther;
end;
end;
@ -991,14 +1004,10 @@ begin
begin
xBtn := TPackageTabButton(FPanel.Controls[I]);
xBtn.Down := xBtn.Editor = xActEditor;
xBtn.Font.Style := xBtn.Font.Style - [fsUnderline];
if xBtn.Editor = xActEditor then
xActBtn := xBtn;
end;
if xActBtn <> nil then
xActBtn.Font.Style := xActBtn.Font.Style + [fsUnderline];
if (xActBtn<>nil) and (FPanel is TPackageTabScrollBox) then
TPackageTabScrollBox(FPanel).ScrollInView(xActBtn);