- aggiornato stile finestra copia multipla

- aggiornata versione
- aggiunti EgtInterface e Language
2025-08-06 11:09:52 +02:00 · 2025-07-08 16:21:01 +02:00 · 2025-06-12 20:04:21 +02:00 · 2025-02-26 15:01:11 +01:00 · 2025-02-17 22:52:59 +01:00 · 2025-02-17 19:01:43 +01:00
18 changed files with 716 additions and 408 deletions
@@ -47,6 +47,9 @@
  </PropertyGroup>
  <PropertyGroup />
  <ItemGroup>
+    <Reference Include="EgwWPFBaseLib">
+      <HintPath>..\..\..\EgwWPFBaseLib\EgwWPFBaseLib\bin\Debug\EgwWPFBaseLib.dll</HintPath>
+    </Reference>
    <Reference Include="System.Core" />
    <Reference Include="System.Xml.Linq" />
    <Reference Include="System.Data.DataSetExtensions" />
@@ -84,7 +87,7 @@
    <Compile Include="Constants\ConstGen.vb" />
    <Compile Include="Constants\ConstIni.vb" />
    <Compile Include="Constants\PluginConstIni.vb" />
-    <Compile Include="EgtWindow\EgtWindow.vb" />
+    <Compile Include="EffectorWindow\EffectorWindow.vb" />
    <Compile Include="MultipleCopyWnd\MultipleCopyWndV.xaml.vb">
      <DependentUpon>MultipleCopyWndV.xaml</DependentUpon>
    </Compile>
@@ -110,10 +113,13 @@
      <DependentUpon>TitleBarV.xaml</DependentUpon>
    </Compile>
    <Compile Include="Utility\Command.vb" />
+    <Compile Include="Utility\Converters.vb" />
+    <Compile Include="Utility\EgtInterface.vb" />
    <Compile Include="Utility\ExecProcessManager.vb" />
    <Compile Include="Utility\GenInterface.vb" />
    <Compile Include="Utility\IdNameStruct.vb" />
    <Compile Include="Utility\IniFile.vb" />
+    <Compile Include="Utility\Language.vb" />
    <Compile Include="Utility\PluginIniFile.vb" />
    <Compile Include="Utility\StringConversion.vb" />
    <Compile Include="Utility\ThreadData.vb" />
@@ -154,6 +160,7 @@
    <Resource Include="Resources\Effector.ico" />
    <Resource Include="Resources\EgalwareLogo.png" />
  </ItemGroup>
+  <ItemGroup />
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <PropertyGroup>
    <PostBuildEvent>copy $(TargetPath) c:\EgtData\Effector\Plugin\Effector.Plugin.DoorArreda\Effector.Plugin.Lib.dll
@@ -0,0 +1,42 @@
+' Follow steps 1a or 1b and then 2 to use this custom control in a XAML file.
+'
+' Step 1a) Using this custom control in a XAML file that exists in the current project.
+' Add this XmlNamespace attribute to the root element of the markup file where it is 
+' to be used:
+'
+'     xmlns:MyNamespace="clr-namespace:Effector.Plugin.Lib"
+'
+'
+' Step 1b) Using this custom control in a XAML file that exists in a different project.
+' Add this XmlNamespace attribute to the root element of the markup file where it is 
+' to be used:
+'
+'     xmlns:MyNamespace="clr-namespace:Effector.Plugin.Lib;assembly=Effector.Plugin.Lib"
+'
+' You will also need to add a project reference from the project where the XAML file lives
+' to this project and Rebuild to avoid compilation errors:
+'
+'     Right click on the target project in the Solution Explorer and
+'     "Add Reference"->"Projects"->[Browse to and select this project]
+'
+'
+' Step 2)
+' Go ahead and use your control in the XAML file. Note that Intellisense in the
+' XML editor does not currently work on custom controls and its child elements.
+'
+'     <MyNamespace:EffectorWindow/>
+'
+
+Imports System.Windows.Controls.Primitives
+Imports EgwWPFBaseLib
+
+Public Class EffectorWindow
+   Inherits EgwWPFBaseLib.EgtWindow
+
+   Shared Sub New()
+      'This OverrideMetadata call tells the system that this element wants to provide a style that is different than its base class.
+      'This style is defined in themes\generic.xaml
+      DefaultStyleKeyProperty.OverrideMetadata(GetType(EffectorWindow), new FrameworkPropertyMetadata(GetType(EffectorWindow)))
+   End Sub
+
+End Class
@@ -0,0 +1,8 @@
+<EgwWPFBaseLib:EgtWindow x:Class="EffectorWindowV"
+                         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                         xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
+                         xmlns:local="clr-namespace:Effector.Plugin.Lib"
+                         TitleBarHeight="40"
+                         Style="{StaticResource Effector_Window}">
+</EgwWPFBaseLib:EgtWindow>
@@ -0,0 +1,3 @@
+Public Class EffectorWindowV
+
+End Class
@@ -1,4 +0,0 @@
-<Window x:Class="EgtWindowV"
-        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
-</Window>
@@ -1,301 +0,0 @@
-Imports System.Runtime.InteropServices
-Imports System.Text
-Imports System.Windows.Interop
-Imports System.Xml.Serialization
-
-Public Class EgtWindowV
-
-   Private Const WM_GETMINMAXINFO As Integer = &H24
-   Private Const MONITOR_DEFAULTTONEAREST As UInteger = &H2
-   Private Const SW_SHOWNORMAL As Integer = 1
-   Private Const SW_SHOWMINIMIZED As Integer = 2
-
-   <Serializable>
-   <StructLayout(LayoutKind.Sequential)>
-   Public Structure RECT
-
-      Public Left As Integer
-      Public Top As Integer
-      Public Right As Integer
-      Public Bottom As Integer
-
-      Public Sub New(ByVal left As Integer, ByVal top As Integer, ByVal right As Integer, ByVal bottom As Integer)
-         Me.Left = left
-         Me.Top = top
-         Me.Right = right
-         Me.Bottom = bottom
-      End Sub
-
-   End Structure
-
-   <StructLayout(LayoutKind.Sequential)>
-   Public Structure MONITORINFO
-
-      Public cbSize As Integer
-      Public rcMonitor As RECT
-      Public rcWork As RECT
-      Public dwFlags As UInteger
-
-   End Structure
-
-   <Serializable>
-   <StructLayout(LayoutKind.Sequential)>
-   Public Structure POINT
-
-      Public X As Integer
-      Public Y As Integer
-
-      Public Sub New(ByVal x As Integer, ByVal y As Integer)
-         Me.X = x
-         Me.Y = y
-      End Sub
-
-   End Structure
-
-   <StructLayout(LayoutKind.Sequential)>
-   Public Structure MINMAXINFO
-
-      Public ptReserved As POINT
-      Public ptMaxSize As POINT
-      Public ptMaxPosition As POINT
-      Public ptMinTrackSize As POINT
-      Public ptMaxTrackSize As POINT
-
-   End Structure
-
-   <Serializable>
-   <StructLayout(LayoutKind.Sequential)>
-   Public Structure WINDOWPLACEMENT
-
-      Public length As Integer
-      Public flags As Integer
-      Public showCmd As Integer
-      Public minPosition As POINT
-      Public maxPosition As POINT
-      Public normalPosition As RECT
-
-   End Structure
-
-   Private Shared encoding As Encoding = New UTF8Encoding()
-   Private Shared serializer As XmlSerializer = New XmlSerializer(GetType(WINDOWPLACEMENT))
-
-
-#Region "CONSTRUCTOR"
-
-   Sub New()
-      ' Funzione che interpreta l'xaml
-      InitializeComponent()
-      AddHandler Me.Loaded, AddressOf MainWindowV_Loaded
-      AddHandler Me.ContentRendered, AddressOf MainWindowV_ContentRendered
-      AddHandler Me.StateChanged, AddressOf Window_StateChanged
-      AddHandler Me.Closing, AddressOf MainWindowV_Closing
-      AddHandler Me.Closed, AddressOf MainWindowV_Closed
-      Me.RefreshMaximizeRestoreButton()
-   End Sub
-
-#End Region    ' CONSTRUCTOR
-
-#Region "METHODS"
-
-   <DllImport("user32.dll")>
-   Private Shared Function MonitorFromWindow(ByVal handle As IntPtr, ByVal flags As UInteger) As IntPtr
-   End Function
-   <DllImport("user32.dll")>
-   Private Shared Function GetMonitorInfo(ByVal hMonitor As IntPtr, ByRef lpmi As MONITORINFO) As Boolean
-   End Function
-   <DllImport("user32.dll")>
-   Private Shared Function SetWindowPlacement(ByVal hWnd As IntPtr, <[In]> ByRef lpwndpl As WINDOWPLACEMENT) As Boolean
-   End Function
-   <DllImport("user32.dll")>
-   Private Shared Function GetWindowPlacement(ByVal hWnd As IntPtr, <Out> ByRef lpwndpl As WINDOWPLACEMENT) As Boolean
-   End Function
-
-   Protected Overrides Sub OnSourceInitialized(ByVal e As EventArgs)
-      MyBase.OnSourceInitialized(e)
-      CType(PresentationSource.FromVisual(Me), HwndSource).AddHook(AddressOf HookProc)
-      Dim sPlacement As String = ""
-      GetMainPrivateProfileString(S_GENERAL, K_WINPLACE, "", sPlacement)
-      If Not String.IsNullOrWhiteSpace(sPlacement) Then
-         SetPlacement(sPlacement)
-      End If
-
-   End Sub
-
-   Public Shared Function HookProc(ByVal hwnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr, ByRef handled As Boolean) As IntPtr
-      If msg = WM_GETMINMAXINFO Then
-         Dim mmi As MINMAXINFO = CType(Marshal.PtrToStructure(lParam, GetType(MINMAXINFO)), MINMAXINFO)
-         Dim monitor As IntPtr = MonitorFromWindow(hwnd, MONITOR_DEFAULTTONEAREST)
-
-         If monitor <> IntPtr.Zero Then
-            Dim monitorInfo As MONITORINFO = New MONITORINFO()
-            monitorInfo.cbSize = Marshal.SizeOf(GetType(MONITORINFO))
-            GetMonitorInfo(monitor, monitorInfo)
-            Dim rcWorkArea As RECT = monitorInfo.rcWork
-            Dim rcMonitorArea As RECT = monitorInfo.rcMonitor
-            mmi.ptMaxPosition.X = Math.Abs(rcWorkArea.Left - rcMonitorArea.Left)
-            mmi.ptMaxPosition.Y = Math.Abs(rcWorkArea.Top - rcMonitorArea.Top)
-            mmi.ptMaxSize.X = Math.Abs(rcWorkArea.Right - rcWorkArea.Left)
-            mmi.ptMaxSize.Y = Math.Abs(rcWorkArea.Bottom - rcWorkArea.Top)
-         End If
-
-         Marshal.StructureToPtr(mmi, lParam, True)
-      End If
-
-      Return IntPtr.Zero
-   End Function
-
-   Shared Sub SetPlacement(ByVal windowHandle As IntPtr, ByVal placementXml As String)
-      If String.IsNullOrEmpty(placementXml) Then
-         Return
-      End If
-
-      Dim placement As WINDOWPLACEMENT
-      Try
-         placement = StringToPlacement(placementXml)
-         'Using memoryStream As TextReader = New StringReader(placementXml)
-         '   placement = CType(serializer.Deserialize(memoryStream), WINDOWPLACEMENT)
-         'End Using
-
-         placement.length = Marshal.SizeOf(GetType(WINDOWPLACEMENT))
-         placement.flags = 0
-         placement.showCmd = (If(placement.showCmd = SW_SHOWMINIMIZED, SW_SHOWNORMAL, placement.showCmd))
-         SetWindowPlacement(windowHandle, placement)
-      Catch __unusedInvalidOperationException1__ As InvalidOperationException
-      End Try
-
-   End Sub
-
-   Private Shared Function PlacementToString(Placement As WINDOWPLACEMENT) As String
-      Dim sPlacement As String = ""
-      sPlacement = Placement.length.ToString() & ";" &
-                   Placement.flags.ToString() & ";" &
-                   Placement.showCmd.ToString() & ";"
-      sPlacement &= PointToString(Placement.minPosition) & ";"
-      sPlacement &= PointToString(Placement.maxPosition) & ";"
-      sPlacement &= RectToString(Placement.normalPosition)
-      Return sPlacement
-   End Function
-
-   Private Shared Function PointToString(Point As POINT) As String
-      Dim sPoint As String = ""
-      sPoint = Point.X.ToString() & "," &
-               Point.Y.ToString()
-      Return sPoint
-   End Function
-
-   Private Shared Function RectToString(Rect As RECT) As String
-      Dim sRect As String = ""
-      sRect = Rect.Left.ToString() & "," &
-              Rect.Top.ToString() & "," &
-              Rect.Right.ToString() & "," &
-              Rect.Bottom.ToString()
-      Return sRect
-   End Function
-
-   Shared Function GetPlacement(ByVal windowHandle As IntPtr) As String
-      Dim placement As WINDOWPLACEMENT = New WINDOWPLACEMENT()
-      GetWindowPlacement(windowHandle, placement)
-      Return PlacementToString(placement)
-
-      'Using TextWriter As StringWriter = New StringWriter()
-      '   serializer.Serialize(TextWriter, placement)
-      '   Return TextWriter.ToString().Replace(Environment.NewLine, "")
-      'End Using
-
-   End Function
-
-   Private Shared Function StringToPlacement(sPlacement As String) As WINDOWPLACEMENT
-      Dim Placement As WINDOWPLACEMENT
-      Dim sPlacementArray As String() = sPlacement.Split(";"c)
-      If sPlacementArray.Length < 5 Then
-         Placement.normalPosition = New RECT(100, 100, 800, 800)
-         Return Placement
-      End If
-      Integer.TryParse(sPlacementArray(0), Placement.length)
-      Integer.TryParse(sPlacementArray(1), Placement.flags)
-      Integer.TryParse(sPlacementArray(2), Placement.showCmd)
-      Placement.minPosition = StringToPoint(sPlacementArray(3))
-      Placement.maxPosition = StringToPoint(sPlacementArray(4))
-      Placement.normalPosition = StringToRect(sPlacementArray(5))
-      Return Placement
-   End Function
-
-   Private Shared Function StringToPoint(sPoint As String) As POINT
-      Dim sPointArray As String() = sPoint.Split(","c)
-      Dim nX As Integer = 0
-      Dim nY As Integer = 0
-      Integer.TryParse(sPointArray(0), nX)
-      Integer.TryParse(sPointArray(1), nY)
-      Return New POINT(nX, nY)
-   End Function
-
-   Private Shared Function StringToRect(sRect As String) As RECT
-      Dim sRectArray As String() = sRect.Split(","c)
-      Dim nLeft As Integer = 0
-      Dim nTop As Integer = 0
-      Dim nRight As Integer = 0
-      Dim nBottom As Integer = 0
-      Integer.TryParse(sRectArray(0), nLeft)
-      Integer.TryParse(sRectArray(1), nTop)
-      Integer.TryParse(sRectArray(2), nRight)
-      Integer.TryParse(sRectArray(3), nBottom)
-      Return New RECT(nLeft, nTop, nRight, nBottom)
-   End Function
-
-   Public Sub SetPlacement(ByVal placementXml As String)
-      SetPlacement(New WindowInteropHelper(Me).Handle, placementXml)
-   End Sub
-
-   Public Function GetPlacement() As String
-      Return GetPlacement(New WindowInteropHelper(Me).Handle)
-   End Function
-
-   Private Sub RefreshMaximizeRestoreButton()
-      If Me.WindowState = WindowState.Maximized Then
-         Me.maximizeButton.Visibility = Visibility.Collapsed
-         Me.restoreButton.Visibility = Visibility.Visible
-      Else
-         Me.maximizeButton.Visibility = Visibility.Visible
-         Me.restoreButton.Visibility = Visibility.Collapsed
-      End If
-   End Sub
-
-#End Region    ' METHODS
-
-#Region "EVENTS"
-
-   Private Sub OnMinimizeButtonClick(ByVal sender As Object, ByVal e As RoutedEventArgs)
-      Me.WindowState = WindowState.Minimized
-   End Sub
-
-   Private Sub OnMaximizeRestoreButtonClick(ByVal sender As Object, ByVal e As RoutedEventArgs)
-      If Me.WindowState = WindowState.Maximized Then
-         Me.WindowState = WindowState.Normal
-      Else
-         Me.WindowState = WindowState.Maximized
-      End If
-   End Sub
-
-   Private Sub Window_StateChanged(ByVal sender As Object, ByVal e As EventArgs)
-      Me.RefreshMaximizeRestoreButton()
-   End Sub
-
-   Private Sub OnCloseButtonClick(ByVal sender As Object, ByVal e As RoutedEventArgs)
-      Me.Close()
-   End Sub
-
-   Private Sub MainWindowV_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs)
-      If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
-         e.Cancel = True
-         Return
-      End If
-      WriteMainPrivateProfileString(S_GENERAL, K_WINPLACE, GetPlacement())
-   End Sub
-
-   Private Sub MainWindowV_Closed(sender As Object, e As EventArgs)
-      EgtOutLog("Exit")
-   End Sub
-
-#End Region    ' EVENTS
-
-End Class
@@ -1,50 +1,57 @@
-<local:EgtWindow x:Class="MultipleCopyWndV"
+<local:EffectorWindow x:Class="MultipleCopyWndV"
                      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                      xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
                      xmlns:local="clr-namespace:Effector.Plugin.Lib"
-                 TitleBarHeight="30"
+                      TitleBarHeight="40"
                      WindowStartupLocation="CenterOwner"
                      ShowInTaskbar="False"
-                 SizeToContent="WidthAndHeight">
+                      SizeToContent="WidthAndHeight"
+                      Title="{Binding sTitle}"
+                      MinWidth="300"
+                      Style="{StaticResource EffectorWindow.Dialog.NoClose}">
   <Grid>
      <Grid.RowDefinitions>
-         <RowDefinition Height="{Binding TitleBarHeight, RelativeSource={RelativeSource AncestorType={x:Type local:EgtWindow}}}"/>
         <RowDefinition Height="1*"/>
         <RowDefinition Height="Auto"/>
      </Grid.RowDefinitions>
-      <local:TitleBar/>
      <Grid Grid.Row="1"
-            Margin="5">
+            Margin="30,10">
         <Grid.RowDefinitions>
            <RowDefinition Height="1*"/>
            <RowDefinition Height="Auto"/>
         </Grid.RowDefinitions>
-         <Grid Margin="0,0,0,5">
+         <Grid Margin="0,10,0,20">
            <Grid.ColumnDefinitions>
               <ColumnDefinition Width="Auto"/>
               <ColumnDefinition Width="1*"/>
            </Grid.ColumnDefinitions>
-            <TextBlock Text="Numero di copie"
-                       Margin="0,0,2.5,0"/>
+            <TextBlock Text="{Binding sCopyNumberMsg}"
+                       Margin="0,0,5,0"
+                       Style="{StaticResource TextBlock.MultipleCopy}"/>
            <TextBox Grid.Column="1"
                     Text="{Binding sCopyNumber}"
                     Width="40"
-                     Margin="2.5,0,0,0"/>
+                     HorizontalAlignment="Right"
+                     Margin="5,0,0,0"
+                     Style="{StaticResource TextBox.MultipleCopy}"/>
         </Grid>
         <Grid Grid.Row="1">
            <Grid.ColumnDefinitions>
               <ColumnDefinition Width="1*"/>
               <ColumnDefinition Width="1*"/>
            </Grid.ColumnDefinitions>
-            <Button Content="Ok"
+            <Button Content="{Binding sOkMsg}"
                    Command="{Binding Ok_Command}"
-                    Margin="0,0,2.5,0"/>
+                    Margin="0,0,5,0"
+                    Style="{StaticResource Button.Confirm}"/>
            <Button Grid.Column="1"
-                    Content="Annulla"
+                    Content="{Binding sCancelMsg}"
                    Command="{Binding Cancel_Command}"
-                    Margin="2.5,0,0,0"/>
+                    Margin="5,0,0,0"
+                    Style="{StaticResource Button.Confirm}"/>
         </Grid>
      </Grid>
   </Grid>

-</local:EgtWindow>
+</local:EffectorWindow>
@@ -3,6 +3,12 @@

   Friend Event m_CloseWindow(bDialogResult As Boolean)

+   Public ReadOnly Property sTitle As String
+      Get
+         Return EgtMsg(1101)
+      End Get
+   End Property
+
   Private m_nCopyNumber As Integer
   Public ReadOnly Property nCopyNumber As Integer
      Get
@@ -15,12 +21,34 @@
      End Get
      Set(value As String)
         If Not Integer.TryParse(value, m_nCopyNumber) Then
-            MessageBox.Show("Valore non impostabile come quantita' di porte!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+            MessageBox.Show(EgtMsg(1103), EgtMsg(1051), MessageBoxButton.OK, MessageBoxImage.Error)
            NotifyPropertyChanged(sCopyNumber)
         End If
      End Set
   End Property

+#Region "Messages"
+
+   Public ReadOnly Property sCopyNumberMsg As String
+      Get
+         Return EgtMsg(1102)
+      End Get
+   End Property
+
+   Public ReadOnly Property sOkMsg As String
+      Get
+         Return EgtMsg(1001)
+      End Get
+   End Property
+
+   Public ReadOnly Property sCancelMsg As String
+      Get
+         Return EgtMsg(1002)
+      End Get
+   End Property
+
+#End Region    ' Messages
+
   ' Definizione comandi
   Private m_cmdOk As ICommand
   Private m_cmdCancel As ICommand
@@ -13,9 +13,9 @@ Imports System.Windows

 <Assembly: AssemblyTitle("Effector.Plugin.Lib")>
 <Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("Windows User")>
+<Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("Effector.Plugin.Lib")>
-<Assembly: AssemblyCopyright("Copyright @ Windows User 2025")>
+<Assembly: AssemblyCopyright("Copyright @ 2024-2025 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")> 
 <Assembly: ComVisible(false)>

@@ -52,5 +52,5 @@ Imports System.Windows
 '      Revision
 '

-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("2.7.8.1")>
+<Assembly: AssemblyFileVersion("2.7.8.1")>
@@ -1,14 +1,15 @@
-<local:EgtWindow x:Class="ProcessManagerV"
+<EgwWPFBaseLib:EgtWindow x:Class="ProcessManagerV"
                 xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                 xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
                 xmlns:local="clr-namespace:Effector.Plugin.Lib"
+                 xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
                 TitleBarHeight="30"
                 WindowStartupLocation="CenterOwner"
                 ShowInTaskbar="False"
                 SizeToContent="WidthAndHeight">
   <Grid>
      <Grid.RowDefinitions>
-         <RowDefinition Height="{Binding TitleBarHeight, RelativeSource={RelativeSource AncestorType={x:Type local:EgtWindow}}}"/>
+         <RowDefinition Height="{Binding TitleBarHeight, RelativeSource={RelativeSource AncestorType={x:Type EgwWPFBaseLib:EgtWindow}}}"/>
         <RowDefinition Height="1*"/>
      </Grid.RowDefinitions>
      <local:TitleBar/>
@@ -64,4 +65,4 @@

      </StackPanel>
   </Grid>
-</local:EgtWindow>
+</EgwWPFBaseLib:EgtWindow>
@@ -1,56 +1,425 @@
 <ResourceDictionary xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
                    xmlns:sys="clr-namespace:System;assembly=mscorlib"
-                    xmlns:local="clr-namespace:Effector.Plugin.Lib">
+                    xmlns:local="clr-namespace:Effector.Plugin.Lib"
+                    xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib">

-   <local:CaptionHeightConverter x:Key="CaptionHeightConverter"/>
+   <EgwWPFBaseLib:CaptionHeightConverter x:Key="CaptionHeightConverter"/>
   
-   <Style TargetType="{x:Type local:EgtWindow}" BasedOn="{StaticResource {x:Type Window}}">
-      <Setter Property="WindowChrome.WindowChrome">
-         <Setter.Value>
-            <WindowChrome CaptionHeight="{Binding TitleBarHeight, RelativeSource={RelativeSource AncestorType={x:Type local:EgtWindow}}}" 
-                          GlassFrameThickness="0"
-                          CornerRadius="0"
-                          ResizeBorderThickness="{x:Static SystemParameters.WindowResizeBorderThickness}"/>
-         </Setter.Value>
-      </Setter>
+   <!--#region COLORS -->
+   
+   <!--#e8eef5-->
+   <Color x:Key="Effector_LightBlue_Color" R="232" G="238" B="245" A="255"/>
+   <SolidColorBrush x:Key="Effector_LightBlue" Color="{StaticResource Effector_LightBlue_Color}" />
+   <!--#afc5d6-->
+   <Color x:Key="Effector_Blue_Color" R="175" G="197" B="214" A="255"/>
+   <SolidColorBrush x:Key="Effector_Blue" Color="{StaticResource Effector_Blue_Color}" />
+   <!--#749fc4-->
+   <Color x:Key="Effector_DarkBlue_Color" R="116" G="159" B="196" A="255"/>
+   <SolidColorBrush x:Key="Effector_DarkBlue" Color="{StaticResource Effector_DarkBlue_Color}" />
+
+
+   <!--#92bde3-->
+   <Color x:Key="Effector_LightBlue_Status_Color" R="146" G="189" B="227" A="255"/>
+   <SolidColorBrush x:Key="Effector_LightBlue_Status" Color="{StaticResource Effector_LightBlue_Status_Color}" />
+   <!--#5682a6-->
+   <Color x:Key="Effector_Blue_Status_Color" R="86" G="130" B="166" A="255"/>
+   <SolidColorBrush x:Key="Effector_Blue_Status" Color="{StaticResource Effector_Blue_Status_Color}" />
+   <!--#cd5c5c-->
+   <Color x:Key="Effector_Red_Status_Color" R="205" G="92" B="92" A="255"/>
+   <SolidColorBrush x:Key="Effector_Red_Status" Color="{StaticResource Effector_Red_Status_Color}" />
+   <!--#b1cbaa-->
+   <Color x:Key="Effector_Green_Status_Color" R="177" G="203" B="170" A="255"/>
+   <SolidColorBrush x:Key="Effector_Green_Status" Color="{StaticResource Effector_Green_Status_Color}" />
+   <!--#9c9c9c-->
+   <Color x:Key="Effector_Gray_Status_Color" R="156" G="156" B="156" A="255"/>
+   <SolidColorBrush x:Key="Effector_Gray_Status" Color="{StaticResource Effector_Gray_Status_Color}" />
+   <!--#ffd932-->
+   <Color x:Key="Effector_Yellow_Status_Color" R="255" G="217" B="50" A="255"/>
+   <SolidColorBrush x:Key="Effector_Yellow_Status" Color="{StaticResource Effector_Yellow_Status_Color}" />
+
+   <!--#6398c7-->
+   <Color x:Key="Effector_LightBlue_SelStatus_Color" R="99" G="152" B="199" A="255"/>
+   <SolidColorBrush x:Key="Effector_LightBlue_SelStatus" Color="{StaticResource Effector_LightBlue_SelStatus_Color}" />
+   <!--#4b677e-->
+   <Color x:Key="Effector_Blue_SelStatus_Color" R="75" G="103" B="126" A="255"/>
+   <SolidColorBrush x:Key="Effector_Blue_SelStatus" Color="{StaticResource Effector_Blue_SelStatus_Color}" />
+   <!--#a94444-->
+   <Color x:Key="Effector_Red_SelStatus_Color" R="169" G="68" B="68" A="255"/>
+   <SolidColorBrush x:Key="Effector_Red_SelStatus" Color="{StaticResource Effector_Red_SelStatus_Color}" />
+   <!--#89aa81-->
+   <Color x:Key="Effector_Green_SelStatus_Color" R="137" G="170" B="129" A="255"/>
+   <SolidColorBrush x:Key="Effector_Green_SelStatus" Color="{StaticResource Effector_Green_SelStatus_Color}" />
+   <!--#7d7d7d-->
+   <Color x:Key="Effector_Gray_SelStatus_Color" R="125" G="125" B="125" A="255"/>
+   <SolidColorBrush x:Key="Effector_Gray_SelStatus" Color="{StaticResource Effector_Gray_SelStatus_Color}" />
+   <!--#dcb718-->
+   <Color x:Key="Effector_Yellow_SelStatus_Color" R="220" G="183" B="24" A="255"/>
+   <SolidColorBrush x:Key="Effector_Yellow_SelStatus" Color="{StaticResource Effector_Yellow_SelStatus_Color}" />
+   <!--#e5ebf1-->
+   <Color x:Key="Effector_White_SelStatus_Color" R="229" G="235" B="241" A="255"/>
+   <SolidColorBrush x:Key="Effector_White_SelStatus" Color="{StaticResource Effector_Yellow_SelStatus_Color}" />
+
+   <!--#endregion COLORS-->
+
+   <!--#region USERCONTROL -->
+
+   <!--#region Button-->
+
+   <!--Colori default dei controlli-->
+   <SolidColorBrush x:Key="Button.Static.Background" Color="#FFDDDDDD"/>
+   <SolidColorBrush x:Key="Button.Static.Border" Color="#FF707070"/>
+   <SolidColorBrush x:Key="Button.MouseOver.Background" Color="#FFBEE6FD"/>
+   <SolidColorBrush x:Key="Button.MouseOver.Border" Color="#FF3C7FB1"/>
+   <SolidColorBrush x:Key="Button.Pressed.Background" Color="#FFC4E5F6"/>
+   <SolidColorBrush x:Key="Button.Pressed.Border" Color="#FF2C628B"/>
+   <SolidColorBrush x:Key="Button.Disabled.Background" Color="#FFF4F4F4"/>
+   <SolidColorBrush x:Key="Button.Disabled.Border" Color="#FFADB2B5"/>
+   <SolidColorBrush x:Key="Button.Disabled.Foreground" Color="#FF838383"/>
+
+   <Style TargetType="{x:Type Button}">
+      <Setter Property="FocusVisualStyle" Value="{StaticResource FocusVisual}"/>
+      <Setter Property="Background" Value="{StaticResource Button.Static.Background}"/>
+      <Setter Property="BorderBrush" Value="{StaticResource Button.Static.Border}"/>
+      <Setter Property="Foreground" Value="{DynamicResource {x:Static SystemColors.ControlTextBrushKey}}"/>
+      <Setter Property="BorderThickness" Value="1"/>
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="Padding" Value="1"/>
      <Setter Property="Template">
         <Setter.Value>
-            <ControlTemplate TargetType="{x:Type Window}">
-               <Border BorderThickness="0"
-                       BorderBrush="LightGray"
-                       Background="{TemplateBinding Background}">
-                  <ContentPresenter Grid.Row="1" 
-                                    Content="{TemplateBinding Content}"/>
+            <ControlTemplate TargetType="{x:Type Button}">
+               <Border x:Name="border" Background="{TemplateBinding Background}" BorderBrush="{TemplateBinding BorderBrush}" BorderThickness="{TemplateBinding BorderThickness}" SnapsToDevicePixels="true">
+                  <ContentPresenter x:Name="contentPresenter" Focusable="False" HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" Margin="{TemplateBinding Padding}" RecognizesAccessKey="True" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
               </Border>
-            </ControlTemplate>
-         </Setter.Value>
-      </Setter>
-      <Style.Triggers>
-         <Trigger Property="WindowState" Value="Maximized">
-            <Setter Property="WindowChrome.WindowChrome">
-               <Setter.Value>
-                  <WindowChrome CaptionHeight="{Binding TitleBarHeight, RelativeSource={RelativeSource AncestorType={x:Type local:EgtWindow}}, Converter={StaticResource CaptionHeightConverter}}" 
-                          GlassFrameThickness="0"
-                          CornerRadius="0"
-                          ResizeBorderThickness="{x:Static SystemParameters.WindowResizeBorderThickness}"/>
-               </Setter.Value>
-            </Setter>
-            <Setter Property="Template">
-               <Setter.Value>
-                  <ControlTemplate TargetType="{x:Type Window}">
-                     <!--bordo necessario per evitare la parte che esce dallo schermo-->
-                     <Border BorderThickness="7"
-                             BorderBrush="LightGray"
-                             Background="{TemplateBinding Background}">
-                        <ContentPresenter Grid.Row="1"
-                                          Content="{TemplateBinding Content}"/>
-                     </Border>
-                  </ControlTemplate>
-               </Setter.Value>
-            </Setter>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="IsDefaulted" Value="true">
+                     <Setter Property="BorderBrush" TargetName="border" Value="{DynamicResource {x:Static SystemColors.HighlightBrushKey}}"/>
                  </Trigger>
+                  <Trigger Property="IsMouseOver" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.MouseOver.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.MouseOver.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsPressed" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Pressed.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Pressed.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsEnabled" Value="false">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Disabled.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Disabled.Border}"/>
+                     <Setter Property="TextElement.Foreground" TargetName="contentPresenter" Value="{StaticResource Button.Disabled.Foreground}"/>
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <Style x:Key="Button.EffectorWindow.TitleBar" TargetType="{x:Type Button}">
+      <Setter Property="Foreground" Value="White" />
+      <Setter Property="Padding" Value="0" />
+      <Setter Property="WindowChrome.IsHitTestVisibleInChrome" Value="True" />
+      <Setter Property="IsTabStop" Value="False" />
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="{x:Type Button}">
+               <Border x:Name="border"
+					        Background="Transparent"
+					        BorderThickness="0"
+					        SnapsToDevicePixels="true">
+                  <ContentPresenter x:Name="contentPresenter"
+						                  Margin="0"
+						                  HorizontalAlignment="Center"
+						                  VerticalAlignment="Center"
+						                  Focusable="False"
+						                  RecognizesAccessKey="True" />
+               </Border>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="IsMouseOver" Value="true">
+                     <Setter TargetName="border" Property="Background" Value="{DynamicResource MouseOverOverlayBackgroundBrush}" />
+                  </Trigger>
+                  <Trigger Property="IsPressed" Value="true">
+                     <Setter TargetName="border" Property="Background" Value="{DynamicResource PressedOverlayBackgroundBrush}" />
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <Style x:Key="Test_Button" TargetType="Button">
+      <Setter Property="Background" Value="Red" />
+      <Setter Property="Foreground" Value="White" />
+      <Setter Property="BorderBrush" Value="DarkRed" />
+      <Setter Property="BorderThickness" Value="5" />
+      <Setter Property="Height" Value="50" />
+      <Setter Property="Width" Value="200" />
+   </Style>
+
+   <Style x:Key="Button.DoorList" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
+      <Setter Property="Height" Value="40"/>
+      <Setter Property="Background" Value="Transparent"/>
+      <Setter Property="BorderThickness" Value="0"/>
+      <Setter Property="Padding" Value="2"/>
+   </Style>
+
+   <Style x:Key="Button.Confirm" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
+      <Setter Property="Height" Value="30"/>
+      <Setter Property="Width" Value="70"/>
+      <Setter Property="Foreground" Value="White"/>
+      <Setter Property="FontSize" Value="12"/>
+      <Setter Property="FontWeight" Value="Regular"/>
+      <Setter Property="FontFamily" Value="/Resources/Fonts/#Roboto"/>
+      <Setter Property="Background" Value="{StaticResource Effector_DarkBlue}"/>
+      <Setter Property="BorderThickness" Value="0"/>
+      <Setter Property="Padding" Value="10,5,10,5"/>
+   </Style>
+
+   <!--#endregion Button-->
+
+   <!--#region Image-->
+
+   <Style x:Key="Button.Image.DoorList" TargetType="{x:Type Image}">
+      <Setter Property="Stretch" Value="Uniform" />
+   </Style>
+
+   <!--#endregion Image-->
+
+   <!--#region TextBlock-->
+
+   <Style x:Key="TextBlock.DataGridTextColumn.DoorList" TargetType="{x:Type TextBlock}">
+      <Setter Property="TextAlignment" Value="Center"/>
+      <Setter Property="VerticalAlignment" Value="Center"/>
+   </Style>
+
+   <Style x:Key="TextBlock.MultipleCopy" TargetType="{x:Type TextBlock}">
+      <Setter Property="FontSize" Value="12"/>
+      <Setter Property="FontWeight" Value="Regular"/>
+      <Setter Property="FontFamily" Value="/Resources/Fonts/#Roboto"/>
+      <Setter Property="VerticalAlignment" Value="Center"/>
+   </Style>
+
+   <!--#endregion TextBlock-->
+
+   <!--#region TextBox-->
+
+   <Style x:Key="TextBox.DataGridTextColumn.DoorList" TargetType="{x:Type TextBox}">
+      <Setter Property="TextAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+   </Style>
+
+   <Style x:Key="TextBox.MultipleCopy" TargetType="{x:Type TextBox}">
+      <Setter Property="TextAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="FontSize" Value="12"/>
+      <Setter Property="FontWeight" Value="Regular"/>
+      <Setter Property="FontFamily" Value="/Resources/Fonts/#Roboto"/>
+      <Setter Property="VerticalAlignment" Value="Center"/>
+   </Style>
+
+   <!--#endregion TextBox-->
+
+   <!--#region ComboBox-->
+   
+   <Style x:Key="ComboBox.DataGridTemplateColumn.DoorList" TargetType="{x:Type ComboBox}">
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="ItemContainerStyle">
+         <Setter.Value>
+            <Style TargetType="{x:Type ComboBoxItem}">
+               <Setter Property="HorizontalContentAlignment" Value="Left"/>
+            </Style>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <!--#endregion ComboBox-->
+
+   <!--#region DataGridRow-->
+
+   <Style x:Key="RowDataGrid_CustomHighLight" TargetType="{x:Type DataGridRow}">
+      <Setter Property="BorderBrush" Value="LightGray" />
+      <Style.Triggers>
+         <Trigger Property="IsSelected" Value="True">
+            <Setter Property="BorderThickness" Value="2,2,2,2" />
+            <Setter Property="Padding" Value="0,0,0,0" />
+            <Setter Property="Margin" Value="-2,0,-2,0" />
+            <Setter Property="Foreground" Value="Blue" />
+         </Trigger>
+      </Style.Triggers>
+      <Style.Resources>
+         <SolidColorBrush x:Key="{x:Static SystemColors.HighlightBrushKey}" Color="Transparent" />
+         <SolidColorBrush x:Key="{x:Static SystemColors.HighlightTextBrushKey}" Color="Black" />
+         <SolidColorBrush x:Key="{x:Static SystemColors.InactiveSelectionHighlightBrushKey}" Color="Transparent" />
+         <SolidColorBrush x:Key="{x:Static SystemColors.InactiveSelectionHighlightTextBrushKey}" Color="Black" />
+      </Style.Resources>
+   </Style>
+
+   <!--#endregion DataGridRow-->
+
+   <!--#endregion USERCONTROL-->
+   
+   <!--#region CUSTOMCONTROLS -->
+
+   <Grid x:Key="EffectorWindow.Path.Maximize">
+      <Path Width="46"
+			   Height="32"
+			   Data="M 18.5,12.5 H 25.5 V 19.5 H 18.5 Z M 20.5,12.5 V 10.5 H 27.5 V 17.5 H 25.5"
+			   Stroke="{Binding Path=Foreground,
+			                    RelativeSource={RelativeSource AncestorType={x:Type Button}}}"
+			   StrokeThickness="1" />
+   </Grid>
+   <Grid x:Key="EffectorWindow.Path.Normal">
+      <Path Width="46"
+			   Height="32"
+			   Data="M 18.5,10.5 H 27.5 V 19.5 H 18.5 Z"
+			   Stroke="{Binding Path=Foreground,
+			                    RelativeSource={RelativeSource AncestorType={x:Type Button}}}"
+			   StrokeThickness="1" />
+   </Grid>
+
+   <ControlTemplate x:Key="EffectorWindow.ControlTemplate.WithTitleBar" TargetType="{x:Type EgwWPFBaseLib:EgtWindow}">
+      <Border BorderThickness="{TemplateBinding BorderThickness}"
+              BorderBrush="LightGray"
+              Background="{TemplateBinding Background}">
+         <Grid>
+            <Grid.RowDefinitions>
+               <RowDefinition Height="{Binding TitleBarHeight, RelativeSource={RelativeSource AncestorType={x:Type local:EffectorWindow}}}"/>
+               <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="Auto" />
+                  <ColumnDefinition Width="Auto" />
+                  <ColumnDefinition Width="*" />
+                  <ColumnDefinition Width="Auto" />
+                  <ColumnDefinition Width="Auto" />
+                  <ColumnDefinition Width="Auto" />
+               </Grid.ColumnDefinitions>
+               <Border Grid.Column="0"
+                       Grid.ColumnSpan="6"
+                       BorderThickness="0"
+                       BorderBrush="{StaticResource Effector_Blue}"
+                       Background="{StaticResource Effector_Blue}"/>
+               <Image Grid.Column="0"
+		                MinWidth="{Binding ActualHeight, RelativeSource={RelativeSource Self}}"
+		                Source="{TemplateBinding Icon}"/>
+               <ContentControl Grid.Column="1"
+                               Content="{TemplateBinding TitlePanel}"/>
+               <TextBlock Grid.Column="2"
+		                    Margin="4 0 0 0"
+		                    VerticalAlignment="Center"
+                          HorizontalAlignment="Center"
+		                    FontSize="14"
+		                    Text="{TemplateBinding Title}">
+                  <TextBlock.Style>
+                     <Style TargetType="TextBlock">
+                        <Style.Triggers>
+                           <DataTrigger Binding="{Binding IsActive, RelativeSource={RelativeSource AncestorType=Window}}" Value="False">
+                              <Setter Property="Foreground" Value="{DynamicResource WindowTitleBarInactiveText}" />
+                           </DataTrigger>
+                        </Style.Triggers>
+                     </Style>
+                  </TextBlock.Style>
+               </TextBlock>
+               <Button Grid.Column="3"
+                       Name="PART_MinimizeBtn"
+		                 RenderOptions.EdgeMode="Aliased"
+		                 Style="{StaticResource Button.EffectorWindow.TitleBar}">
+                  <Path Width="46"
+			               Height="32"
+			               Data="M 18,15 H 28"
+			               Stroke="{Binding Path=Foreground,
+							                    RelativeSource={RelativeSource AncestorType={x:Type Button}}}"
+			               StrokeThickness="1" />
+               </Button>
+               <Button Grid.Column="4"
+                       Name="PART_MaximizeRestoreBtn">
+                  <Button.Style>
+                     <Style TargetType="Button" BasedOn="{StaticResource Button.EffectorWindow.TitleBar}">
+                        <Style.Triggers>
+                           <DataTrigger Binding="{Binding WindowState, RelativeSource={RelativeSource FindAncestor, AncestorType={x:Type local:EffectorWindow}}}" Value="Maximized">
+                              <Setter Property="Content" Value="{StaticResource EffectorWindow.Path.Maximize}" />
+                           </DataTrigger>
+                           <DataTrigger Binding="{Binding WindowState, RelativeSource={RelativeSource FindAncestor, AncestorType={x:Type local:EffectorWindow}}}" Value="Normal">
+                              <Setter Property="Content" Value="{StaticResource EffectorWindow.Path.Normal}" />
+                           </DataTrigger>
+                        </Style.Triggers>
+                     </Style>
+                  </Button.Style>
+               </Button>
+               <Button Grid.Column="5"
+                       Name="PART_CloseBtn"
+		                 Style="{StaticResource Button.EffectorWindow.TitleBar}">
+                  <Path Width="46"
+			               Height="32"
+			               Data="M 18,11 27,20 M 18,20 27,11"
+			               Stroke="{Binding Path=Foreground,
+			               				     RelativeSource={RelativeSource AncestorType={x:Type Button}}}"
+			               StrokeThickness="1" />
+               </Button>
+            </Grid>
+            <ContentPresenter Grid.Row="1" 
+                              Content="{TemplateBinding Content}"/>
+         </Grid>
+      </Border>
+   </ControlTemplate>
+
+   <ControlTemplate x:Key="EffectorWindow.ControlTemplate.WithoutTitleBar" TargetType="{x:Type EgwWPFBaseLib:EgtWindow}">
+      <Border BorderThickness="{TemplateBinding BorderThickness}"
+              BorderBrush="LightGray"
+              Background="Red">
+         <ContentPresenter Grid.Row="1" 
+                           Content="{TemplateBinding Content}"/>
+      </Border>
+   </ControlTemplate>
+
+   <Style TargetType="{x:Type local:EffectorWindow}" BasedOn="{StaticResource {x:Type EgwWPFBaseLib:EgtWindow}}">
+      <Setter Property="Background" Value="White"/>
+      <Setter Property="TitleBarHeight" Value="45"/>
+      <Setter Property="BorderThickness" Value="0"/>
+      <Setter Property="IsMinimizable" Value="True"/>
+      <Setter Property="Icon" Value="pack://application:,,,/Effector.Plugin.Lib;Component/Resources/Effector.ico"/>
+      <Setter Property="WindowChrome.WindowChrome">
+         <Setter.Value>
+            <WindowChrome CaptionHeight="{Binding TitleBarHeight, RelativeSource={RelativeSource AncestorType={x:Type EgwWPFBaseLib:EgtWindow}}}" 
+                          GlassFrameThickness="0"
+                          CornerRadius="0"
+                          ResizeBorderThickness="{x:Static SystemParameters.WindowResizeBorderThickness}"/>
+         </Setter.Value>
+      </Setter>
+      <Setter Property="Template" Value="{StaticResource EffectorWindow.ControlTemplate.WithTitleBar}"/>
+      <Style.Triggers>
+         <Trigger Property="WindowStyle" Value="None">
+            <Setter Property="Template" Value="{StaticResource EffectorWindow.ControlTemplate.WithoutTitleBar}"/>
+         </Trigger>
+         <Trigger Property="WindowState" Value="Maximized">
+            <Setter Property="BorderThickness" Value="7"/>
+            <!--da impostare perche' lo perde!-->
+            <Setter Property="Template" Value="{StaticResource EffectorWindow.ControlTemplate.WithTitleBar}"/>
+         </Trigger>
+         <MultiTrigger>
+            <MultiTrigger.Conditions>
+               <Condition Property="WindowState" Value="Maximized"/>
+               <Condition Property="WindowStyle" Value="None"/>
+            </MultiTrigger.Conditions>
+            <Setter Property="BorderThickness" Value="0"/>
+            <Setter Property="Template" Value="{StaticResource EffectorWindow.ControlTemplate.WithoutTitleBar}"/>
+         </MultiTrigger>
      </Style.Triggers>
   </Style>

+   <Style x:Key="EffectorWindow.Dialog" TargetType="{x:Type local:EffectorWindow}">
+      <Setter Property="IsMinimizable" Value="False"/>
+      <Setter Property="IsResizable" Value="False"/>
+   </Style>
+
+   <Style x:Key="EffectorWindow.Dialog.NoClose" TargetType="{x:Type local:EffectorWindow}">
+      <Setter Property="IsMinimizable" Value="False"/>
+      <Setter Property="IsResizable" Value="False"/>
+      <Setter Property="IsClosable" Value="False"/>
+   </Style>
+
+   <!--#endregion CUSTOMCONTROLS-->
+
 </ResourceDictionary>
@@ -18,4 +18,21 @@
 		    MinWidth="{Binding ActualHeight, RelativeSource={RelativeSource Self}}"
 		    Source="/Resources/Effector.ico"/>
   <ContentControl Grid.Column="1"/>
+   <TextBlock Grid.Column="2"
+		              Margin="4 0 0 0"
+		              VerticalAlignment="Center"
+                    HorizontalAlignment="Center"
+		              FontSize="14"
+		              Text="{Binding sTitle}">
+      <TextBlock.Style>
+         <Style TargetType="TextBlock">
+            <Style.Triggers>
+               <DataTrigger Binding="{Binding IsActive, RelativeSource={RelativeSource AncestorType=Window}}" Value="False">
+                  <Setter Property="Foreground" Value="{DynamicResource WindowTitleBarInactiveText}" />
+               </DataTrigger>
+            </Style.Triggers>
+         </Style>
+      </TextBlock.Style>
+   </TextBlock>
+
 </Grid>
@@ -1,3 +1,39 @@
 Public Class TitleBar

+   ' Proprietà che permette di attivare e disattivare lo spostamento della finestra
+   Public Shared ReadOnly TitleProperty As DependencyProperty = DependencyProperty.Register("Title", GetType(String), GetType(TitleBar), New PropertyMetadata(""))
+   Public Property Title() As Boolean
+      Get
+         Return CBool(GetValue(TitleProperty))
+      End Get
+      Set(ByVal value As Boolean)
+         SetValue(TitleProperty, value)
+      End Set
+   End Property
+
+   ' Proprietà che permette di attivare e disattivare lo spostamento della finestra
+   Public Shared ReadOnly IsMinimizableProperty As DependencyProperty = DependencyProperty.Register("IsMinimizable", GetType(Boolean), GetType(TitleBar), New PropertyMetadata(True))
+   Public Property IsMinimizable() As Boolean
+      Get
+         Return CBool(GetValue(IsMinimizableProperty))
+      End Get
+      Set(ByVal value As Boolean)
+         SetValue(IsMinimizableProperty, value)
+      End Set
+   End Property
+
+   ' Proprietà che permette di attivare e disattivare il bottone di chiusura della finestra
+   Public Shared ReadOnly IsClosableProperty As DependencyProperty = DependencyProperty.Register("IsClosable", GetType(Boolean), GetType(TitleBar), New PropertyMetadata(True))
+   Public Property IsClosable() As Boolean
+      Get
+         Return CBool(GetValue(IsClosableProperty))
+      End Get
+      Set(ByVal value As Boolean)
+         SetValue(IsClosableProperty, value)
+         If Not value Then
+            IsMinimizable = False
+         End If
+      End Set
+   End Property
+
 End Class
@@ -0,0 +1,19 @@
+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
+         Return dtValue.ToString("T")
+      Else
+         Return dtValue.ToString("d") & " " & dtValue.ToString("T")
+      End If
+   End Function
+
+   Public Function ConvertDateTimeToLuaInteger(dtValue As DateTime) As Integer
+      Return Math.Floor((dtValue.ToUniversalTime - dtLuaMinValue).TotalSeconds)
+   End Function
+
+End Module
@@ -0,0 +1,80 @@
+Imports System.Runtime.InteropServices
+Imports System.Security
+
+Public Module EgtInterface
+
+#If DEBUG Then
+   Const EgtIntDll32 As String = "EgtBasisD32.dll"
+#Else
+   Const EgtIntDll32 As String = "EgtBasisR32.dll"
+#End If
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetKey"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtSetKey(sKey As String) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyLevel"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtGetKeyLevel(nProd As Integer, nVer As Integer, nLev As Integer, ByRef nKLev As Integer) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyOptions"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtGetKeyOptions(nProd As Integer, nVer As Integer, nLev As Integer,
+                                    ByRef nOpt1 As UInteger, ByRef nOpt2 As UInteger) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyLeftDays"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtGetKeyLeftDays(ByRef nLeftDays As Integer) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyAssLeftDays"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtGetKeyAssLeftDays(ByRef nAssLeftDays As Integer) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetKeyOptLeftDays"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtGetKeyOptLeftDays(ByRef nOptLeftDays As Integer) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtFreeMemory"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtFreeMemory(sB As IntPtr) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLoadMessages"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtLoadMessages(sMsgFilePath As String) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetMsg"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtGetMsg_32(nId As Integer) As IntPtr
+   End Function
+   Public Function EgtMsg(nId As Integer) As String
+      Return Marshal.PtrToStringUni(EgtGetMsg_32(nId))
+      ' Non è necessario liberare la memoria nativa perchè usa un buffer statico
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitLogger"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtInitLogger(nDebug As Integer, sLogFilePath As String) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtOutLog"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtOutLog(sMsg As String, nDebugLevel As Integer) As Boolean
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetStringUtf8FromIni"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtGetStringUtf8FromIni_32(sSec As String, sKey As String, sDef As String, ByRef sVal As IntPtr, sIniFile As String) As Boolean
+   End Function
+   Public Function EgtGetStringUtf8FromIni(sSec As String, sKey As String, sDef As String, ByRef sVal As String, sIniFile As String) As Boolean
+      Dim psVal As IntPtr
+      Dim bOk As Boolean = EgtGetStringUtf8FromIni_32(sSec, sKey, sDef, psVal, sIniFile)
+      If bOk Then
+         sVal = Marshal.PtrToStringUni(psVal)
+         EgtFreeMemory(psVal)
+      Else
+         sVal = String.Empty
+      End If
+      Return bOk
+   End Function
+
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtWriteStringUtf8ToIni"), SuppressUnmanagedCodeSecurity()>
+   Public Function EgtWriteStringUtf8toIni(sSec As String, sKey As String, sVal As String, sIniFile As String) As Boolean
+   End Function
+
+End Module
@@ -38,25 +38,19 @@ Public Module IniFile
      Return GetPrivateProfileString(IpAppName, IpKeyName, IpDefault, IpString, m_sPath)
   End Function

-   'Public Function GetPrivateProfileLanguage(lpAppName As String, lpKeyName As String, lpFileName As String) As Language
-   '   Dim sVal As String = String.Empty
-   '   GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)
-   '   Dim sItems() As String = sVal.Split(",".ToCharArray)
-   '   If sItems.Count() = 2 Then
-   '      Return New Language(sItems(0), sItems(1))
-   '   End If
-   '   Return Nothing
-   'End Function
+   Public Function GetPrivateProfileLanguage(lpAppName As String, lpKeyName As String, lpFileName As String) As Language
+      Dim sVal As String = String.Empty
+      GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)
+      Dim sItems() As String = sVal.Split(",".ToCharArray)
+      If sItems.Count() = 2 Then
+         Return New Language(sItems(0), sItems(1))
+      End If
+      Return Nothing
+   End Function

-   'Public Function GetMainPrivateProfileLanguage(lpAppName As String, lpKeyName As String) As Language
-   '   Dim sVal As String = String.Empty
-   '   GetMainPrivateProfileString(lpAppName, lpKeyName, "", sVal)
-   '   Dim sItems() As String = sVal.Split(",".ToCharArray)
-   '   If sItems.Count() = 2 Then
-   '      Return New Language(sItems(0), sItems(1))
-   '   End If
-   '   Return Nothing
-   'End Function
+   Public Function GetMainPrivateProfileLanguage(lpAppName As String, lpKeyName As String) As Language
+      Return GetPrivateProfileLanguage(lpAppName, lpKeyName, m_sPath)
+   End Function

   Public Function WriteMainPrivateProfileString(IpAppName As String, IpKeyName As String, ByRef IpString As String) As Boolean
      Return WritePrivateProfileString(IpAppName, IpKeyName, IpString, m_sPath)
@@ -0,0 +1,22 @@
+Public Class Language
+
+   Private m_sName As String
+   Public ReadOnly Property Name As String
+      Get
+         Return m_sName
+      End Get
+   End Property
+
+   Private m_sFilePath As String
+   Public ReadOnly Property FilePath As String
+      Get
+         Return m_sFilePath
+      End Get
+   End Property
+
+   Sub New(sName As String, sFilePath As String)
+      m_sName = sName
+      m_sFilePath = sFilePath
+   End Sub
+
+End Class
@@ -38,26 +38,6 @@ Public Module PluginIniFile
      Return GetPrivateProfileString(IpAppName, IpKeyName, IpDefault, IpString, m_sPath)
   End Function

-   'Public Function GetPrivateProfileLanguage(lpAppName As String, lpKeyName As String, lpFileName As String) As Language
-   '   Dim sVal As String = String.Empty
-   '   GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)
-   '   Dim sItems() As String = sVal.Split(",".ToCharArray)
-   '   If sItems.Count() = 2 Then
-   '      Return New Language(sItems(0), sItems(1))
-   '   End If
-   '   Return Nothing
-   'End Function
-
-   'Public Function GetMainPrivateProfileLanguage(lpAppName As String, lpKeyName As String) As Language
-   '   Dim sVal As String = String.Empty
-   '   GetMainPrivateProfileString(lpAppName, lpKeyName, "", sVal)
-   '   Dim sItems() As String = sVal.Split(",".ToCharArray)
-   '   If sItems.Count() = 2 Then
-   '      Return New Language(sItems(0), sItems(1))
-   '   End If
-   '   Return Nothing
-   'End Function
-
   Public Function WritePluginPrivateProfileString(IpAppName As String, IpKeyName As String, ByRef IpString As String) As Boolean
      Return WritePrivateProfileString(IpAppName, IpKeyName, IpString, m_sPath)
   End Function
Author	SHA1	Message	Date
Emmanuele Sassi	97c2466628	- aggiornato stile finestra copia multipla - aggiornata versione	2025-08-06 11:09:52 +02:00
Emmanuele Sassi	6deabc6be5	- aggiunti EgtInterface e Language - modificata finestra Copia Multipla	2025-07-08 16:21:01 +02:00
Emmanuele Sassi	bdcda23197	- modifiche a finestra e data	2025-06-12 20:04:21 +02:00
Emmanuele Sassi	dcaef9eaa9	- aggiunta EffectorWindow con TitleBar - Utilizzata EffectorWindow per MultipleCopyWnd - Utilizzata BaseWindow per ProcessManagerV - aggiunto titolo a TitleBar - aggiunto modulo Converters	2025-02-26 15:01:11 +01:00
Emmanuele Sassi	54e2f27a44	- added EffectorWindow	2025-02-17 22:52:59 +01:00
Emmanuele Sassi	dd180b1128	Merge branch 'develop' of https://gitlab.steamware.net/egalware-supervisor/plugin/effector.plugin.lib into develop	2025-02-17 19:01:43 +01:00
Emmanuele Sassi	8540b37694	- eliminata view finestra inutilizzata	2025-02-17 19:01:39 +01:00