- aggiunti EgtInterface e Language

- modificata finestra Copia Multipla
This commit is contained in:
Emmanuele Sassi
2025-07-08 16:21:01 +02:00
parent bdcda23197
commit 6deabc6be5
7 changed files with 150 additions and 44 deletions
@@ -9,14 +9,14 @@
SizeToContent="WidthAndHeight"
IsResizable="False"
IsMinimizable="False"
Title="Copia multipla"
IsClosable="False"
Title="{Binding sTitle}"
MinWidth="300">
<Grid>
<Grid.RowDefinitions>
<RowDefinition Height="1*"/>
<RowDefinition Height="Auto"/>
</Grid.RowDefinitions>
<!--<local:TitleBar/>-->
<Grid Grid.Row="1"
Margin="30,10">
<Grid.RowDefinitions>
@@ -28,7 +28,7 @@
<ColumnDefinition Width="Auto"/>
<ColumnDefinition Width="1*"/>
</Grid.ColumnDefinitions>
<TextBlock Text="Numero di copie"
<TextBlock Text="{Binding sCopyNumberMsg}"
Margin="0,0,5,0"
Style="{StaticResource TextBlock.MultipleCopy}"/>
<TextBox Grid.Column="1"
@@ -43,12 +43,12 @@
<ColumnDefinition Width="1*"/>
<ColumnDefinition Width="1*"/>
</Grid.ColumnDefinitions>
<Button Content="Ok"
<Button Content="{Binding sOkMsg}"
Command="{Binding Ok_Command}"
Margin="0,0,5,0"
Style="{StaticResource Button.Confirm}"/>
<Button Grid.Column="1"
Content="Annulla"
Content="{Binding sCancelMsg}"
Command="{Binding Cancel_Command}"
Margin="5,0,0,0"
Style="{StaticResource Button.Confirm}"/>
@@ -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