luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make the TreeView arrows a little bit thinner and darker

Browse source 
[GB.GUI.BASE]
* NEW: Make the TreeView arrows a little bit thinner and darker.
This commit is contained in:
gambas 2019-07-09 19:41:10 +02:00
parent 798b1d54cc
commit 63b503ca24
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
comp/src/gb.gui.base/.project
View file

@ -5,6 +5,7 @@ Version=3.13.90
VersionFile=1
Component=gb.image
Component=gb.gui
Component=gb.form
Arguments=[["-style=oxygen"],["-style=qtcurve"]]
CurrentArgument=0
Environment="GB_GUI=gb.qt5\nLIBOVERLAY_SCROLLBAR=0\nGB_REVERSE=1"

8
comp/src/gb.gui.base/.src/TreeView/_TreeView.class
View file

@ -555,8 +555,8 @@ Public Sub GridView_Draw(X As Integer, Y As Integer, W As Integer, H As Integer,
WA = $iDepthW / 2
HA = H - $iDepthW / 2
Paint.Arrow(XA, YA, WA, HA, If(hItem.Expanded, Align.Bottom, Align.Left))
Paint.Background = Color.SetAlpha(Style.ForegroundOf($hView), 128)
Paint.LineWidth = $iDepthW / 8
Paint.Background = Color.SetAlpha(Style.ForegroundOf($hView), 64)
Paint.LineWidth = $iDepthW / 12
Paint.LineCap = Paint.LineCapRound
Paint.Stroke
@ -621,8 +621,8 @@ Public Sub GridView_Draw(X As Integer, Y As Integer, W As Integer, H As Integer,
WA = $iDepthW / 2
HA = H - $iDepthW / 2
Paint.Arrow(XA, YA, WA, HA, If(hItem.Expanded, Align.Bottom, Align.Right))
Paint.Background = Color.LightForeground
Paint.LineWidth = $iDepthW / 8
Paint.Background = Color.SetAlpha(Style.ForegroundOf($hView), 64)
Paint.LineWidth = $iDepthW / 12
Paint.LineCap = Paint.LineCapRound
Paint.Stroke
Endif