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

qt:

Browse Source 
- Teach qt ThemeServices to draw notebook pane.

git-svn-id: trunk@15031 -
This commit is contained in:
paul 2008-05-02 09:25:23 +00:00
parent c07d4c40cb
commit e1b45f011e
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/qt/qtthemes.pas
View File

@ -181,7 +181,13 @@ begin
end;
qdvPrimitive:
begin
opt := QStyleOption_create(Integer(QStyleOptionVersion), Integer(QStyleOptionSO_Default));
if Element.PrimitiveElement = QStylePE_FrameTabWidget then
begin
opt := QStyleOptionTabWidgetFrame_create();
// need widget to draw gradient
end
else
opt := QStyleOption_create(Integer(QStyleOptionVersion), Integer(QStyleOptionSO_Default));
QStyleOption_setState(opt, GetControlState(Details));
QStyleOption_setRect(opt, @ARect);
QStyle_drawPrimitive(Style, Element.PrimitiveElement, opt, Context.Widget);
@ -404,6 +410,14 @@ begin
end;
}
end;
teTab:
begin
if Details.Part = TABP_PANE then
begin
Result.DrawVariant := qdvPrimitive;
Result.PrimitiveElement := QStylePE_FrameTabWidget;
end;
end;
end;
end;