|
|
@@ -41,11 +41,11 @@ Friend Module ModSecret
|
|
|
Environment.[Exit](Result.Cancel)
|
|
|
End If
|
|
|
'开源版本提示
|
|
|
- MsgBox($"该版本中不包含以下特性：
|
|
|
+ MyMsgBox($"该版本中不包含以下特性：
|
|
|
- CurseForge 查询：需要 API Key（你可以申请一个，然后添加到 SecretHeadersSign 方法中）
|
|
|
- 更新与联网通知：避免滥用隐患
|
|
|
-- 主题切换：这是需要赞助解锁的纪念性质的功能，别让赞助者太伤心啦
|
|
|
-- 百宝箱：开发早期往里面塞了些开发工具，整理起来太麻烦了，干脆噶了", MsgBoxStyle.Information, "开源版本说明")
|
|
|
+- 主题切换：这是需要赞助解锁的纪念性质的功能，别让赞助者太伤心啦……
|
|
|
+- 百宝箱：开发早期往里面塞了些开发工具，整理起来太麻烦了", "开源版本说明")
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
@@ -197,6 +197,48 @@ Friend Module ModSecret
|
|
|
Hint("该版本中不包含主题功能……")
|
|
|
End Sub
|
|
|
Public Sub ThemeRefreshMain()
|
|
|
+ RunInUi(
|
|
|
+ Sub()
|
|
|
+ If Not FrmMain.IsLoaded Then Exit Sub
|
|
|
+ '顶部条背景
|
|
|
+ Dim Brush = New LinearGradientBrush With {.EndPoint = New Point(1, 0), .StartPoint = New Point(0, 0)}
|
|
|
+ If ThemeNow = 5 Then
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0, .Color = New MyColor().FromHSL2(ColorHue, ColorSat, 25)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0.5, .Color = New MyColor().FromHSL2(ColorHue, ColorSat, 15)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 1, .Color = New MyColor().FromHSL2(ColorHue, ColorSat, 25)})
|
|
|
+ FrmMain.PanTitle.Background = Brush
|
|
|
+ FrmMain.PanTitle.Background.Freeze()
|
|
|
+ ElseIf Not (ThemeNow = 12 OrElse ThemeDontClick = 2) Then
|
|
|
+ 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)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 1, .Color = New MyColor().FromHSL2(ColorHue + ColorHueTopbarDelta, ColorSat, 48 + ColorLightAdjust)})
|
|
|
+ Else
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0, .Color = New MyColor().FromHSL2(ColorHue + ColorHueTopbarDelta(0), ColorSat, 48 + ColorLightAdjust)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0.5, .Color = New MyColor().FromHSL2(ColorHue + ColorHueTopbarDelta(1), ColorSat, 54 + ColorLightAdjust)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 1, .Color = New MyColor().FromHSL2(ColorHue + ColorHueTopbarDelta(2), ColorSat, 48 + ColorLightAdjust)})
|
|
|
+ End If
|
|
|
+ FrmMain.PanTitle.Background = Brush
|
|
|
+ FrmMain.PanTitle.Background.Freeze()
|
|
|
+ Else
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0, .Color = New MyColor().FromHSL2(ColorHue - 21, ColorSat, 53 + ColorLightAdjust)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0.33, .Color = New MyColor().FromHSL2(ColorHue - 7, ColorSat, 47 + ColorLightAdjust)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0.67, .Color = New MyColor().FromHSL2(ColorHue + 7, ColorSat, 47 + ColorLightAdjust)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 1, .Color = New MyColor().FromHSL2(ColorHue + 21, ColorSat, 53 + ColorLightAdjust)})
|
|
|
+ FrmMain.PanTitle.Background = Brush
|
|
|
+ End If
|
|
|
+ '主页面背景
|
|
|
+ If Setup.Get("UiBackgroundColorful") Then
|
|
|
+ Brush = New LinearGradientBrush With {.EndPoint = New Point(0.1, 1), .StartPoint = New Point(0.9, 0)}
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = -0.1, .Color = New MyColor().FromHSL2(ColorHue - 20, Math.Min(60, ColorSat) * 0.5, 80)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 0.4, .Color = New MyColor().FromHSL2(ColorHue, ColorSat * 0.9, 90)})
|
|
|
+ Brush.GradientStops.Add(New GradientStop With {.Offset = 1.1, .Color = New MyColor().FromHSL2(ColorHue + 20, Math.Min(60, ColorSat) * 0.5, 80)})
|
|
|
+ FrmMain.PanForm.Background = Brush
|
|
|
+ Else
|
|
|
+ FrmMain.PanForm.Background = New MyColor(245, 245, 245)
|
|
|
+ End If
|
|
|
+ FrmMain.PanForm.Background.Freeze()
|
|
|
+ End Sub)
|
|
|
End Sub
|
|
|
Public Sub ThemeCheckAll(EffectSetup As Boolean)
|
|
|
End Sub
|
龙腾猫跃