修复全屏一些问题、自定义格式支持文字换行 - 20241125

Author: cjhdevact

Assets/SettingUI.png

@@ -16,6 +16,7 @@
 - [x] 自定义时间显示格式
 - [x] 支持通过组策略配置策略
 - [x] 支持保存你的设置
+- [x] 适配DPI缩放（适配高分屏）
 - [x] 其它一些功能。它们正在等待被你发现……
 
 ## 下载

README.md

@@ -1507,7 +1507,9 @@ Public Class Form1
                 Me.BackgroundImage = Nothing
             End If
             'End If
-            Opacity = 1
+            If TimeTheme = 0 Or 1 Then
+                Opacity = 1
+            End If
             Me.FullM.Text = "退出全屏"
         Else
             Me.WindowState = FormWindowState.Normal
@@ -1520,7 +1522,7 @@ Public Class Form1
                     Else
                         Me.BackgroundImage = My.Resources.bkgdark
                     End If
-                    'Me.TransparencyKey = Color.FromArgb(1, 1, 1)
+                    Me.TransparencyKey = Color.FromArgb(1, 1, 1)
                     Opacity = 0.99
                 Else
                     If Me.Width >= 250 Then
@@ -1530,7 +1532,7 @@ Public Class Form1
                     Else
                         Me.BackgroundImage = My.Resources.bkg
                     End If
-                    'Me.TransparencyKey = Color.FromArgb(184, 184, 184)
+                    Me.TransparencyKey = Color.FromArgb(184, 184, 184)
                     Opacity = 0.99
                 End If
             ElseIf TimeTheme = 1 Then

Src/TimeControl.suo

@@ -127,7 +127,7 @@
   <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1
-        MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAADsAAAA7AAWrWiQkAAAB7SURBVDhPxZHRCYAwDAU7jiM4
+        MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAADr8AAA6/ATgFUyQAAAB7SURBVDhPxZHRCYAwDAU7jiM4
         mFO4kXM4UPQhD8xL0ip+WDiwIXcUbGYWmJbNMnQPhAEW53VPySJO7MmEe2lAl3l0HgKVnH0TRoZyNXsV
         0DuBmwaUT4FKBv8G4J2n/o0jXKAXwdEZZeACT17CvRAgVUhF4i53KFTihbUD0860AyUhweoAAAAASUVO
         RK5CYII=
@@ -139,7 +139,7 @@
   <data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1
-        MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACw8AAAsPAZL5A6UAAAzwSURBVHhe1ZvZdhXVFobzCL6B
+        MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACw4AAAsOAUC+4UEAAAzwSURBVHhe1ZvZdhXVFobzCL6B
         vMnhDQ5vcHLlpeFOuUruvIQ77DAqYIcYbLAZQ40iDFCUOGyGDcIWxF6zsW9ZdeY3mf9y1tq1Q5CAWGN8
         Y85VCcn+5lxVtapSzFztbWlpaZMx+8QTT2w3lh5//PEVY2R0RonYHThwYGSsGPbtSwv2vf/l38aP+Xdt
         9uH/gzCiFl1QMUDcMeE6JgcTr9h4ZHHR2Bw//vrc7APe8OSTT86byNhka2czEsy5CNmaNxTiY489Ntq/
@@ -198,6 +198,9 @@
         fWYAAAAASUVORK5CYII=
 </value>
   </data>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>50</value>
+  </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAgAAAAAAAAAAAChhgAAhgAAAEBAAAAAAAAAKEIAACeHAAAwMAAAAAAAAKglAABPyQAAKCgAAAAA

Src/TimeControl/Form1.vb

@@ -1399,6 +1399,23 @@ errcode:
         End Try
     End Sub
 
+    Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click
+        If Label3.Text = "设置时间小工具" Then
+            Dim a(5) As String
+            a(0) = "^_^"
+            a(1) = "ahhhhhhhhh?"
+            a(2) = "Let's have a try!"
+            a(3) = "The quick fox jumps over the lazy brown dog"
+            a(4) = "?????????????????"
+            a(5) = "Undefine string"
+            Dim b As New Random
+            Dim c As Integer = b.Next(0, 5)
+            Label3.Text = a(c)
+        Else
+            Label3.Text = "设置时间小工具"
+        End If
+    End Sub
+
     Private Sub ComboBox4_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
         If ComboBox4.SelectedIndex = 0 Then
             If Form1.UnSaveData = 0 Then
@@ -1417,7 +1434,12 @@ errcode:
             End If
             Label17.Text = "99%"
             TrackBar1.Value = 99
-            Form1.Opacity = 0.99
+            If Form1.WindowState = FormWindowState.Normal Then
+                Form1.Opacity = 0.99
+            Else
+                Form1.Opacity = 1
+            End If
+
         ElseIf ComboBox4.SelectedIndex = 1 Then
             If Form1.UnSaveData = 0 Then
                 RegKeyModule.AddReg("Software\CJH\TimeControl\Settings", "TimeTheme", 1, RegistryValueKind.DWord, "HKCU")
@@ -1436,7 +1458,11 @@ errcode:
             Label17.Text = "70%"
             TrackBar1.Value = 70
             Form1.BackgroundImage = Nothing
-            Form1.Opacity = 0.7
+            If Form1.WindowState = FormWindowState.Normal Then
+                Form1.Opacity = 0.7
+            Else
+                Form1.Opacity = 1
+            End If
         ElseIf ComboBox4.SelectedIndex = 2 Then
             If Form1.UnSaveData = 0 Then
                 RegKeyModule.AddReg("Software\CJH\TimeControl\Settings", "TimeTheme", 2, RegistryValueKind.DWord, "HKCU")

Src/TimeControl/Form2.Designer.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' 方法是按如下所示使用“*”:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.1.22.24112")> 
-<Assembly: AssemblyFileVersion("1.1.22.24112")> 
+<Assembly: AssemblyVersion("1.1.23.24113")> 
+<Assembly: AssemblyFileVersion("1.1.23.24113")>