Egalware/EgtPHOTOLib
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtPHOTOLib 2.7j1 :

Browse Source 
- corretta gestione bordi fotografia.
This commit is contained in:
Dario Sassi
2025-10-16 20:05:02 +02:00
parent 309b1e1cbf
commit d52e9df483
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -58,5 +58,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.9.1")>
<Assembly: AssemblyFileVersion("2.7.9.1")>
<Assembly: AssemblyVersion("2.7.10.1")>
<Assembly: AssemblyFileVersion("2.7.10.1")>
ProjectSlab/DetailPage/DetailPageSlabVM.vb
+6 -3
View File
@@ -91,8 +91,9 @@ Public Class DetailPageSlabVM
EgtSetLevel(nPhGrpId, GDB_LV.SYSTEM)
EgtOutLog("LoadPhoto '" & sPath & "'")
' Carico la fotografia
Dim bOk As Boolean = EgtAddPhoto(PHOTO_NAME, sPath, ptOri, ptCen, dMMxPixel, nPhGrpId, New Point3d(0, 0, 0), New Point3d(m_TableDimX, m_TableDimY, 0)) <> GDB_ID.NULL
Return bOk
Dim nPhotoId As Integer = EgtAddPhoto(PHOTO_NAME, sPath, ptOri, ptCen, dMMxPixel, nPhGrpId,
New Point3d(ptOri.x, ptOri.y, 0), New Point3d(m_TableDimX, m_TableDimY, 0))
Return (nPhotoId <> GDB_ID.NULL)
End Function
Friend Function UpdatePhoto() As Boolean
@@ -146,7 +147,9 @@ Public Class DetailPageSlabVM
End If
EgtSetLevel(nPhGrpId, GDB_LV.SYSTEM)
' Carico la fotografia
Return EgtAddPhoto2(PHOTO_NAME, sPath, ptOri, ptCen, dDimX, dDimY, nPhGrpId, New Point3d(0, 0, 0), New Point3d(m_TableDimX, m_TableDimY, 0)) <> GDB_ID.NULL
Dim nNewPhotoId As Integer = EgtAddPhoto2(PHOTO_NAME, sPath, ptOri, ptCen, dDimX, dDimY, nPhGrpId,
New Point3d(ptOri.x, ptOri.y, 0), New Point3d(m_TableDimX, m_TableDimY, 0))
Return ( nNewPhotoId <> GDB_ID.NULL)
End Function
Private Function ReadAuxData(sPath As String,