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

EgtDemo1 1.5j2 :

Browse Source 
- aggiornamento per analisi e distanza tra punti notevoli.
This commit is contained in:
Dario Sassi
2014-10-14 06:56:24 +00:00
parent a63b7ec328
commit ce883ad9dd
8 changed files with 428 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
AnalyzeDlg.Designer.vb
Generated
+70
View File
@@ -0,0 +1,70 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class AnalyzeDlg
Inherits System.Windows.Forms.Form
'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.OK_Button = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(80, 280)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(7, 15)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox1.Size = New System.Drawing.Size(212, 252)
Me.TextBox1.TabIndex = 1
'
'AnalyzeDlg
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(227, 315)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.OK_Button)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "AnalyzeDlg"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Analyze"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class
AnalyzeDlg.resx
+120
View File
@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
AnalyzeDlg.vb
+20
View File
@@ -0,0 +1,20 @@
Imports System.Windows.Forms
Public Class AnalyzeDlg
Private m_sText As String
Public Sub SetText(ByRef sOut As String)
m_sText = sOut
End Sub
Private Sub AnalyzeDlg_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = m_sText
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
End Class
EgtDemo1.vbproj
+9
View File
@@ -98,6 +98,12 @@
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="AnalyzeDlg.Designer.vb">
<DependentUpon>AnalyzeDlg.vb</DependentUpon>
</Compile>
<Compile Include="AnalyzeDlg.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
@@ -122,6 +128,9 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="AnalyzeDlg.resx">
<DependentUpon>AnalyzeDlg.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
Form1.Designer.vb
Generated
+127 -20
View File
@@ -22,6 +22,7 @@ Partial Class Form1
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.ToolStripContainer1 = New System.Windows.Forms.ToolStripContainer()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
@@ -30,15 +31,25 @@ Partial Class Form1
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.RadioButton2 = New System.Windows.Forms.RadioButton()
Me.RadioButton1 = New System.Windows.Forms.RadioButton()
Me.TsZoom1 = New EgtUILib.tsZoom()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.StatusOutput1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatusCoord1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatusStrip2 = New System.Windows.Forms.StatusStrip()
Me.StatusOutput2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatusCoord2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.TsMain1 = New EgtUILib.tsMain()
Me.TsRendering1 = New EgtUILib.tsRendering()
Me.TsZoom1 = New EgtUILib.tsZoom()
Me.TsLookFrom1 = New EgtUILib.tsLookFrom()
Me.TsExec1 = New EgtUILib.tsExec()
Me.TsInfo1 = New EgtUILib.tsInfo()
Me.ToolStripContainer1.ContentPanel.SuspendLayout()
Me.ToolStripContainer1.TopToolStripPanel.SuspendLayout()
Me.ToolStripContainer1.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.StatusStrip2.SuspendLayout()
Me.SuspendLayout()
'
'ToolStripContainer1
@@ -49,7 +60,7 @@ Partial Class Form1
'
Me.ToolStripContainer1.ContentPanel.Controls.Add(Me.TableLayoutPanel1)
Me.ToolStripContainer1.ContentPanel.Margin = New System.Windows.Forms.Padding(2)
Me.ToolStripContainer1.ContentPanel.Size = New System.Drawing.Size(656, 279)
Me.ToolStripContainer1.ContentPanel.Size = New System.Drawing.Size(681, 279)
Me.ToolStripContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ToolStripContainer1.Location = New System.Drawing.Point(0, 0)
Me.ToolStripContainer1.Margin = New System.Windows.Forms.Padding(2)
@@ -60,10 +71,12 @@ Partial Class Form1
'
'ToolStripContainer1.TopToolStripPanel
'
Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.TsZoom1)
Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.TsMain1)
Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.TsRendering1)
Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.TsZoom1)
Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.TsLookFrom1)
Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.TsExec1)
Me.ToolStripContainer1.TopToolStripPanel.Controls.Add(Me.TsInfo1)
'
'TableLayoutPanel1
'
@@ -74,33 +87,38 @@ Partial Class Form1
Me.TableLayoutPanel1.Controls.Add(Me.Scene1, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Scene2, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.GroupBox1, 2, 0)
Me.TableLayoutPanel1.Controls.Add(Me.StatusStrip1, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.StatusStrip2, 1, 1)
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(2)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowCount = 2
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(656, 279)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(681, 279)
Me.TableLayoutPanel1.TabIndex = 0
'
'Scene1
'
Me.Scene1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Scene1.Cursor = System.Windows.Forms.Cursors.Default
Me.Scene1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Scene1.Location = New System.Drawing.Point(2, 2)
Me.Scene1.Margin = New System.Windows.Forms.Padding(2)
Me.Scene1.Name = "Scene1"
Me.Scene1.Size = New System.Drawing.Size(302, 275)
Me.Scene1.Size = New System.Drawing.Size(315, 255)
Me.Scene1.TabIndex = 0
'
'Scene2
'
Me.Scene2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Scene2.Cursor = System.Windows.Forms.Cursors.Default
Me.Scene2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Scene2.Location = New System.Drawing.Point(308, 2)
Me.Scene2.Location = New System.Drawing.Point(321, 2)
Me.Scene2.Margin = New System.Windows.Forms.Padding(2)
Me.Scene2.Name = "Scene2"
Me.Scene2.Size = New System.Drawing.Size(302, 275)
Me.Scene2.Size = New System.Drawing.Size(315, 255)
Me.Scene2.TabIndex = 1
'
'GroupBox1
@@ -109,7 +127,7 @@ Partial Class Form1
Me.GroupBox1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.GroupBox1.Controls.Add(Me.RadioButton2)
Me.GroupBox1.Controls.Add(Me.RadioButton1)
Me.GroupBox1.Location = New System.Drawing.Point(614, 2)
Me.GroupBox1.Location = New System.Drawing.Point(640, 2)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(2)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(2)
@@ -141,15 +159,63 @@ Partial Class Form1
Me.RadioButton1.Text = "1"
Me.RadioButton1.UseVisualStyleBackColor = True
'
'TsZoom1
'StatusStrip1
'
Me.TsZoom1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.TsZoom1.Dock = System.Windows.Forms.DockStyle.None
Me.TsZoom1.Location = New System.Drawing.Point(384, 0)
Me.TsZoom1.Name = "TsZoom1"
Me.TsZoom1.Size = New System.Drawing.Size(81, 25)
Me.TsZoom1.TabIndex = 2
Me.TsZoom1.Text = "TsZoom1"
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StatusOutput1, Me.StatusCoord1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 259)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(319, 20)
Me.StatusStrip1.TabIndex = 3
Me.StatusStrip1.Text = "StatusStrip1"
'
'StatusOutput1
'
Me.StatusOutput1.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.StatusOutput1.Name = "StatusOutput1"
Me.StatusOutput1.Size = New System.Drawing.Size(119, 15)
Me.StatusOutput1.Spring = True
Me.StatusOutput1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'StatusCoord1
'
Me.StatusCoord1.AutoSize = False
Me.StatusCoord1.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.StatusCoord1.Name = "StatusCoord1"
Me.StatusCoord1.Size = New System.Drawing.Size(185, 15)
Me.StatusCoord1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'StatusStrip2
'
Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StatusOutput2, Me.StatusCoord2})
Me.StatusStrip2.Location = New System.Drawing.Point(319, 259)
Me.StatusStrip2.Name = "StatusStrip2"
Me.StatusStrip2.Size = New System.Drawing.Size(319, 20)
Me.StatusStrip2.TabIndex = 4
Me.StatusStrip2.Text = "StatusStrip2"
'
'StatusOutput2
'
Me.StatusOutput2.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.StatusOutput2.Name = "StatusOutput2"
Me.StatusOutput2.Size = New System.Drawing.Size(119, 15)
Me.StatusOutput2.Spring = True
Me.StatusOutput2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'StatusCoord2
'
Me.StatusCoord2.AutoSize = False
Me.StatusCoord2.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.StatusCoord2.Name = "StatusCoord2"
Me.StatusCoord2.Size = New System.Drawing.Size(185, 15)
Me.StatusCoord2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TsMain1
'
@@ -157,7 +223,7 @@ Partial Class Form1
Me.TsMain1.Dock = System.Windows.Forms.DockStyle.None
Me.TsMain1.Location = New System.Drawing.Point(3, 0)
Me.TsMain1.Name = "TsMain1"
Me.TsMain1.Size = New System.Drawing.Size(150, 25)
Me.TsMain1.Size = New System.Drawing.Size(127, 25)
Me.TsMain1.TabIndex = 0
Me.TsMain1.Text = "TsMain1"
'
@@ -165,27 +231,56 @@ Partial Class Form1
'
Me.TsRendering1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.TsRendering1.Dock = System.Windows.Forms.DockStyle.None
Me.TsRendering1.Location = New System.Drawing.Point(303, 0)
Me.TsRendering1.Location = New System.Drawing.Point(130, 0)
Me.TsRendering1.Name = "TsRendering1"
Me.TsRendering1.Size = New System.Drawing.Size(81, 25)
Me.TsRendering1.TabIndex = 1
Me.TsRendering1.Text = "TsRendering1"
'
'TsZoom1
'
Me.TsZoom1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.TsZoom1.Dock = System.Windows.Forms.DockStyle.None
Me.TsZoom1.Location = New System.Drawing.Point(211, 0)
Me.TsZoom1.Name = "TsZoom1"
Me.TsZoom1.Size = New System.Drawing.Size(81, 25)
Me.TsZoom1.TabIndex = 2
Me.TsZoom1.Text = "TsZoom1"
'
'TsLookFrom1
'
Me.TsLookFrom1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.TsLookFrom1.Dock = System.Windows.Forms.DockStyle.None
Me.TsLookFrom1.Location = New System.Drawing.Point(153, 0)
Me.TsLookFrom1.Location = New System.Drawing.Point(292, 0)
Me.TsLookFrom1.Name = "TsLookFrom1"
Me.TsLookFrom1.Size = New System.Drawing.Size(150, 25)
Me.TsLookFrom1.TabIndex = 3
'
'TsExec1
'
Me.TsExec1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.TsExec1.Dock = System.Windows.Forms.DockStyle.None
Me.TsExec1.Location = New System.Drawing.Point(442, 0)
Me.TsExec1.Name = "TsExec1"
Me.TsExec1.Size = New System.Drawing.Size(35, 25)
Me.TsExec1.TabIndex = 4
'
'TsInfo1
'
Me.TsInfo1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.TsInfo1.Dock = System.Windows.Forms.DockStyle.None
Me.TsInfo1.Location = New System.Drawing.Point(477, 0)
Me.TsInfo1.Name = "TsInfo1"
Me.TsInfo1.Size = New System.Drawing.Size(58, 25)
Me.TsInfo1.TabIndex = 5
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(681, 304)
Me.Controls.Add(Me.ToolStripContainer1)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "Form1"
@@ -199,6 +294,10 @@ Partial Class Form1
Me.TableLayoutPanel1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.StatusStrip2.ResumeLayout(False)
Me.StatusStrip2.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -213,5 +312,13 @@ End Sub
Friend WithEvents TsRendering1 As EgtUILib.tsRendering
Friend WithEvents TsZoom1 As EgtUILib.tsZoom
Friend WithEvents TsLookFrom1 As EgtUILib.tsLookFrom
Friend WithEvents TsExec1 As EgtUILib.tsExec
Friend WithEvents TsInfo1 As EgtUILib.tsInfo
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents StatusOutput1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents StatusCoord1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip
Friend WithEvents StatusOutput2 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents StatusCoord2 As System.Windows.Forms.ToolStripStatusLabel
End Class
Form1.resx
+17 -2
View File
@@ -117,8 +117,11 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="TsZoom1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>304, 17</value>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>754, 16</value>
</metadata>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>873, 15</value>
</metadata>
<metadata name="TsMain1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
@@ -126,9 +129,21 @@
<metadata name="TsRendering1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>139, 17</value>
</metadata>
<metadata name="TsZoom1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>304, 17</value>
</metadata>
<metadata name="TsLookFrom1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>433, 17</value>
</metadata>
<metadata name="TsExec1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>558, 17</value>
</metadata>
<metadata name="TsInfo1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>652, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>39</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Form1.vb
+63 -16
View File
@@ -25,9 +25,12 @@ Public Class Form1
'Inizializzazione delle viste
Scene1.Init()
Scene2.Init()
'Impostazioni modificabili vista 2 (vanno fatte dopo Init)
EgtSetMarkAttribs(Scene2.GetCtx(), 128, 255, 255)
EgtSetGeoLineAttribs(Scene2.GetCtx(), 0, 255, 0)
EgtSetWinRectAttribs(Scene2.GetCtx(), False, 255, 128, 128, 30)
'Attiva scena 1
RadioButton1.Checked = True
EnableView(Scene1)
OnMouseDownScene(Scene1)
'Posizione e dimensioni del Form
If ModifierKeys <> Keys.Shift Then
Dim nFlag As Integer
@@ -51,38 +54,80 @@ Public Class Form1
EgtExit()
End Sub
Private Sub OnMouseSelected1(ByVal sender As Object, ByVal nId As Integer) Handles Scene1.OnMouseSelected
If EgtIsSelectedObj(Scene1.GetCtx(), nId) Then
EgtDeselectObj(Scene1.GetCtx(), nId)
Private Sub OnMouseSelected(ByVal sender As Object, ByVal nId As Integer) Handles Scene1.OnMouseSelected, Scene2.OnMouseSelected
If EgtIsSelectedObj(sender.GetCtx(), nId) Then
EgtDeselectObj(sender.GetCtx(), nId)
Else
EgtSelectObj(Scene1.GetCtx(), nId)
EgtSelectObj(sender.GetCtx(), nId)
End If
EgtDraw(Scene1.GetCtx())
EgtDraw(sender.GetCtx())
End Sub
Private Sub OnMouseSelected2(ByVal sender As Object, ByVal nId As Integer) Handles Scene2.OnMouseSelected
If EgtIsSelectedObj(Scene2.GetCtx(), nId) Then
EgtDeselectObj(Scene2.GetCtx(), nId)
Private Sub OnMouseAnalyzed(ByVal sender As Object, ByVal nId As Integer) Handles Scene1.OnMouseAnalyzed, Scene2.OnMouseAnalyzed
Dim sOut As String = String.Empty
If (EgtGeoObjDump(sender.GetCtx(), nId, sOut)) Then
EgtSetMark(sender.GetCtx(), nId)
EgtDraw(sender.GetCtx())
Dim AnalDlg As New AnalyzeDlg
AnalDlg.SetText(sOut)
AnalDlg.ShowDialog()
End If
EgtResetMark(sender.GetCtx(), nId)
EgtDraw(sender.GetCtx())
TsInfo1.btnAnalyze.Checked = False
sender.ResetStatusAnalyze()
End Sub
Private Sub OnMouseDownScene(ByVal sender As Object) Handles Scene1.OnMouseDownScene, Scene2.OnMouseDownScene
If sender.GetCtx() = 1 Then
RadioButton1.Checked = True
Else
EgtSelectObj(Scene2.GetCtx(), nId)
RadioButton2.Checked = True
End If
EgtDraw(Scene2.GetCtx())
End Sub
Private Sub OnMouseDownScene1(ByVal sender As Object) Handles Scene1.OnMouseDownScene
RadioButton1.Checked = True
Private Sub OnCursorPos(ByVal sender As Object, ByVal sCursorPos As String) Handles Scene1.OnCursorPos, Scene2.OnCursorPos
If sender.GetCtx() = 1 Then
StatusCoord1.Text = sCursorPos
Else
StatusCoord2.Text = sCursorPos
End If
End Sub
Private Sub OnMouseDownScene2(ByVal sender As Object) Handles Scene2.OnMouseDownScene
RadioButton2.Checked = True
Private Sub OnShowDistance(ByVal sender As Object, ByVal sDistance As String) Handles Scene1.OnShowDistance, Scene2.OnShowDistance
If sender.GetCtx() = 1 Then
StatusOutput1.Text = sDistance
Else
StatusOutput2.Text = sDistance
End If
End Sub
Private Sub OnCloseGetDist1(ByVal sender As Object) Handles Scene1.OnCloseGetDist, Scene2.OnCloseGetDist
If sender.GetCtx() = 1 Then
StatusOutput1.Text = " "
Else
StatusOutput2.Text = " "
End If
End Sub
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
TsInfo1.btnGetDist.Checked = False
TsInfo1.btnAnalyze.Checked = False
Dim nShowMode As Integer
If RadioButton1.Checked Then
Scene2.CloseGetDistance()
Scene2.ResetStatusAnalyze()
EnableView(Scene1)
nShowMode = EgtGetShowMode(Scene1.GetCtx())
Else
Scene1.CloseGetDistance()
Scene1.ResetStatusAnalyze()
EnableView(Scene2)
nShowMode = EgtGetShowMode(Scene2.GetCtx())
End If
TsRendering1.btnWireframe.Checked = (nShowMode = SM_WIREFRAME)
TsRendering1.btnHiddenLine.Checked = (nShowMode = SM_HIDDENLINE)
TsRendering1.btnShading.Checked = (nShowMode = SM_SHADING)
End Sub
Private Sub EnableView(ByRef scene As EgtUILib.Scene)
@@ -90,6 +135,8 @@ Public Class Form1
TsRendering1.SetScene(scene)
TsLookFrom1.SetScene(scene)
TsZoom1.SetScene(scene)
TsExec1.SetScene(scene)
TsInfo1.SetScene(scene)
EgtLuaSetContext(scene.GetCtx())
End Sub
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -43,5 +43,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.10.1")>
<Assembly: AssemblyFileVersion("1.5.10.1")>
<Assembly: AssemblyVersion("1.5.10.2")>
<Assembly: AssemblyFileVersion("1.5.10.2")>