Merge remote-tracking branch 'origin/main' into Feature/Icarus

2022-09-27 17:20:42 +02:00
parent f84c491295 b285e3c8aa
commit c2b1d3e04d
1 changed files with 2 additions and 2 deletions
@@ -270,8 +270,8 @@ function RunCalcSolids.Exec()
                  --passo al gruppo di contorni successivo
                  nCrvGrpId = EgtGetNextName( nCrvGrpId, CONTOUR_GRP.."*") or GDB_ID.NULL
               end
-               EgtDraw()
-               if EgtProcessEvents( nIdx / #vLayIds * 100, 0) == 1 then
+               EgtDraw()               
+               if EgtProcessEvents( EgtIf( PRINT, 300, 0) + nIdx / #vLayIds * 100, 0) == 1 then
                  return 
               end
            end