From ac8a3885e2d95402c357dabb013aef0af7547d55 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Fri, 5 Sep 2014 07:47:15 +0000 Subject: [PATCH] EgtUILib 1.5i1 : - primo rilascio. --- EgtInterface.vb | 414 +++++++++++++++++++++++++++++ EgtUILib.sln | 26 ++ EgtUILib.vbproj | 298 +++++++++++++++++++++ My Project/Application.Designer.vb | 13 + My Project/Application.myapp | 10 + My Project/AssemblyInfo.vb | 46 ++++ My Project/Resources.Designer.vb | 63 +++++ My Project/Resources.resx | 117 ++++++++ My Project/Settings.Designer.vb | 73 +++++ My Project/Settings.settings | 7 + Resources/Pan.cur | Bin 0 -> 326 bytes Resources/Pointer.cur | Bin 0 -> 326 bytes Resources/Rotate.cur | Bin 0 -> 326 bytes Resources/ZoomWin.cur | Bin 0 -> 326 bytes Scene.Designer.vb | 29 ++ Scene.vb | 177 ++++++++++++ Settings.vb | 11 + btnLookFrom.Designer.vb | 160 +++++++++++ btnLookFrom.resx | 120 +++++++++ btnLookFrom.vb | 39 +++ btnRendering.Designer.vb | 127 +++++++++ btnRendering.resx | 120 +++++++++ btnRendering.vb | 28 ++ btnZoom.Designer.vb | 117 ++++++++ btnZoom.resx | 120 +++++++++ btnZoom.vb | 28 ++ cmdExec.Designer.vb | 57 ++++ cmdExec.vb | 26 ++ cmdExport.Designer.vb | 59 ++++ cmdExport.resx | 123 +++++++++ cmdExport.vb | 36 +++ cmdImport.Designer.vb | 59 ++++ cmdImport.resx | 123 +++++++++ cmdImport.vb | 39 +++ cmdNew.Designer.vb | 51 ++++ cmdNew.resx | 120 +++++++++ cmdNew.vb | 23 ++ cmdOpen.Designer.vb | 59 ++++ cmdOpen.resx | 123 +++++++++ cmdOpen.vb | 29 ++ cmdSave.Designer.vb | 59 ++++ cmdSave.resx | 123 +++++++++ cmdSave.vb | 27 ++ tsSceneMode.Designer.vb | 90 +++++++ tsSceneMode.resx | 169 ++++++++++++ tsSceneMode.vb | 33 +++ tsViewMode.Designer.vb | 120 +++++++++ tsViewMode.resx | 214 +++++++++++++++ tsViewMode.vb | 39 +++ 49 files changed, 3944 insertions(+) create mode 100644 EgtInterface.vb create mode 100644 EgtUILib.sln create mode 100644 EgtUILib.vbproj create mode 100644 My Project/Application.Designer.vb create mode 100644 My Project/Application.myapp create mode 100644 My Project/AssemblyInfo.vb create mode 100644 My Project/Resources.Designer.vb create mode 100644 My Project/Resources.resx create mode 100644 My Project/Settings.Designer.vb create mode 100644 My Project/Settings.settings create mode 100644 Resources/Pan.cur create mode 100644 Resources/Pointer.cur create mode 100644 Resources/Rotate.cur create mode 100644 Resources/ZoomWin.cur create mode 100644 Scene.Designer.vb create mode 100644 Scene.vb create mode 100644 Settings.vb create mode 100644 btnLookFrom.Designer.vb create mode 100644 btnLookFrom.resx create mode 100644 btnLookFrom.vb create mode 100644 btnRendering.Designer.vb create mode 100644 btnRendering.resx create mode 100644 btnRendering.vb create mode 100644 btnZoom.Designer.vb create mode 100644 btnZoom.resx create mode 100644 btnZoom.vb create mode 100644 cmdExec.Designer.vb create mode 100644 cmdExec.vb create mode 100644 cmdExport.Designer.vb create mode 100644 cmdExport.resx create mode 100644 cmdExport.vb create mode 100644 cmdImport.Designer.vb create mode 100644 cmdImport.resx create mode 100644 cmdImport.vb create mode 100644 cmdNew.Designer.vb create mode 100644 cmdNew.resx create mode 100644 cmdNew.vb create mode 100644 cmdOpen.Designer.vb create mode 100644 cmdOpen.resx create mode 100644 cmdOpen.vb create mode 100644 cmdSave.Designer.vb create mode 100644 cmdSave.resx create mode 100644 cmdSave.vb create mode 100644 tsSceneMode.Designer.vb create mode 100644 tsSceneMode.resx create mode 100644 tsSceneMode.vb create mode 100644 tsViewMode.Designer.vb create mode 100644 tsViewMode.resx create mode 100644 tsViewMode.vb diff --git a/EgtInterface.vb b/EgtInterface.vb new file mode 100644 index 0000000..36e7ca0 --- /dev/null +++ b/EgtInterface.vb @@ -0,0 +1,414 @@ +Imports System.Runtime.InteropServices + +Public Class EgtInterface + +Structure Point3d + Dim x, y, z As Double +End Structure + +#If PLATFORM = "x64" Then +#If DEBUG Then +Const EgtInterface As String = "EgtInterfaceD64.dll" +#Else +Const EgtInterface As String = "EgtInterfaceR64.dll" +#End If +#Else +#If DEBUG Then +Const EgtInterface As String = "EgtInterfaceD32.dll" +#Else +Const EgtInterface As String = "EgtInterfaceR32.dll" +#End If +#End If + +'API +'General + +Public Shared Function EgtInit(ByVal nDebug As Integer, ByVal sLogFile As String) As Boolean +End Function + + +Public Shared Function EgtExit() As Boolean +End Function + + +Public Shared Function EgtSetFont(ByVal sNfeFontDir As String, ByVal sDefaultFont As String) As Boolean +End Function + + +Public Shared Function EgtFreeMemory(ByVal sB As IntPtr) As Boolean +End Function + + +'GeomDB + +Public Shared Function EgtInitGeomDB() As Integer +End Function + + +Public Shared Function EgtSetDefaultMaterial(ByVal nCtx As Integer, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean +End Function + + +Public Shared Function EgtNewFile(ByVal nCtx As Integer) As Boolean +End Function + + +Public Shared Function EgtOpenFile(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtSaveFile(ByVal nCtx As Integer, ByVal sFilePath As String, ByVal nFlag As Integer) As Boolean +End Function + + +Public Shared Function EgtGetFileType(ByVal sFilePath As String) As Integer +End Function + + +Public Shared Function EgtImportDxf(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtImportStl(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtExportDxf(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtExportStl(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sFilePath As String) As Boolean +End Function + + +'GeomDB Objects + +Public Shared Function EgtExistsObj(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetFirstInGroup(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Integer +End Function + + +Public Shared Function EgtGetNext(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Public Shared Function EgtGetLastInGroup(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Integer +End Function + + +Public Shared Function EgtGetPrev(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Public Shared Function EgtGetType(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Private Shared Function EgtGetTitle(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psTitle As IntPtr) As Boolean +End Function +Public Shared Function EgtGetTitle(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sTitle As String) As Boolean + Dim psTitle As IntPtr + Dim bOk As Boolean = EgtGetTitle(nCtx, nId, psTitle) + sTitle = Marshal.PtrToStringUni(psTitle) + EgtFreeMemory(psTitle) + Return bOk +End Function + + +Private Shared Function EgtGroupDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +End Function +Public Shared Function EgtGroupDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sDump As String) As Boolean + Dim psDump As IntPtr + Dim bOk As Boolean = EgtGroupDump(nCtx, nId, psDump) + sDump = Marshal.PtrToStringUni(psDump) + EgtFreeMemory(psDump) + Return bOk +End Function + + +Private Shared Function EgtGeoObjDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +End Function +Public Shared Function EgtGeoObjDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sDump As String) As Boolean + Dim psDump As IntPtr + Dim bOk As Boolean = EgtGeoObjDump(nCtx, nId, psDump) + sDump = Marshal.PtrToStringUni(psDump) + EgtFreeMemory(psDump) + Return bOk +End Function + + +'GeomDB Obj attributes + +Public Shared Function EgtSetLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertLevel(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtSetMode(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertMode(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetMode(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcMode(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtSetStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertStatus(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtSetMark(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtResetMark(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetMark(ByVal nCtx As Integer, ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +End Function + + +Public Shared Function EgtGetCalcMark(ByVal nCtx As Integer, ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +End Function + + +Public Shared Function EgtSetName(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sName As String) As Boolean +End Function + + +Private Shared Function EgtGetName(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psName As IntPtr) As Boolean +End Function +Public Shared Function EgtGetName(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sName As String) As Boolean + Dim psName As IntPtr + Dim bOk As Boolean = EgtGetName(nCtx, nId, psName) + sName = Marshal.PtrToStringUni(psName) + EgtFreeMemory(psName) + Return bOk +End Function + + +Public Shared Function EgtExistsName(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtRemoveName(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtSetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByVal sInfo As String) As Boolean +End Function + + +Private Shared Function EgtGetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByRef psInfo As IntPtr) As Boolean +End Function +Public Shared Function EgtGetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByRef sInfo As String) As Boolean + Dim psInfo As IntPtr + Dim bOk As Boolean = EgtGetInfo(nCtx, nId, sKey, psInfo) + sInfo = Marshal.PtrToStringUni(psInfo) + EgtFreeMemory(psInfo) + Return bOk +End Function + + +Public Shared Function EgtExistsInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String) As Boolean +End Function + + +Public Shared Function EgtRemoveInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String) As Boolean +End Function + + +'Scene + +Public Shared Function EgtInitScene(ByVal nCtx As Integer, ByVal hWnd As IntPtr, ByVal nDriver As Integer, + ByVal b2Buff As Boolean, ByVal nColorBits As Integer, ByVal nDepthBits As Integer) As Boolean +End Function + + +Public Shared Function EgtSetBackground(ByVal nCtx As Integer, ByVal nTopRed As Integer, ByVal nTopGreen As Integer, ByVal nTopBlue As Integer, + ByVal nBottomRed As Integer, ByVal nBottomGreen As Integer, ByVal nBottomBlue As Integer, + Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Public Shared Function EgtDraw(ByVal nCtx As Integer) As Boolean +End Function + + +Public Shared Function EgtResize(ByVal nCtx As Integer, ByVal nW As Integer, ByVal nH As Integer) As Boolean +End Function + + +Public Shared Function EgtSetShowMode(ByVal nCtx As Integer, ByVal nShowMode As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Public Shared Function EgtSetShowCurveDirection(ByVal nCtx As Integer, ByVal bShow As Boolean, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Public Shared Function EgtZoom(ByVal nCtx As Integer, ByVal nZoom As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Private Shared Function EgtZoomOnPoint(ByVal nCtx As Integer, ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal dCoeff As Double, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtZoomOnPoint(ByVal nCtx As Integer, ByVal Curr As Point, ByVal dCoeff As Double, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtZoomOnPoint(nCtx, Curr.X, Curr.Y, dCoeff, bRedraw) +End Function + + +Private Shared Function EgtSetWinRect(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtSetWinRect(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtSetWinRect(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Public Shared Function EgtResetWinRect(ByVal nCtx As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Private Shared Function EgtZoomWin(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtZoomWin(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtZoomWin(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Public Shared Function EgtSetView(ByVal nCtx As Integer, ByVal nView As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Private Shared Function EgtPanCamera(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtPanCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtPanCamera(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Private Shared Function EgtRotateCamera(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtRotateCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtRotateCamera(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Public Shared Function EgtGetCameraDir(ByVal nCtx As Integer, ByRef nDir As Integer) As Boolean +End Function + + +Private Shared Function EgtUnProjectPoint(ByVal nCtx As Integer, ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptP As Point3d) As Boolean +End Function +Public Shared Function EgtUnProjectPoint(ByVal nCtx As Integer, ByVal Curr As Point, ByRef ptP As Point3d) As Boolean + Return EgtUnProjectPoint(nCtx, Curr.X, Curr.Y, ptP) +End Function + + +'TscExecutor + +Public Shared Function EgtInitTscExec(ByVal nCtx As Integer) As Boolean +End Function + + +Public Shared Function EgtTscFileExec(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtTscLineExec(ByVal nCtx As Integer, ByVal sLine As String) As Boolean +End Function + + +'Costanti : TIPO DI FILE +Public Const FT_NULL As Integer = 0 +Public Const FT_NGE As Integer = 1 +Public Const FT_NFE As Integer = 2 +Public Const FT_DXF As Integer = 11 +Public Const FT_STL As Integer = 12 +'Costanti : FORMATO FILE NGE +Public Const NGE_TEXT As Integer = 0 +Public Const NGE_BIN As Integer = 1 +Public Const NGE_CMPTEXT As Integer = 2 +'Costanti : ID GEOMDB +Public Const GDB_ID_ROOT As Integer = 0 +Public Const GDB_ID_NULL As Integer = -1 +'Costanti : TIPO OGGETTI +Public Const TY_NONE As Integer = 0 +Public Const TY_GROUP As Integer = 2 +Public Const TY_GEO_VECTOR As Integer = 128 +Public Const TY_GEO_POINT As Integer = 129 +Public Const TY_GEO_FRAME As Integer = 130 +Public Const TY_CRV_LINE As Integer = 256 +Public Const TY_CRV_ARC As Integer = 257 +Public Const TY_CRV_BEZ As Integer = 258 +Public Const TY_CRV_COMPO As Integer = 259 +Public Const TY_SRF_MESH As Integer = 512 +Public Const TY_EXT_TEXT As Integer = 1024 +'Costanti : LIVELLO DI UN OGGETTO +Public Const GDB_LV_USER As Integer = 1 +Public Const GDB_LV_SYSTEM As Integer = 2 +Public Const GDB_LV_TEMP As Integer = 3 +'Costanti : MODO DI UN OGGETTO +Public Const GDB_MD_STD As Integer = 1 +Public Const GDB_MD_LOCKED As Integer = 2 +Public Const GDB_MD_HIDDEN As Integer = 3 +'Costanti : STATO DI UN OGGETTO +Public Const GDB_ST_OFF As Integer = 0 +Public Const GDB_ST_ON As Integer = 1 +Public Const GDB_ST_SEL As Integer = 2 +'Costanti : TIPO VISUALIZZAZIONE +Public Const SM_WIREFRAME As Integer = 0 +Public Const SM_HIDDENLINE As Integer = 1 +Public Const SM_SHADING As Integer = 2 +'Costanti : TIPO ZOOM +Public Const ZM_ALL As Integer = 1 +Public Const ZM_IN As Integer = 2 +Public Const ZM_OUT As Integer = 3 +'Costanti : TIPO VISTA +Public Const CT_NONE As Integer = 0 +Public Const CT_TOP As Integer = 1 +Public Const CT_FRONT As Integer = 2 +Public Const CT_RIGHT As Integer = 3 +Public Const CT_BACK As Integer = 4 +Public Const CT_LEFT As Integer = 5 +Public Const CT_BOTTOM As Integer = 6 +Public Const CT_ISO_SW As Integer = 7 +Public Const CT_ISO_SE As Integer = 8 +Public Const CT_ISO_NE As Integer = 9 +Public Const CT_ISO_NW As Integer = 10 + +End Class diff --git a/EgtUILib.sln b/EgtUILib.sln new file mode 100644 index 0000000..e6e365e --- /dev/null +++ b/EgtUILib.sln @@ -0,0 +1,26 @@ + +Microsoft Visual Studio Solution File, Format Version 11.00 +# Visual Studio 2010 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EgtUILib", "EgtUILib.vbproj", "{502DBE04-2D66-4517-9368-C33DC698691F}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|x64 = Debug|x64 + Debug|x86 = Debug|x86 + Release|x64 = Release|x64 + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x64.ActiveCfg = Debug|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x64.Build.0 = Debug|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x86.ActiveCfg = Debug|x86 + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x86.Build.0 = Debug|x86 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x64.ActiveCfg = Release|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x64.Build.0 = Release|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x86.ActiveCfg = Release|x86 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/EgtUILib.vbproj b/EgtUILib.vbproj new file mode 100644 index 0000000..f5d9af4 --- /dev/null +++ b/EgtUILib.vbproj @@ -0,0 +1,298 @@ + + + + Debug + AnyCPU + + + + + {502DBE04-2D66-4517-9368-C33DC698691F} + Library + EgtUILib + EgtUILib + 512 + Windows + v4.0 + Client + + + true + full + true + true + bin\Debug\ + + + _MYFORMS=True + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + pdbonly + false + true + true + bin\Release\ + + + _MYFORMS=True + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + true + true + true + bin\Debug64\ + _MYFORMS=True + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + full + x64 + false + false + + + true + bin\Release64\ + _MYFORMS=True + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + None + x64 + false + false + + + true + true + true + bin\Debug32\ + _MYFORMS=True + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + full + x86 + false + false + + + true + bin\Release32\ + _MYFORMS=True + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + None + x86 + false + false + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + btnRendering.vb + + + UserControl + + + btnLookFrom.vb + + + UserControl + + + btnZoom.vb + + + UserControl + + + cmdExec.vb + + + UserControl + + + cmdExport.vb + + + UserControl + + + cmdImport.vb + + + UserControl + + + cmdNew.vb + + + UserControl + + + cmdOpen.vb + + + UserControl + + + cmdSave.vb + + + UserControl + + + + True + Application.myapp + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + Scene.vb + + + UserControl + + + + tsSceneMode.vb + + + UserControl + + + tsViewMode.vb + + + UserControl + + + + + btnLookFrom.vb + + + btnRendering.vb + + + btnZoom.vb + + + cmdExport.vb + + + cmdImport.vb + + + cmdNew.vb + + + cmdOpen.vb + + + cmdSave.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + tsSceneMode.vb + + + tsViewMode.vb + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + + + + + copy c:\EgtDev\EgtUILib\bin\Release32\EgtUILib.dll c:\EgtProg\Dll32\EgtUILib.dll +copy c:\EgtDev\EgtUILib\bin\Debug32\EgtUILib.dll c:\EgtProg\DllD32\EgtUILib.dll +copy c:\EgtDev\EgtUILib\bin\Release64\EgtUILib.dll c:\EgtProg\Dll64\EgtUILib.dll +copy c:\EgtDev\EgtUILib\bin\Debug64\EgtUILib.dll c:\EgtProg\DllD64\EgtUILib.dll + + + \ No newline at end of file diff --git a/My Project/Application.Designer.vb b/My Project/Application.Designer.vb new file mode 100644 index 0000000..0aea9a4 --- /dev/null +++ b/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.34014 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/My Project/Application.myapp b/My Project/Application.myapp new file mode 100644 index 0000000..0167050 --- /dev/null +++ b/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..c84f45d --- /dev/null +++ b/My Project/AssemblyInfo.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Le informazioni generali relative a un assembly sono controllate dal seguente +' insieme di attributi. Per modificare le informazioni associate a un assembly +' è necessario modificare i valori di questi attributi. + +' Controllare i valori degli attributi dell'assembly + +#If PLATFORM = "x64" Then +#If DEBUG Then + +#Else + +#End If +#Else +#If DEBUG Then + +#Else + +#End If +#End If + + + + + + + + +'Se il progetto viene esposto a COM, il GUID seguente verrà utilizzato come ID della libreria dei tipi + + +' Le informazioni sulla versione di un assembly sono costituite dai seguenti quattro valori: +' +' Numero di versione principale +' Numero di versione secondario +' Numero build +' Revisione +' +' È possibile specificare tutti i valori oppure impostare valori predefiniti per i numeri relativi alla revisione e alla build +' utilizzando l'asterisco (*) come descritto di seguito: + + + diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb new file mode 100644 index 0000000..2ee1d30 --- /dev/null +++ b/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.34014 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder. + 'tramite uno strumento quale ResGen o Visual Studio. + 'Per aggiungere o rimuovere un membro, modificare il file con estensione ResX ed eseguire nuovamente ResGen + 'con l'opzione /str oppure ricompilare il progetto VS. + ''' + ''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EgtUILib.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le + ''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/My Project/Resources.resx b/My Project/Resources.resx new file mode 100644 index 0000000..ffecec8 --- /dev/null +++ b/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb new file mode 100644 index 0000000..ab2bfb8 --- /dev/null +++ b/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.34014 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funzionalità di salvataggio automatico My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.EgtUILib.My.MySettings + Get + Return Global.EgtUILib.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/My Project/Settings.settings b/My Project/Settings.settings new file mode 100644 index 0000000..377f56d --- /dev/null +++ b/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Resources/Pan.cur b/Resources/Pan.cur new file mode 100644 index 0000000000000000000000000000000000000000..390939733db71e5f80164207d022ed74517a1def GIT binary patch literal 326 zcmZuru?+$-5OcyyP#|a!E$N_S1AYWXV3TA6Mqm|6#z0~LB$_XxKkPq2@%lUYF19S^ zfQW#UfHnIVfGvOnK?yAp*s3y2ACXH?nVCN{WsL=BT40fY)zi7O5tgxBHnE)dy*=n| zw8f>5y??GebYt*>rQ6xokM&ApPFy4ny+_Y&ZL>Pxb!Lip#3tHuT1^N F`T|rCeRTi; literal 0 HcmV?d00001 diff --git a/Resources/Pointer.cur b/Resources/Pointer.cur new file mode 100644 index 0000000000000000000000000000000000000000..6298d968ed60034a05aac5142365b6324ccf72a1 GIT binary patch literal 326 zcmb7;u?@f=3Tr6`&PJYMwZqmLW=XWIZyjW3UCCA_hw1@*F1w|UfS-3$OTF$^RTv%Ra9r9W0 zd9@$U$Up*vJO`FoqcFe*z=5!ZiWnY^Cf@y(Few@$!X-x*tlA!PVSOeQ7n=#o@z%q1 zY4bVx+v}Y^o)*{EVs*FJd5aRdGcbRvT2YhQqYpjlEg_SLFe|a%GnXR1o^Tw0Qwcy_ e=$DTkaMEOsT_>F)x-&3;8>kgj^Y1bGWby;~xOj*F literal 0 HcmV?d00001 diff --git a/Resources/ZoomWin.cur b/Resources/ZoomWin.cur new file mode 100644 index 0000000000000000000000000000000000000000..b1be252cdfaf2a491a1e1c9ead46b7f7633e2dd4 GIT binary patch literal 326 zcmZ9GJ#NB45QX2Gh`5MwA|gbAGEPL{GB@xRDY(_Hlmd=1SR8-L8K`sDCVHsqCD+o_jX1F-{2tLtFfCfM#6Y literal 0 HcmV?d00001 diff --git a/Scene.Designer.vb b/Scene.Designer.vb new file mode 100644 index 0000000..0a0c770 --- /dev/null +++ b/Scene.Designer.vb @@ -0,0 +1,29 @@ + _ +Partial Class Scene + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Scene.vb b/Scene.vb new file mode 100644 index 0000000..642766b --- /dev/null +++ b/Scene.vb @@ -0,0 +1,177 @@ +Imports System.Math +Imports System.Globalization +Imports EgtUILib.EgtInterface + +Public Class Scene + + Private m_nStatus As Integer + Private Enum ST As Integer + NULL = 0 + PAN = 1 + ROT = 2 + ZOOMWIN = 3 + End Enum + Private m_nGseContext As Integer + Private m_PrevPoint As Point + + Sub New() + ' Chiamata richiesta dalla finestra di progettazione. + InitializeComponent() + ' Istruzioni di inizializzazione. + SetStyle(ControlStyles.Opaque, True) + SetStyle(ControlStyles.UserPaint, True) + SetStyle(ControlStyles.AllPaintingInWmPaint, True) + m_nStatus = ST.NULL + m_nGseContext = 0 + m_PrevPoint = Point.Empty + Cursor = New Cursor(Me.GetType(), "Pointer.cur") + End Sub + + Public Sub Init() + 'EgtInit ed EgtSetFont vanno spostate nell'evento Load del Form se in esso è presente più di una scena. + 'EgtInit(0, "TestEngine.log") + 'EgtSetFont("C:\EgtProg\Fonts", "ModernProp.Nfe") + m_nGseContext = EgtInitGeomDB() + EgtSetDefaultMaterial(m_nGseContext, 255, 165, 0) + EgtInitScene(m_nGseContext, Handle, 3, True, 24, 32) + EgtSetBackground(m_nGseContext, 140, 154, 168, 40, 44, 48) + EgtInitTscExec(m_nGseContext) + End Sub + + Public Function GetCtx() As Integer + Return m_nGseContext + End Function + + Protected Overrides Sub OnHandleDestroyed(e As EventArgs) + 'EgtExit va spostata nell'evento FormClosing del Form + 'EgtExit() + End Sub + + Protected Overrides Sub OnPaint(e As PaintEventArgs) + MyBase.OnPaint(e) + EgtDraw(m_nGseContext) + End Sub + + Protected Overrides Sub OnPaintBackground(pevent As PaintEventArgs) + MyBase.OnPaintBackground(pevent) + End Sub + + Protected Overrides Sub OnResize(e As System.EventArgs) + MyBase.OnResize(e) + EgtResize(m_nGseContext, Width, Height) + End Sub + + Protected Overrides Sub OnMouseEnter(e As System.EventArgs) + MyBase.OnMouseEnter(e) + Focus() + End Sub + + Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Middle Then + If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then + m_nStatus = ST.ZOOMWIN + Cursor = New Cursor(Me.GetType(), "ZoomWin.cur") + ElseIf (Control.ModifierKeys And Keys.Control) = Keys.Control Then + m_nStatus = ST.ROT + Cursor = New Cursor(Me.GetType(), "Rotate.cur") + Else + m_nStatus = ST.PAN + Cursor = New Cursor(Me.GetType(), "Pan.cur") + End If + m_PrevPoint = e.Location + Else + MyBase.OnMouseDown(e) + End If + Focus() + End Sub + + Protected Overrides Sub OnMouseUp(e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Middle Then + If m_nStatus = ST.ZOOMWIN Then + EgtResetWinRect(m_nGseContext, False) + EgtZoomWin(m_nGseContext, m_PrevPoint, e.Location, True) + End If + If m_nStatus <> ST.NULL Then + m_nStatus = ST.NULL + Cursor = New Cursor(Me.GetType(), "Pointer.cur") + End If + Else + MyBase.OnMouseUp(e) + End If + End Sub + + Protected Overrides Sub OnMouseMove(e As System.Windows.Forms.MouseEventArgs) + 'Visualizzo le coordinate del mouse + ShowCursorPos(e.Location) + 'Secondo lo stato... + If e.Button = Windows.Forms.MouseButtons.Middle Then + If m_nStatus = ST.ZOOMWIN Then + Cursor = New Cursor(Me.GetType(), "ZoomWin.cur") + EgtSetWinRect(m_nGseContext, m_PrevPoint, e.Location, True) + 'Il punto di riferimento deve rimanere quello originale + ElseIf m_nStatus = ST.ROT Then + Cursor = New Cursor(Me.GetType(), "Rotate.cur") + EgtRotateCamera(m_nGseContext, m_PrevPoint, e.Location, True) + m_PrevPoint = e.Location + ElseIf m_nStatus = ST.PAN Then + Cursor = New Cursor(Me.GetType(), "Pan.cur") + EgtPanCamera(m_nGseContext, m_PrevPoint, e.Location, True) + m_PrevPoint = e.Location + Else + m_nStatus = ST.NULL + Cursor = New Cursor(Me.GetType(), "Pointer.cur") + End If + Else + MyBase.OnMouseMove(e) + End If + End Sub + + Protected Overrides Sub OnMouseWheel(e As System.Windows.Forms.MouseEventArgs) + If Abs(e.Delta) < 30 Then + Return + End If + ' calcolo coefficiente + Const WHEEL_DELTA As Double = 120 + Dim dCoeff As Double = 1 - 0.1 * Abs(e.Delta) / WHEEL_DELTA + If e.Delta < 0 Then + dCoeff = 1 / dCoeff + End If + ' eseguo zoom + EgtZoomOnPoint(m_nGseContext, e.Location, dCoeff, True) + End Sub + + Private Sub ShowCursorPos(ByVal WinXY As Point) + 'ricavo punto 3d + Dim ptWorld As Point3d + EgtUnProjectPoint(m_nGseContext, WinXY, ptWorld) + 'ricavo direzione di vista + Dim nDir As Integer + EgtGetCameraDir(m_nGseContext, nDir) + 'costruisco stringa con dati + Dim sCursorPos As New System.Text.StringBuilder + Select Case nDir + Case CT_TOP, CT_BOTTOM + sCursorPos.Append("X=") + sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture)) + sCursorPos.Append(" Y=") + sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture)) + Case CT_FRONT, CT_BACK + sCursorPos.Append("X=") + sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture)) + sCursorPos.Append(" Z=") + sCursorPos.Append(ptWorld.z.ToString("F4", CultureInfo.InvariantCulture)) + Case CT_LEFT, CT_RIGHT + sCursorPos.Append("Y=") + sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture)) + sCursorPos.Append(" Z=") + sCursorPos.Append(ptWorld.z.ToString("F4", CultureInfo.InvariantCulture)) + Case Else + sCursorPos.Append(" ") + End Select + ' lancio l'evento per visualizzare la stringa + RaiseEvent CursorPos(Me, sCursorPos.ToString) + End Sub + + Public Event CursorPos(ByVal sender As Object, ByVal sCursorPos As String) + +End Class \ No newline at end of file diff --git a/Settings.vb b/Settings.vb new file mode 100644 index 0000000..9d81384 --- /dev/null +++ b/Settings.vb @@ -0,0 +1,11 @@ + +Namespace My + + 'La classe consente la gestione di eventi specifici sulla classe delle impostazioni: + ' L'evento SettingChanging viene generato prima della modifica di un valore dell'impostazione. + ' L'evento PropertyChanged viene generato dopo la modifica di un valore dell'impostazione. + ' L'evento SettingsLoaded viene generato dopo il caricamento dei valori dell'impostazione. + ' L'evento SettingsSaving viene generato prima del salvataggio dei valori dell'impostazione. + Partial Friend NotInheritable Class MySettings + End Class +End Namespace diff --git a/btnLookFrom.Designer.vb b/btnLookFrom.Designer.vb new file mode 100644 index 0000000..32cd780 --- /dev/null +++ b/btnLookFrom.Designer.vb @@ -0,0 +1,160 @@ + _ +Partial Class btnLookFrom + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.gbViewMode = New System.Windows.Forms.GroupBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.btnTop = New System.Windows.Forms.Button() + Me.btnFront = New System.Windows.Forms.Button() + Me.btnLeft = New System.Windows.Forms.Button() + Me.btnIso = New System.Windows.Forms.Button() + Me.btnBack = New System.Windows.Forms.Button() + Me.btnRight = New System.Windows.Forms.Button() + Me.gbViewMode.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'gbViewMode + ' + Me.gbViewMode.Controls.Add(Me.TableLayoutPanel1) + Me.gbViewMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.gbViewMode.Location = New System.Drawing.Point(0, 0) + Me.gbViewMode.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbViewMode.Name = "gbViewMode" + Me.gbViewMode.Padding = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbViewMode.Size = New System.Drawing.Size(167, 69) + Me.gbViewMode.TabIndex = 0 + Me.gbViewMode.TabStop = False + Me.gbViewMode.Text = "Look From" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 3 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!)) + Me.TableLayoutPanel1.Controls.Add(Me.btnTop, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnFront, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnLeft, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnIso, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.btnBack, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.btnRight, 2, 1) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(2, 15) + Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(163, 52) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'btnTop + ' + Me.btnTop.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnTop.Location = New System.Drawing.Point(2, 2) + Me.btnTop.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnTop.Name = "btnTop" + Me.btnTop.Size = New System.Drawing.Size(50, 22) + Me.btnTop.TabIndex = 0 + Me.btnTop.Text = "Top" + Me.btnTop.UseVisualStyleBackColor = True + ' + 'btnFront + ' + Me.btnFront.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnFront.Location = New System.Drawing.Point(56, 2) + Me.btnFront.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnFront.Name = "btnFront" + Me.btnFront.Size = New System.Drawing.Size(50, 22) + Me.btnFront.TabIndex = 1 + Me.btnFront.Text = "Front" + Me.btnFront.UseVisualStyleBackColor = True + ' + 'btnLeft + ' + Me.btnLeft.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnLeft.Location = New System.Drawing.Point(110, 2) + Me.btnLeft.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnLeft.Name = "btnLeft" + Me.btnLeft.Size = New System.Drawing.Size(51, 22) + Me.btnLeft.TabIndex = 2 + Me.btnLeft.Text = "Left" + Me.btnLeft.UseVisualStyleBackColor = True + ' + 'btnIso + ' + Me.btnIso.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnIso.Location = New System.Drawing.Point(2, 28) + Me.btnIso.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnIso.Name = "btnIso" + Me.btnIso.Size = New System.Drawing.Size(50, 22) + Me.btnIso.TabIndex = 3 + Me.btnIso.Text = "Iso" + Me.btnIso.UseVisualStyleBackColor = True + ' + 'btnBack + ' + Me.btnBack.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnBack.Location = New System.Drawing.Point(56, 28) + Me.btnBack.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnBack.Name = "btnBack" + Me.btnBack.Size = New System.Drawing.Size(50, 22) + Me.btnBack.TabIndex = 4 + Me.btnBack.Text = "Back" + Me.btnBack.UseVisualStyleBackColor = True + ' + 'btnRight + ' + Me.btnRight.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnRight.Location = New System.Drawing.Point(110, 28) + Me.btnRight.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnRight.Name = "btnRight" + Me.btnRight.Size = New System.Drawing.Size(51, 22) + Me.btnRight.TabIndex = 5 + Me.btnRight.Text = "Right" + Me.btnRight.UseVisualStyleBackColor = True + ' + 'btnLookFrom + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.gbViewMode) + Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.Name = "btnLookFrom" + Me.Size = New System.Drawing.Size(167, 69) + Me.gbViewMode.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + +End Sub + Friend WithEvents gbViewMode As System.Windows.Forms.GroupBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents btnTop As System.Windows.Forms.Button + Friend WithEvents btnFront As System.Windows.Forms.Button + Friend WithEvents btnLeft As System.Windows.Forms.Button + Friend WithEvents btnIso As System.Windows.Forms.Button + Friend WithEvents btnBack As System.Windows.Forms.Button + Friend WithEvents btnRight As System.Windows.Forms.Button + +End Class diff --git a/btnLookFrom.resx b/btnLookFrom.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/btnLookFrom.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/btnLookFrom.vb b/btnLookFrom.vb new file mode 100644 index 0000000..ea8ec49 --- /dev/null +++ b/btnLookFrom.vb @@ -0,0 +1,39 @@ +Imports EgtUILib.EgtInterface + +Public Class btnLookFrom + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click + EgtSetView(m_nContext, CT_TOP, True) + End Sub + + Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles btnIso.Click + EgtSetView(m_nContext, CT_ISO_SW, True) + End Sub + + Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click + EgtSetView(m_nContext, CT_FRONT, True) + End Sub + + Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click + EgtSetView(m_nContext, CT_BACK, True) + End Sub + + Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click + EgtSetView(m_nContext, CT_LEFT, True) + End Sub + + Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click + EgtSetView(m_nContext, CT_RIGHT, True) + End Sub +End Class diff --git a/btnRendering.Designer.vb b/btnRendering.Designer.vb new file mode 100644 index 0000000..0e58b86 --- /dev/null +++ b/btnRendering.Designer.vb @@ -0,0 +1,127 @@ + _ +Partial Class btnRendering + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.gbSceneMode = New System.Windows.Forms.GroupBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.rbtnWireframe = New System.Windows.Forms.RadioButton() + Me.rbtnHiddenLine = New System.Windows.Forms.RadioButton() + Me.rbtnShading = New System.Windows.Forms.RadioButton() + Me.gbSceneMode.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'gbSceneMode + ' + Me.gbSceneMode.Controls.Add(Me.TableLayoutPanel1) + Me.gbSceneMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.gbSceneMode.Location = New System.Drawing.Point(0, 0) + Me.gbSceneMode.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbSceneMode.Name = "gbSceneMode" + Me.gbSceneMode.Padding = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbSceneMode.Size = New System.Drawing.Size(167, 43) + Me.gbSceneMode.TabIndex = 0 + Me.gbSceneMode.TabStop = False + Me.gbSceneMode.Text = "Rendering" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 3 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.Controls.Add(Me.rbtnWireframe, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.rbtnHiddenLine, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.rbtnShading, 2, 0) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(2, 15) + Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(163, 26) + Me.TableLayoutPanel1.TabIndex = 3 + ' + 'rbtnWireframe + ' + Me.rbtnWireframe.Appearance = System.Windows.Forms.Appearance.Button + Me.rbtnWireframe.AutoSize = True + Me.rbtnWireframe.Dock = System.Windows.Forms.DockStyle.Fill + Me.rbtnWireframe.Location = New System.Drawing.Point(2, 2) + Me.rbtnWireframe.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.rbtnWireframe.Name = "rbtnWireframe" + Me.rbtnWireframe.Size = New System.Drawing.Size(50, 22) + Me.rbtnWireframe.TabIndex = 0 + Me.rbtnWireframe.Text = "WireFrame" + Me.rbtnWireframe.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rbtnWireframe.UseVisualStyleBackColor = True + ' + 'rbtnHiddenLine + ' + Me.rbtnHiddenLine.Appearance = System.Windows.Forms.Appearance.Button + Me.rbtnHiddenLine.AutoSize = True + Me.rbtnHiddenLine.Dock = System.Windows.Forms.DockStyle.Fill + Me.rbtnHiddenLine.Location = New System.Drawing.Point(56, 2) + Me.rbtnHiddenLine.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.rbtnHiddenLine.Name = "rbtnHiddenLine" + Me.rbtnHiddenLine.Size = New System.Drawing.Size(50, 22) + Me.rbtnHiddenLine.TabIndex = 1 + Me.rbtnHiddenLine.Text = "HiddenLine" + Me.rbtnHiddenLine.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rbtnHiddenLine.UseVisualStyleBackColor = True + ' + 'rbtnShading + ' + Me.rbtnShading.Appearance = System.Windows.Forms.Appearance.Button + Me.rbtnShading.AutoSize = True + Me.rbtnShading.Dock = System.Windows.Forms.DockStyle.Fill + Me.rbtnShading.Location = New System.Drawing.Point(110, 2) + Me.rbtnShading.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.rbtnShading.Name = "rbtnShading" + Me.rbtnShading.Size = New System.Drawing.Size(51, 22) + Me.rbtnShading.TabIndex = 2 + Me.rbtnShading.Text = "Shading" + Me.rbtnShading.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rbtnShading.UseVisualStyleBackColor = True + ' + 'btnRendering + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.gbSceneMode) + Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.Name = "btnRendering" + Me.Size = New System.Drawing.Size(167, 43) + Me.gbSceneMode.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + Me.ResumeLayout(False) + +End Sub + Friend WithEvents gbSceneMode As System.Windows.Forms.GroupBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents rbtnWireframe As System.Windows.Forms.RadioButton + Friend WithEvents rbtnHiddenLine As System.Windows.Forms.RadioButton + Friend WithEvents rbtnShading As System.Windows.Forms.RadioButton + +End Class diff --git a/btnRendering.resx b/btnRendering.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/btnRendering.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/btnRendering.vb b/btnRendering.vb new file mode 100644 index 0000000..b105f0d --- /dev/null +++ b/btnRendering.vb @@ -0,0 +1,28 @@ +Imports EgtUILib.EgtInterface + +Public Class btnRendering + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub rbtnWireframe_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnWireframe.CheckedChanged + EgtSetShowMode(m_nContext, SM_WIREFRAME, True) + End Sub + + Private Sub rbtnHiddenLine_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnHiddenLine.CheckedChanged + EgtSetShowMode(m_nContext, SM_HIDDENLINE, True) + End Sub + + Private Sub rbtnShading_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnShading.CheckedChanged + EgtSetShowMode(m_nContext, SM_SHADING, True) + End Sub + +End Class diff --git a/btnZoom.Designer.vb b/btnZoom.Designer.vb new file mode 100644 index 0000000..ba70b62 --- /dev/null +++ b/btnZoom.Designer.vb @@ -0,0 +1,117 @@ + _ +Partial Class btnZoom + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.gbZoom = New System.Windows.Forms.GroupBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.btnZoomAll = New System.Windows.Forms.Button() + Me.btnZoomIn = New System.Windows.Forms.Button() + Me.btnZoomOut = New System.Windows.Forms.Button() + Me.gbZoom.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'gbZoom + ' + Me.gbZoom.Controls.Add(Me.TableLayoutPanel1) + Me.gbZoom.Dock = System.Windows.Forms.DockStyle.Fill + Me.gbZoom.Location = New System.Drawing.Point(0, 0) + Me.gbZoom.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbZoom.Name = "gbZoom" + Me.gbZoom.Padding = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbZoom.Size = New System.Drawing.Size(167, 43) + Me.gbZoom.TabIndex = 0 + Me.gbZoom.TabStop = False + Me.gbZoom.Text = "Zoom" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 3 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!)) + Me.TableLayoutPanel1.Controls.Add(Me.btnZoomAll, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnZoomIn, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnZoomOut, 2, 0) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(2, 15) + Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(163, 26) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'btnZoomAll + ' + Me.btnZoomAll.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnZoomAll.Location = New System.Drawing.Point(2, 2) + Me.btnZoomAll.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnZoomAll.Name = "btnZoomAll" + Me.btnZoomAll.Size = New System.Drawing.Size(50, 22) + Me.btnZoomAll.TabIndex = 0 + Me.btnZoomAll.Text = "All" + Me.btnZoomAll.UseVisualStyleBackColor = True + ' + 'btnZoomIn + ' + Me.btnZoomIn.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnZoomIn.Location = New System.Drawing.Point(56, 2) + Me.btnZoomIn.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnZoomIn.Name = "btnZoomIn" + Me.btnZoomIn.Size = New System.Drawing.Size(50, 22) + Me.btnZoomIn.TabIndex = 1 + Me.btnZoomIn.Text = "In" + Me.btnZoomIn.UseVisualStyleBackColor = True + ' + 'btnZoomOut + ' + Me.btnZoomOut.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnZoomOut.Location = New System.Drawing.Point(110, 2) + Me.btnZoomOut.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnZoomOut.Name = "btnZoomOut" + Me.btnZoomOut.Size = New System.Drawing.Size(51, 22) + Me.btnZoomOut.TabIndex = 2 + Me.btnZoomOut.Text = "Out" + Me.btnZoomOut.UseVisualStyleBackColor = True + ' + 'btnZoom + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.gbZoom) + Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.Name = "btnZoom" + Me.Size = New System.Drawing.Size(167, 43) + Me.gbZoom.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + +End Sub + Friend WithEvents gbZoom As System.Windows.Forms.GroupBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents btnZoomAll As System.Windows.Forms.Button + Friend WithEvents btnZoomIn As System.Windows.Forms.Button + Friend WithEvents btnZoomOut As System.Windows.Forms.Button + +End Class diff --git a/btnZoom.resx b/btnZoom.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/btnZoom.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/btnZoom.vb b/btnZoom.vb new file mode 100644 index 0000000..e9dadb4 --- /dev/null +++ b/btnZoom.vb @@ -0,0 +1,28 @@ +Imports EgtUILib.EgtInterface + +Public Class btnZoom + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click + EgtZoom(m_nContext, ZM_ALL) + End Sub + + Private Sub btnZoomIn_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomIn.Click + EgtZoom(m_nContext, ZM_IN) + End Sub + + Private Sub btnZoomOut_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomOut.Click + EgtZoom(m_nContext, ZM_OUT) + End Sub + +End Class diff --git a/cmdExec.Designer.vb b/cmdExec.Designer.vb new file mode 100644 index 0000000..95518a5 --- /dev/null +++ b/cmdExec.Designer.vb @@ -0,0 +1,57 @@ + _ +Partial Class cmdExec + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.btnExec = New System.Windows.Forms.Button() + Me.ExecFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.SuspendLayout() + ' + 'btnExec + ' + Me.btnExec.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnExec.Location = New System.Drawing.Point(0, 0) + Me.btnExec.Name = "btnExec" + Me.btnExec.Size = New System.Drawing.Size(75, 35) + Me.btnExec.TabIndex = 0 + Me.btnExec.Text = "Exec" + Me.btnExec.UseVisualStyleBackColor = True + ' + 'ExecFileDialog + ' + Me.ExecFileDialog.Filter = "Test commands(*.tsc)|*.tsc" + Me.ExecFileDialog.Title = "Exec TSC" + ' + 'cmdExec + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.btnExec) + Me.Name = "cmdExec" + Me.Size = New System.Drawing.Size(75, 35) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnExec As System.Windows.Forms.Button + Friend WithEvents ExecFileDialog As System.Windows.Forms.OpenFileDialog + +End Class diff --git a/cmdExec.vb b/cmdExec.vb new file mode 100644 index 0000000..700d391 --- /dev/null +++ b/cmdExec.vb @@ -0,0 +1,26 @@ +Imports EgtUILib.EgtInterface + +Public Class cmdExec + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles btnExec.Click + If ExecFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then + Cursor = Cursors.WaitCursor + If EgtTscFileExec(m_nContext, ExecFileDialog.FileName) Then + EgtZoom(m_nContext, ZM_ALL, True) + End If + Cursor = Cursors.Default + End If + End Sub + +End Class diff --git a/cmdExport.Designer.vb b/cmdExport.Designer.vb new file mode 100644 index 0000000..37abcb4 --- /dev/null +++ b/cmdExport.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdExport + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.btnExport = New System.Windows.Forms.Button() + Me.ExportFileDialog = New System.Windows.Forms.SaveFileDialog() + Me.SuspendLayout() + ' + 'btnExport + ' + Me.btnExport.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnExport.Location = New System.Drawing.Point(0, 0) + Me.btnExport.Margin = New System.Windows.Forms.Padding(0) + Me.btnExport.Name = "btnExport" + Me.btnExport.Size = New System.Drawing.Size(75, 35) + Me.btnExport.TabIndex = 0 + Me.btnExport.Text = "Export" + Me.btnExport.UseVisualStyleBackColor = True + ' + 'ExportFileDialog + ' + Me.ExportFileDialog.Filter = "AutoCAD Drawing Exchange|*.dxf|Stereolithography|*.stl" + Me.ExportFileDialog.Title = "Export File" + ' + 'cmdExport + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.Controls.Add(Me.btnExport) + Me.Name = "cmdExport" + Me.Size = New System.Drawing.Size(75, 35) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnExport As System.Windows.Forms.Button + Friend WithEvents ExportFileDialog As System.Windows.Forms.SaveFileDialog + +End Class diff --git a/cmdExport.resx b/cmdExport.resx new file mode 100644 index 0000000..7f90636 --- /dev/null +++ b/cmdExport.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdExport.vb b/cmdExport.vb new file mode 100644 index 0000000..cde7809 --- /dev/null +++ b/cmdExport.vb @@ -0,0 +1,36 @@ +Imports EgtUILib.EgtInterface + +Public Class cmdExport + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click + ExportFileDialog.Title = "Export" + ExportFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*" + ExportFileDialog.FilterIndex = 1 + If ExportFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then + Dim nFileType As Integer = EgtGetFileType(ExportFileDialog.FileName) + If nFileType = FT_DXF Then + Cursor = Cursors.WaitCursor + EgtExportDxf(m_nContext, GDB_ID_ROOT, ExportFileDialog.FileName) + Cursor = Cursors.Default + ElseIf nFileType = FT_STL Then + Cursor = Cursors.WaitCursor + EgtExportStl(m_nContext, GDB_ID_ROOT, ExportFileDialog.FileName) + Cursor = Cursors.Default + Else + MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) + End If + End If + End Sub + +End Class diff --git a/cmdImport.Designer.vb b/cmdImport.Designer.vb new file mode 100644 index 0000000..d815d7b --- /dev/null +++ b/cmdImport.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdImport + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.btnImport = New System.Windows.Forms.Button() + Me.ImportFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.SuspendLayout() + ' + 'btnImport + ' + Me.btnImport.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnImport.Location = New System.Drawing.Point(0, 0) + Me.btnImport.Margin = New System.Windows.Forms.Padding(0) + Me.btnImport.Name = "btnImport" + Me.btnImport.Size = New System.Drawing.Size(75, 35) + Me.btnImport.TabIndex = 0 + Me.btnImport.Text = "Import" + Me.btnImport.UseVisualStyleBackColor = True + ' + 'ImportFileDialog + ' + Me.ImportFileDialog.Filter = "AutoCAD Drawing Exchange|*.dxf|Stereolithography|*.stl" + Me.ImportFileDialog.Title = "Import File" + ' + 'cmdImport + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.Controls.Add(Me.btnImport) + Me.Name = "cmdImport" + Me.Size = New System.Drawing.Size(75, 35) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnImport As System.Windows.Forms.Button + Friend WithEvents ImportFileDialog As System.Windows.Forms.OpenFileDialog + +End Class diff --git a/cmdImport.resx b/cmdImport.resx new file mode 100644 index 0000000..491d8dc --- /dev/null +++ b/cmdImport.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdImport.vb b/cmdImport.vb new file mode 100644 index 0000000..ff548f6 --- /dev/null +++ b/cmdImport.vb @@ -0,0 +1,39 @@ +Imports EgtUILib.EgtInterface + +Public Class cmdImport + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles btnImport.Click + If ImportFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then + Dim nFileType As Integer = EgtGetFileType(ImportFileDialog.FileName) + If nFileType = FT_DXF Then + Cursor = Cursors.WaitCursor + EgtNewFile(m_nContext) + If EgtImportDxf(m_nContext, ImportFileDialog.FileName) Then + EgtZoom(m_nContext, ZM_ALL, True) + End If + Cursor = Cursors.Default + ElseIf nFileType = FT_STL Then + Cursor = Cursors.WaitCursor + EgtNewFile(m_nContext) + If EgtImportStl(m_nContext, ImportFileDialog.FileName) Then + EgtZoom(m_nContext, ZM_ALL, True) + End If + Cursor = Cursors.Default + Else + MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) + End If + End If + End Sub + +End Class \ No newline at end of file diff --git a/cmdNew.Designer.vb b/cmdNew.Designer.vb new file mode 100644 index 0000000..2d08a98 --- /dev/null +++ b/cmdNew.Designer.vb @@ -0,0 +1,51 @@ + _ +Partial Class cmdNew + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.btnNew = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'btnNew + ' + Me.btnNew.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnNew.Location = New System.Drawing.Point(0, 0) + Me.btnNew.Name = "btnNew" + Me.btnNew.Size = New System.Drawing.Size(75, 35) + Me.btnNew.TabIndex = 0 + Me.btnNew.Text = "New" + Me.btnNew.UseVisualStyleBackColor = True + ' + 'cmdNew + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.Controls.Add(Me.btnNew) + Me.Name = "cmdNew" + Me.Size = New System.Drawing.Size(75, 35) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnNew As System.Windows.Forms.Button + +End Class diff --git a/cmdNew.resx b/cmdNew.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/cmdNew.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/cmdNew.vb b/cmdNew.vb new file mode 100644 index 0000000..c6fc6c9 --- /dev/null +++ b/cmdNew.vb @@ -0,0 +1,23 @@ +Imports EgtUILib.EgtInterface + + +Public Class cmdNew + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click + If EgtNewFile(m_nContext) Then + EgtZoom(m_nContext, ZM_ALL, True) + End If + End Sub + +End Class diff --git a/cmdOpen.Designer.vb b/cmdOpen.Designer.vb new file mode 100644 index 0000000..3057cf0 --- /dev/null +++ b/cmdOpen.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdOpen + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.btnOpen = New System.Windows.Forms.Button() + Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.SuspendLayout() + ' + 'btnOpen + ' + Me.btnOpen.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnOpen.Location = New System.Drawing.Point(0, 0) + Me.btnOpen.Margin = New System.Windows.Forms.Padding(0) + Me.btnOpen.Name = "btnOpen" + Me.btnOpen.Size = New System.Drawing.Size(75, 35) + Me.btnOpen.TabIndex = 0 + Me.btnOpen.Text = "Open" + Me.btnOpen.UseVisualStyleBackColor = True + ' + 'OpenFileDialog + ' + Me.OpenFileDialog.Filter = "New Geometry EgalTech|*.Nge;" + Me.OpenFileDialog.Title = "Open File" + ' + 'cmdOpen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.Controls.Add(Me.btnOpen) + Me.Name = "cmdOpen" + Me.Size = New System.Drawing.Size(75, 35) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnOpen As System.Windows.Forms.Button + Friend WithEvents OpenFileDialog As System.Windows.Forms.OpenFileDialog + +End Class diff --git a/cmdOpen.resx b/cmdOpen.resx new file mode 100644 index 0000000..50158e0 --- /dev/null +++ b/cmdOpen.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdOpen.vb b/cmdOpen.vb new file mode 100644 index 0000000..cd60ee1 --- /dev/null +++ b/cmdOpen.vb @@ -0,0 +1,29 @@ +Imports EgtUILib.EgtInterface + +Public Class cmdOpen + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnOpen_Click(sender As System.Object, e As System.EventArgs) Handles btnOpen.Click + OpenFileDialog.Title = "Open" + OpenFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge|New font EgalTech(*.nfe)|*.nfe|All Files (*.*)|*.*" + OpenFileDialog.FilterIndex = 1 + If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then + Cursor = Cursors.WaitCursor + If EgtOpenFile(m_nContext, OpenFileDialog.FileName) Then + EgtZoom(m_nContext, ZM_ALL, True) + End If + Cursor = Cursors.Default + End If + End Sub + +End Class diff --git a/cmdSave.Designer.vb b/cmdSave.Designer.vb new file mode 100644 index 0000000..6ccc2c4 --- /dev/null +++ b/cmdSave.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdSave + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Me.btnSave = New System.Windows.Forms.Button() + Me.SaveFileDialog = New System.Windows.Forms.SaveFileDialog() + Me.SuspendLayout() + ' + 'btnSave + ' + Me.btnSave.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnSave.Location = New System.Drawing.Point(0, 0) + Me.btnSave.Margin = New System.Windows.Forms.Padding(0) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 35) + Me.btnSave.TabIndex = 0 + Me.btnSave.Text = "Save" + Me.btnSave.UseVisualStyleBackColor = True + ' + 'SaveFileDialog + ' + Me.SaveFileDialog.Filter = "New Geometry EgalTech|*.Nge" + Me.SaveFileDialog.Title = "Save File" + ' + 'cmdSave + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.Controls.Add(Me.btnSave) + Me.Name = "cmdSave" + Me.Size = New System.Drawing.Size(75, 35) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btnSave As System.Windows.Forms.Button + Friend WithEvents SaveFileDialog As System.Windows.Forms.SaveFileDialog + +End Class diff --git a/cmdSave.resx b/cmdSave.resx new file mode 100644 index 0000000..d76af0f --- /dev/null +++ b/cmdSave.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdSave.vb b/cmdSave.vb new file mode 100644 index 0000000..e5dffee --- /dev/null +++ b/cmdSave.vb @@ -0,0 +1,27 @@ +Imports EgtUILib.EgtInterface + +Public Class cmdSave + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click + SaveFileDialog.Title = "Save" + SaveFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge" + SaveFileDialog.FilterIndex = 1 + If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then + Cursor = Cursors.WaitCursor + EgtSaveFile(m_nContext, SaveFileDialog.FileName, NGE_CMPTEXT) + Cursor = Cursors.Default + End If + End Sub + +End Class diff --git a/tsSceneMode.Designer.vb b/tsSceneMode.Designer.vb new file mode 100644 index 0000000..ff7796e --- /dev/null +++ b/tsSceneMode.Designer.vb @@ -0,0 +1,90 @@ + _ +Partial Class tsSceneMode + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(tsSceneMode)) + Me.SceneMode = New System.Windows.Forms.ToolStrip() + Me.btnWireframe = New System.Windows.Forms.ToolStripButton() + Me.btnHiddenLine = New System.Windows.Forms.ToolStripButton() + Me.btnShading = New System.Windows.Forms.ToolStripButton() + Me.SceneMode.SuspendLayout() + Me.SuspendLayout() + ' + 'SceneMode + ' + Me.SceneMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.SceneMode.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnWireframe, Me.btnHiddenLine, Me.btnShading}) + Me.SceneMode.Location = New System.Drawing.Point(0, 0) + Me.SceneMode.Name = "SceneMode" + Me.SceneMode.Size = New System.Drawing.Size(150, 25) + Me.SceneMode.TabIndex = 0 + ' + 'btnWireframe + ' + Me.btnWireframe.CheckOnClick = True + Me.btnWireframe.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnWireframe.Image = CType(resources.GetObject("btnWireframe.Image"), System.Drawing.Image) + Me.btnWireframe.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnWireframe.Name = "btnWireframe" + Me.btnWireframe.Size = New System.Drawing.Size(23, 22) + Me.btnWireframe.ToolTipText = "WireFrame" + ' + 'btnHiddenLine + ' + Me.btnHiddenLine.CheckOnClick = True + Me.btnHiddenLine.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnHiddenLine.Image = CType(resources.GetObject("btnHiddenLine.Image"), System.Drawing.Image) + Me.btnHiddenLine.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnHiddenLine.Name = "btnHiddenLine" + Me.btnHiddenLine.Size = New System.Drawing.Size(23, 22) + Me.btnHiddenLine.ToolTipText = "Hidden Line" + ' + 'btnShading + ' + Me.btnShading.CheckOnClick = True + Me.btnShading.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnShading.Image = CType(resources.GetObject("btnShading.Image"), System.Drawing.Image) + Me.btnShading.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnShading.Name = "btnShading" + Me.btnShading.Size = New System.Drawing.Size(23, 22) + Me.btnShading.ToolTipText = "Shading" + ' + 'tsSceneMode + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.SceneMode) + Me.Name = "tsSceneMode" + Me.Size = New System.Drawing.Size(150, 25) + Me.SceneMode.ResumeLayout(False) + Me.SceneMode.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents SceneMode As System.Windows.Forms.ToolStrip + Friend WithEvents btnWireframe As System.Windows.Forms.ToolStripButton + Friend WithEvents btnHiddenLine As System.Windows.Forms.ToolStripButton + Friend WithEvents btnShading As System.Windows.Forms.ToolStripButton + +End Class diff --git a/tsSceneMode.resx b/tsSceneMode.resx new file mode 100644 index 0000000..53be795 --- /dev/null +++ b/tsSceneMode.resx @@ -0,0 +1,169 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/tsSceneMode.vb b/tsSceneMode.vb new file mode 100644 index 0000000..2049cb1 --- /dev/null +++ b/tsSceneMode.vb @@ -0,0 +1,33 @@ +Imports EgtUILib.EgtInterface + +Public Class tsSceneMode + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnWireframe_Click(sender As System.Object, e As System.EventArgs) Handles btnWireframe.Click + btnHiddenLine.Checked = False + btnShading.Checked = False + EgtSetShowMode(m_nContext, SM_WIREFRAME, True) + End Sub + + Private Sub btnHiddenLine_Click(sender As System.Object, e As System.EventArgs) Handles btnHiddenLine.Click + btnWireframe.Checked = False + btnShading.Checked = False + EgtSetShowMode(m_nContext, SM_HIDDENLINE, True) + End Sub + + Private Sub btnShading_Click(sender As System.Object, e As System.EventArgs) Handles btnShading.Click + btnWireframe.Checked = False + btnHiddenLine.Checked = False + EgtSetShowMode(m_nContext, SM_SHADING, True) + End Sub +End Class diff --git a/tsViewMode.Designer.vb b/tsViewMode.Designer.vb new file mode 100644 index 0000000..d88e496 --- /dev/null +++ b/tsViewMode.Designer.vb @@ -0,0 +1,120 @@ + _ +Partial Class tsViewMode + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(tsViewMode)) + Me.ViewMode = New System.Windows.Forms.ToolStrip() + Me.btnTop = New System.Windows.Forms.ToolStripButton() + Me.btnIso = New System.Windows.Forms.ToolStripButton() + Me.btnFront = New System.Windows.Forms.ToolStripButton() + Me.btnBack = New System.Windows.Forms.ToolStripButton() + Me.btnRight = New System.Windows.Forms.ToolStripButton() + Me.btnLeft = New System.Windows.Forms.ToolStripButton() + Me.ViewMode.SuspendLayout() + Me.SuspendLayout() + ' + 'ViewMode + ' + Me.ViewMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.ViewMode.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnTop, Me.btnIso, Me.btnFront, Me.btnBack, Me.btnRight, Me.btnLeft}) + Me.ViewMode.Location = New System.Drawing.Point(0, 0) + Me.ViewMode.Name = "ViewMode" + Me.ViewMode.Size = New System.Drawing.Size(170, 25) + Me.ViewMode.TabIndex = 0 + ' + 'btnTop + ' + Me.btnTop.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnTop.Image = CType(resources.GetObject("btnTop.Image"), System.Drawing.Image) + Me.btnTop.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnTop.Name = "btnTop" + Me.btnTop.Size = New System.Drawing.Size(23, 22) + Me.btnTop.ToolTipText = "Top View" + ' + 'btnIso + ' + Me.btnIso.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnIso.Image = CType(resources.GetObject("btnIso.Image"), System.Drawing.Image) + Me.btnIso.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnIso.Name = "btnIso" + Me.btnIso.Size = New System.Drawing.Size(23, 22) + Me.btnIso.ToolTipText = "Isometric View" + ' + 'btnFront + ' + Me.btnFront.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnFront.Image = CType(resources.GetObject("btnFront.Image"), System.Drawing.Image) + Me.btnFront.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnFront.Name = "btnFront" + Me.btnFront.Size = New System.Drawing.Size(23, 22) + Me.btnFront.ToolTipText = "Front View" + ' + 'btnBack + ' + Me.btnBack.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnBack.Image = CType(resources.GetObject("btnBack.Image"), System.Drawing.Image) + Me.btnBack.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnBack.Name = "btnBack" + Me.btnBack.Size = New System.Drawing.Size(23, 22) + Me.btnBack.ToolTipText = "Back View" + ' + 'btnRight + ' + Me.btnRight.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnRight.Image = CType(resources.GetObject("btnRight.Image"), System.Drawing.Image) + Me.btnRight.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnRight.Name = "btnRight" + Me.btnRight.Size = New System.Drawing.Size(23, 22) + Me.btnRight.ToolTipText = "Right View" + ' + 'btnLeft + ' + Me.btnLeft.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnLeft.Image = CType(resources.GetObject("btnLeft.Image"), System.Drawing.Image) + Me.btnLeft.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnLeft.Name = "btnLeft" + Me.btnLeft.Size = New System.Drawing.Size(23, 22) + Me.btnLeft.ToolTipText = "Left View" + ' + 'tsViewMode + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.ViewMode) + Me.Name = "tsViewMode" + Me.Size = New System.Drawing.Size(170, 25) + Me.ViewMode.ResumeLayout(False) + Me.ViewMode.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents ViewMode As System.Windows.Forms.ToolStrip + Friend WithEvents btnTop As System.Windows.Forms.ToolStripButton + Friend WithEvents btnIso As System.Windows.Forms.ToolStripButton + Friend WithEvents btnFront As System.Windows.Forms.ToolStripButton + Friend WithEvents btnBack As System.Windows.Forms.ToolStripButton + Friend WithEvents btnRight As System.Windows.Forms.ToolStripButton + Friend WithEvents btnLeft As System.Windows.Forms.ToolStripButton + +End Class diff --git a/tsViewMode.resx b/tsViewMode.resx new file mode 100644 index 0000000..f8e2f0e --- /dev/null +++ b/tsViewMode.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/tsViewMode.vb b/tsViewMode.vb new file mode 100644 index 0000000..79c7581 --- /dev/null +++ b/tsViewMode.vb @@ -0,0 +1,39 @@ +Imports EgtUILib.EgtInterface + +Public Class tsViewMode + + Private m_nContext As Integer + + Sub New() + InitializeComponent() + m_nContext = 1 + End Sub + + Public Sub SetCtx(ByVal nCtx As Integer) + m_nContext = nCtx + End Sub + + Private Sub btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click + EgtSetView(m_nContext, CT_TOP, True) + End Sub + + Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles btnIso.Click + EgtSetView(m_nContext, CT_ISO_SW, True) + End Sub + + Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click + EgtSetView(m_nContext, CT_FRONT, True) + End Sub + + Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click + EgtSetView(m_nContext, CT_BACK, True) + End Sub + + Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click + EgtSetView(m_nContext, CT_RIGHT, True) + End Sub + + Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click + EgtSetView(m_nContext, CT_LEFT, True) + End Sub +End Class