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

Qt: implemented teProgress in qt themes.

Browse Source 
git-svn-id: trunk@43150 -
This commit is contained in:
zeljko 2013-10-07 09:25:55 +00:00
parent 88d5245c95
commit 0060290893
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -173,6 +173,18 @@ begin
inherited DrawElement(DC, Details, R, ClipRect);
qdvControl:
begin
if (Element.ControlElement in [QStyleCE_ProgressBar, QStyleCE_ProgressBarContents,
QStyleCE_ProgressBarGroove]) then
begin
opt := QStyleOptionProgressBarV2_create;
if Element.Features = QtVertical then
begin
QStyleOptionProgressBarV2_setOrientation(QStyleOptionProgressBarV2H(opt), QtVertical);
QStyleOptionProgressBarV2_setInvertedAppearance(QStyleOptionProgressBarV2H(opt), True);
QStyleOptionProgressBarV2_setBottomToTop(QStyleOptionProgressBarV2H(opt), True);
end else
QStyleOptionProgressBarV2_setOrientation(QStyleOptionProgressBarV2H(opt), QtHorizontal);
end else
if (Element.ControlElement = QStyleCE_TabBarTabShape) then
begin
opt := QStyleOptionTab_create();
@ -944,6 +956,18 @@ begin
Result.PrimitiveElement := QStylePE_FrameTabBarBase;
end;
end;
teProgress:
begin
Result.DrawVariant := qdvControl;
case Details.Part of
PP_CHUNK,PP_CHUNKVERT: Result.ControlElement := QStyleCE_ProgressBarContents;
PP_FILL,PP_FILLVERT: Result.ControlElement := QStyleCE_ProgressBarGroove;
else
Result.ControlElement := QStyleCE_ProgressBar;
end;
if Byte(Details.Part) in [PP_BARVERT, PP_FILLVERT, PP_CHUNKVERT] then
Result.Features := QtVertical;
end;
teScrollBar:
begin
Result.DrawVariant := qdvComplexControl;