|
|
@@ -223,8 +223,8 @@ Friend Module ModSecret
|
|
|
RunInUi(
|
|
|
Sub()
|
|
|
If Not FrmMain.IsLoaded Then Return
|
|
|
- Dim Brush = New LinearGradientBrush With {.EndPoint = New Point(1, 0), .StartPoint = New Point(0, 0)}
|
|
|
'顶部条背景
|
|
|
+ Dim Brush = New LinearGradientBrush With {.EndPoint = New Point(1, 0), .StartPoint = New Point(0, 0)}
|
|
|
If TypeOf ColorHueTopbarDelta Is Integer Then
|
|
|
Brush.GradientStops.Add(New GradientStop With {.Offset = 0, .Color = New MyColor().FromHSL2(ColorHue - ColorHueTopbarDelta, ColorSat, 48 + ColorLightAdjust)})
|
|
|
Brush.GradientStops.Add(New GradientStop With {.Offset = 0.5, .Color = New MyColor().FromHSL2(ColorHue, ColorSat, 54 + ColorLightAdjust)})
|