EgtCAM5 :
- Migliorie varie.
This commit is contained in:
@@ -365,29 +365,6 @@ Namespace EgtCAM5
|
||||
Dim WinPos As New WinPos
|
||||
GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
|
||||
WinPosToWindow(Application.Current.MainWindow, WinPos)
|
||||
'If ModifierKeys <> Keys.Shift Then
|
||||
' Dim nFlag As Integer
|
||||
' Dim nLeft As Integer
|
||||
' Dim nTop As Integer
|
||||
' Dim nWidth As Integer
|
||||
' Dim nHeight As Integer
|
||||
' GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFile)
|
||||
' Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
|
||||
' Me.Location = New Point(nLeft, nTop)
|
||||
' Me.Size = New Size(nWidth, nHeight)
|
||||
' WindowState = If(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal)
|
||||
'End If
|
||||
'' Impostazioni controller
|
||||
'm_Controller.SetScene(Scene1)
|
||||
'Dim bLuaReg As Boolean = (GetPrivateProfileInt(S_GENERAL, K_COMMANDLOG, 0, m_sIniFile) <> 0)
|
||||
'Dim sCmdLogFile As String = CMDLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
|
||||
'If Not m_Controller.SetCommandLog(bLuaReg, m_sTempDir, sCmdLogFile) Then
|
||||
' EgtOutLog("Command log not started")
|
||||
' If My.Application.CommandLineArgs.Count() = 0 Then
|
||||
' MessageBox.Show("Command log not started", "TestEIn Warning",
|
||||
' MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
||||
' End If
|
||||
'End If
|
||||
'If m_Controller.GetCommandLog() Then
|
||||
' tsStatusReg.BackColor = Color.Lime
|
||||
'ElseIf bLuaReg Then
|
||||
@@ -396,8 +373,6 @@ Namespace EgtCAM5
|
||||
'' Impostazioni MruLists
|
||||
'm_MruFiles.Init(m_sIniFile, S_MRUFILES, 8)
|
||||
'm_MruScripts.Init(m_sIniFile, S_MRUSCRIPTS, 8)
|
||||
'' Apro progetto vuoto
|
||||
'm_Controller.NewProject(True)
|
||||
'' Impostazione Testi e ToolTips
|
||||
'SetMessages()
|
||||
'' Installo funzione gestione eventi per lua
|
||||
|
||||
Reference in New Issue
Block a user