- aggiunta EffectorWindow con TitleBar

- Utilizzata EffectorWindow per MultipleCopyWnd
- Utilizzata BaseWindow per ProcessManagerV
- aggiunto titolo a TitleBar
- aggiunto modulo Converters
This commit is contained in:
Emmanuele Sassi
2025-02-26 15:01:11 +01:00
parent 54e2f27a44
commit dcaef9eaa9
9 changed files with 290 additions and 135 deletions
+20
View File
@@ -0,0 +1,20 @@
Public Module Converters
ReadOnly dtLuaMinValue As New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
Public Function ConvertDateTimeToString(dtValue As DateTime) As String
If dtValue < dtLuaMinValue.AddDays(1) Then
Return ""
ElseIf dtValue > DateTime.Today Then
Dim d = dtValue.ToString("T")
Return dtValue.ToString("T")
Else
Return dtValue.ToString("d T")
End If
End Function
Public Function ConvertDateTimeToLuaInteger(dtValue As DateTime) As Integer
Return Math.Floor((dtValue.ToUniversalTime - dtLuaMinValue).TotalSeconds)
End Function
End Module