From 63b503ca240ace85e208f6b5a60c62f1c1770934 Mon Sep 17 00:00:00 2001 From: gambas Date: Tue, 9 Jul 2019 19:41:10 +0200 Subject: [PATCH] Make the TreeView arrows a little bit thinner and darker [GB.GUI.BASE] * NEW: Make the TreeView arrows a little bit thinner and darker. --- comp/src/gb.gui.base/.project | 1 + comp/src/gb.gui.base/.src/TreeView/_TreeView.class | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/comp/src/gb.gui.base/.project b/comp/src/gb.gui.base/.project index c380a9958..2f73933a0 100644 --- a/comp/src/gb.gui.base/.project +++ b/comp/src/gb.gui.base/.project @@ -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" diff --git a/comp/src/gb.gui.base/.src/TreeView/_TreeView.class b/comp/src/gb.gui.base/.src/TreeView/_TreeView.class index 4a02fc963..71e5a8814 100644 --- a/comp/src/gb.gui.base/.src/TreeView/_TreeView.class +++ b/comp/src/gb.gui.base/.src/TreeView/_TreeView.class @@ -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