SGP: WIP change theme

This commit is contained in:
Pakin 2024-08-13 14:43:45 +07:00
parent 9aefaf7220
commit 371794d944
11 changed files with 2034 additions and 14 deletions

View file

@ -0,0 +1,86 @@
;
Var WTCWhiteColor = "0xFFFFFF"
Var WTCLightBlueColor = "0xD5D9F5"
Var WTCSemiLightBlueColor = "0xA6B2FF"
Var WTCMediumBlueColor = "0x8092FF"
Var WTCSemiMediumBlueColor = "0x3D59FF"
Var WTCBlueColor = "0x0025FF"
; case-1-bg-white
Var BackgroundColor = WTCLightBlueColor
Var HeadlineColor1 = WTCBlueColor
Var SubHeadlineColor1 = WTCBlueColor
Var BodyTextColor1 = WTCMediumBlueColor
Var ButtonPressedColor1 = WTCBlueColor
Var ButtonTextPressedColor1 = WTCWhiteColor
Var ButtonColor1 = WTCWhiteColor
Var ButtonTextColor1 = WTCBlueColor
Var ButtonDisabledColor1 = WTCLightBlueColor
Var HeadlineColor = WTCBlueColor
Var SubHeadlineColor = SubHeadlineColor1
Var PopupBodyTextColor = BodyTextColor1
; case-2-bg-light-blue
Var BackgroundColor2 = WTCLightBlueColor
Var HeadlineColor2 = WTCBlueColor
Var SubHeadlineColor2 = WTCBlueColor
Var BodyTextColor2 = WTCMediumBlueColor
Var ButtonPressedColor2 = WTCBlueColor
Var ButtonTextPressedColor2 = WTCWhiteColor
Var ButtonColor2 = WTCWhiteColor
Var ButtonTextColor2 = WTCBlueColor
Var ButtonDisabledColor2 = WTCSemiLightBlueColor
; case-3-bg-medium-white
Var BackgroundColor3 = WTCMediumBlueColor
Var HeadlineColor3 = WTCWhiteColor
Var SubHeadlineColor3 = WTCWhiteColor
Var BodyTextColor3 = WTCSemiLightBlueColor
Var ButtonPressedColor3 = WTCBlueColor
Var ButtonTextPressedColor3 = WTCWhiteColor
Var ButtonColor3 = WTCWhiteColor
Var ButtonTextColor3 = WTCBlueColor
Var ButtonDisabledColor3 = WTCSemiLightBlueColor
; case-4-bg-blue
Var BackgroundColor4 = WTCLightBlueColor
Var HeadlineColor4 = WTCWhiteColor
Var SubHeadlineColor4 = WTCWhiteColor
Var BodyTextColor4 = WTCSemiLightBlueColor
Var ButtonPressedColor4 = WTCBlueColor
Var ButtonTextPressedColor4 = WTCWhiteColor
Var ButtonColor4 = WTCWhiteColor
Var ButtonTextColor4 = WTCBlueColor
Var ButtonDisabledColor4 = WTCSemiLightBlueColor
If TargetThemeNum = 2 Then
Var BackgroundColor = BackgroundColor2
Var HeadlineColor = HeadlineColor2
Var SubHeadlineColor = BodyTextColor2
Var PopupBodyTextColor = WTCSemiMediumBlueColor
Var BodyTextColor = BodyTextColor2
EndIf
If TargetThemeNum = 3 Then
Var BackgroundColor = BackgroundColor3
Var HeadlineColor = HeadlineColor3
Var SubHeadlineColor = BodyTextColor3
Var PopupBodyTextColor = BodyTextColor3
EndIf
If TargetThemeNum = 4 Then
Var BackgroundColor = BackgroundColor4
Var HeadlineColor = HeadlineColor4
Var SubHeadlineColor = BodyTextColor4
Var PopupBodyTextColor = BodyTextColor4
EndIf