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

LCL, gtk2 fix TTabControl tab's height (improves appareance, LazReport designer for example, and on some themes/distros fix Critical warnings)

Browse Source 
git-svn-id: trunk@40557 -
This commit is contained in:
jesus 2013-03-16 06:34:41 +00:00
parent c0878f5175
commit f69ac681f1
2 changed files with 6 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2def.pp
View File

@ -96,8 +96,8 @@ const
'tooltip',
'vertical paned',
'horizontal paned',
'statusbar',
'notebook',
'statusbar',
'hscale',
'vscale',
'groupbox',

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

@ -441,40 +441,13 @@ end;
class function TGtk2WSCustomTabControl.GetNotebookMinTabHeight(
const AWinControl: TWinControl): integer;
var
NBWidget: PGTKWidget;
BorderWidth: Integer;
Page: PGtkNotebookPage;
FrameBorders: TRect;
begin
Result:=inherited GetNotebookMinTabHeight(AWinControl);
FrameBorders:=GetStyleNotebookFrameBorders;
Result := FrameBorders.Top + 2; // +1 for getting size, +1 to see border line
if Result<=0 then
Result:=inherited GetNotebookMinTabHeight(AWinControl);
//debugln('TGtkWSCustomTabControl.GetNotebookMinTabHeight A ',dbgs(Result));
exit;
debugln('TGtkWSCustomTabControl.GetNotebookMinTabHeight A ',dbgs(AWinControl.HandleAllocated));
if AWinControl.HandleAllocated then
NBWidget:={%H-}PGTKWidget(AWinControl.Handle)
else
NBWidget:=GetStyleWidget(lgsNotebook);
// ToDo: find out how to create a fully working hidden Notebook style widget
if (NBWidget=nil) then begin
Result:=TWSCustomTabControl.GetNotebookMinTabHeight(AWinControl);
exit;
end;
debugln('TGtkWSCustomTabControl.GetNotebookMinTabHeight NBWidget: ',GetWidgetDebugReport(NBWidget),
' ',dbgs(NBWidget^.allocation.width),'x',dbgs(NBWidget^.allocation.height));
BorderWidth:=(PGtkContainer(NBWidget)^.flag0 and bm_TGtkContainer_border_width)
shr bp_TGtkContainer_border_width;
if PGtkNoteBook(NBWidget)^.first_tab<>nil then
Page:=PGtkNoteBook(NBWidget)^.cur_page;
Result:=BorderWidth;
if (Page<>nil) then begin
debugln('TGtkWSCustomTabControl.RemovePage TODO');
end;
debugln('TGtkWSCustomTabControl.GetNotebookMinTabHeight END ',dbgs(Result),' ',
GetWidgetDebugReport(NBWidget));
end;
class function TGtk2WSCustomTabControl.GetNotebookMinTabWidth(