paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

GTK2: tabcontrol, less of a gap between tabs and body

Browse Source 
git-svn-id: trunk@42635 -
This commit is contained in:
martin 2013-09-06 11:41:22 +00:00
parent f38edbcf27
commit 2b640c6174
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2pagecontrol.inc
View File

@ -451,7 +451,7 @@ var
FrameBorders: TRect;
begin
FrameBorders:=GetStyleNotebookFrameBorders;
Result := FrameBorders.Top + 2; // +1 for getting size, +1 to see border line
Result := FrameBorders.Top; // +1 for getting size, +1 to see border line
if Result<=0 then
Result:=inherited GetNotebookMinTabHeight(AWinControl);
//debugln('TGtkWSCustomTabControl.GetNotebookMinTabHeight A ',dbgs(Result));