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

qt: extend toolbar parts theme drawing (more details)

Browse Source 
git-svn-id: trunk@12890 -
This commit is contained in:
paul 2007-11-16 08:50:17 +00:00
parent b5b7109b34
commit c75b605920
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,6 +37,7 @@ type
end;
{ TQtThemeServices }
TQtThemeServices = class(TThemeServices)
private
FStyle: QStyleH;
@ -237,8 +238,9 @@ begin
// specific states
// define splitter orientation
if (Details.Element = teRebar) and (Details.Part = RP_GRIPPER) then
// define orientations
if ((Details.Element = teRebar) and (Details.Part = RP_GRIPPER)) or
((Details.Element = teToolBar) and (Details.Part = TP_SEPARATOR)) then
Result := Result or QStyleState_Horizontal;
end;
@ -298,10 +300,25 @@ begin
end;
teToolBar:
begin
if Details.Part = TP_BUTTON then
begin
Result.DrawVariant := qdvPrimitive;
Result.PrimitiveElement := QStylePE_PanelButtonTool;
case Details.Part of
TP_BUTTON,
TP_DROPDOWNBUTTON,
TP_SPLITBUTTON: // there is another positibility to draw TP_SPLITBUTTON by CC_ToolButton
begin
Result.DrawVariant := qdvPrimitive;
Result.PrimitiveElement := QStylePE_PanelButtonTool;
end;
TP_SPLITBUTTONDROPDOWN:
begin
Result.DrawVariant := qdvPrimitive;
Result.PrimitiveElement := QStylePE_IndicatorButtonDropDown;
end;
TP_SEPARATOR,
TP_SEPARATORVERT:
begin
Result.DrawVariant := qdvPrimitive;
Result.PrimitiveElement := QStylePE_IndicatorToolBarSeparator;
end;
end;
end;
teRebar: