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

Gtk2: fixed bug in tabcontrol painting in gtk2themes, issue #20822

Browse Source 
git-svn-id: trunk@34030 -
This commit is contained in:
zeljko 2011-12-07 19:21:19 +00:00
parent 56f08e8572
commit c2fcfb1833
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk2/gtk2themes.pas
View File

@ -452,13 +452,11 @@ to alternate splitter painting}
Result.State := GTK_STATE_NORMAL;
Result.Shadow := GTK_SHADOW_OUT;
Result.Detail := 'notebook';
if Details.Part in [TABP_PANE, TABP_BODY] then
begin
{Result.GapSide := GTK_POS_TOP;
Result.GapX := 20;
Result.GapWidth := 40;}
if Details.Part = TABP_PANE then
Result.Painter := gptShadow
else
if Details.Part = TABP_BODY then
Result.Painter := gptBox;
end;
end;
teToolTip:
begin