- rotazione nuovo pezzo secondo vista della macchina

- tooltip per parametri Q

EgtBEAMWALL.ViewerOptimizer/ItemParamList/PParameterListV.xaml

@@ -59,7 +59,9 @@
                   <Setter Property="Template">
                      <Setter.Value>
                         <ControlTemplate TargetType="{x:Type DataGridCell}">
-                           <TextBlock Text="{Binding RelativeSource={RelativeSource TemplatedParent}, Path=Content.Text}" TextTrimming="CharacterEllipsis">
+                           <TextBlock Text="{Binding RelativeSource={RelativeSource TemplatedParent}, Path=Content.Text}"
+                                      TextTrimming="CharacterEllipsis"
+                                      Margin="4,0,0,0">
                               <TextBlock.ToolTip>
                                  <ToolTip Visibility="{Binding RelativeSource={RelativeSource Self}, Path=PlacementTarget, Converter={StaticResource TrimToVisConverter}}">
                                     <ToolTip.Content>

EgtBEAMWALL.ViewerOptimizer/ItemParamList/QParameterListV.xaml

@@ -24,6 +24,7 @@
          </Style>
       </DataGrid.RowStyle>
       <DataGrid.Resources>
+         <EgtBEAMWALL:TrimmedTextBlockVisibilityConverter x:Key="TrimToVisConverter" />
          <!--Custom-->
          <DataGridTemplateColumn x:Key="colCUSTOM">
             <DataGridTemplateColumn.HeaderTemplate>
@@ -54,6 +55,32 @@
                   <TextBlock Text="{Binding Path=DataContext.Description_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
                </DataTemplate>
             </DataGridTextColumn.HeaderTemplate>
+            <DataGridTextColumn.CellStyle>
+               <Style TargetType="{x:Type DataGridCell}">
+                  <Setter Property="Template">
+                     <Setter.Value>
+                        <ControlTemplate TargetType="{x:Type DataGridCell}">
+                           <TextBlock Text="{Binding RelativeSource={RelativeSource TemplatedParent}, Path=Content.Text}" 
+                                      TextTrimming="CharacterEllipsis"
+                                      Margin="4,0,0,0">
+                              <TextBlock.ToolTip>
+                                 <ToolTip Visibility="{Binding RelativeSource={RelativeSource Self}, Path=PlacementTarget, Converter={StaticResource TrimToVisConverter}}">
+                                    <ToolTip.Content>
+                                       <TextBlock Text="{Binding RelativeSource={RelativeSource TemplatedParent}, Path=Content.Text}"/>
+                                    </ToolTip.Content>
+                                 </ToolTip>
+                              </TextBlock.ToolTip>
+                           </TextBlock>
+                        </ControlTemplate>
+                     </Setter.Value>
+                  </Setter>
+                  <Style.Triggers>
+                     <Trigger Property="IsSelected" Value="True">
+                        <Setter Property="Foreground" Value="Blue"/>
+                     </Trigger>
+                  </Style.Triggers>
+               </Style>
+            </DataGridTextColumn.CellStyle>
          </DataGridTextColumn>
          <!--Valore-->
          <DataGridTextColumn x:Key="colVALUE" Binding="{Binding sValue}" SortMemberPath="dValue">

EgtBEAMWALL.ViewerOptimizer/LeftPanel/LeftPanelVM.vb

@@ -664,6 +664,19 @@ Public Class LeftPanelVM
          If Not IsNothing(AddPartWndVM.sNAM) Then EgtBeamSetPartName(AddPartWndVM.sNAM)
          EgtBeamSetPartCount(AddPartWndVM.nCNT)
          EgtBeamSetPartBox(AddPartWndVM.dL, AddPartWndVM.dH, AddPartWndVM.dW)
+         ' se progetto pareti e vista ruotata
+         If nType = BWType.WALL AndAlso (CurrentMachine.ViewDir = 1 OrElse CurrentMachine.ViewDir = 3) Then
+            '' ruoto le pareti di 180 per raddrizzarle rispetto alla vista
+            'NewPart.Rotation(True, Map.refProjectVM.BTLStructureVM.nPROJTYPE, 180, False)
+            ' recupero il box del pezzo
+            Dim nBoxLayerId As Integer = EgtGetFirstNameInGroup(nNewPartId, "Box")
+            Dim b3Solid As New BBox3d
+            EgtGetBBoxGlob(nBoxLayerId, GDB_BB.STANDARD, b3Solid)
+            Dim bOk As Boolean = EgtRotate(nNewPartId, b3Solid.Center, Vector3d.Z_AX, 180, GDB_RT.GLOB)
+            If bOk Then
+               EgtSetInfo(nNewPartId, BTL_PRT_ROTATED, 180)
+            End If
+         End If
          ' aggiungo dati pezzo
          Dim NewPart As BTLPartM = BTLPartM.CreateBTLPart(nNewPartId)
          ' aggiungo pezzo alla lista