This commit is contained in:
2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions

View File

@@ -0,0 +1,265 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBtnExit.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AACYDgAAAk1TRnQBSQFMAgEBDAEAAQ4BAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AOAAB
rgRmAa4BzwVKAZkzAAFJAbUB7wFmAbUB6wYaAUoyAAHvBmYB7wX/AUoxAAFJAWYB7wHxAd0B7wGuAe8B
ZgX/AUowAAGZAUkBZgHzBLUBCQFmBOsB/wFKMAABSQFOAWYB8wS1Ad0BZgX/AUowAAFJAU4BZgHzBLUB
3QFmAesB/wFzA+swAAFJAXEBZgHvA/MB8QHvAWYC/wHrAf8BSgEaMAABSQFxAe8GZgHvAv8B6wFKARoB
STAAAUkBTgZxAZkE6wEaAU4BSTAAAUkBTgJxAv8BcQL/AXEC/wJxAU4BSTAAAZkBSQFOAXEC/wFxAv8B
cQL/AXEBTgFJAZkxAAJJCnECSTMAAkkBTgZxAU4CSTUAAkkCTgJxAk4CSTcAAZkGSQGZBAAgByAAAgcI
AAgHCAAGByAAAgcBAAX/AQcCAAcHAQAF/wEHAgAFBwMAAewBBwH7AgcBAAPsFAACBwEAAf8BBwH6AQcB
/wEHAQABBwEABgcBAAH/AQcB+gEHAf8BBwEAAQcBAAQHAwAB7AP/AfsB/wEAAfsBBwLsEgACBwEAAf8B
BwH6AQcB/wEHAQAB/wEHAQAFBwEAAf8BBwH6AQcB/wEHAQAB/wEHAQADBwQAAewB+wP/AfsBAAH/AfsB
BwHsEQACBwEABv8FAAQHAQAG/wUAAgcEAAHsAv8B+wL/AQAB/wIAAewRAAIHAQAB/wMAAwcD/wEABAcB
AAT/AwcD/wEAAgcFAAHsA/8B+wHsAQAB/wH7AQcRAAIHAQAB/wL8AQQEBwL/AQAEBwEAA/8FBwL/AQAC
BwcAAfsD/wH7Av8BBxEAAgcBAAEHAvwBBAUHAf8BAAMHCQACBwH/AQACBwUAAgEBAAH/AfsD/wH7AQcR
AAEHAwQC/AMEAQACBwH/AQACBwn5AQACBwH/AQACBwEAAgEDAAEBAQAD/wH7Av8BBxEAAQcI/AEAAgcB
/wEAAgcJ+QEAAgcB/wEAAgcBAAH5AQEBAAH5AQABAQMAA/8B+wEHEQABBwX8AwQE/wEAAgcJ+QEAA/8B
AAIHAQAC+QIAAvkBAAP/AfsC/wEHEQACBwEAAf8C/AEEAQcF/wEAAgcJ+QT/AQACBwcAAv8B+wP/AfsB
BxEAAgcBAAH/AvwBBAb/AQAEBwEACv8BAAIHBQAB7AH/AfsD/wH7Av8BBxEAAgcBAAr/AQAEBwEACv8B
AAIHBQAK7BEAAgcMAAQHDAACB0AAIAcGAAEDAf8KAAsTAwAgBwQAAewBAwHsAf8JAAETCbwBEwG8ARMC
ACAHAgABAwHsAQMB7AEDAf8IAA0TAbwBEwEACQcB7wGSAuwIBwHsAfcJBwEAAQMB7AEDAewBAwHsAf8B
AAHsBgABEwa8A14CvAMTAQAIBwHsAesBEgEAAewIBwEOAesB7AgHAQAB7AEDAewBAwHsAQMB/wEAAewG
AAETBrwD7wK8ARMBvAETAQAGBwHtAewBEAEOAgAB7AgHAgABEALsAZIFBwEAAQMB7AEDAgAB7AH/AQAB
7AYADRMCvAETBQcB7AESBQAB7AgHBAABQwHqBQcBAAHsAQMB7AIHAQMB/wEAAewBAAEGBAABEwq8ARMB
vAETAbwBEwQHAW0HAAHsCAcHAAQHAQABAwHsAQMB7AEDAewB/wIAAQYF/gEAChMBvAETAbwCEwQHAZIB
bQYAAewIBwUAAQ8B7AQHAQAB7AEDAewBAwHsAQMB/wEAAW0G/gIAARMI/wETAbwBEwG8ARMHBwFDBAAB
7AgHAwABQwHsBgcBAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQMAARMB/wUTAf8EEwEACAcB7wEVAgAB
7AgHAgAB7wgHAQAB7AEDAewBAwHsAQMB/wEAAewBAAJtBgABEwj/ARMDAAoHAe8BbQkHAW0KBwEAAQMB
7AEDAewBBwH/AewBAAHsAgABbQcAARMB/wUTAf8BEwMAIAcBAAHsAQMBBwH/AewBAAPsCgABEwj/ARMC
ACAHAQABBwH/AewBAAXsCwAJEwIAIAcgACAHAUIBTQE+BwABPgMAASgDAAFAAwABQAMAAQEBAAEBBgAB
AhYAA/+BAAb/AeABAAP/AX8B/gH/AeABAAH+Aa8E/wHAAQAC/wH9AVUBqgG/AYABAAHwAS8B+QL/AZ8C
AAHwAT8B8AEFAaABDwIAAfABLwHgAQcB4AEHAgAB8AE/AcABBQGgAQMCAAHwASsBgAEHAeABAQIAAfAB
PwHAAQUBoAEDAgABwAEPAeABBwHgAQcCAAHgAR8B8AEHAeABDwIAAfABPwH5Av8BnwGAAQEB+AF/Af0C
/wG/AcABAwH8Bf8B4AEHBv8B8AEPBAAE/wQAAfABDwH+Af8EAAHgAQMB/AF/BAAB4AEBAfgBPwQAAfAB
AAHwAR8EAAHwAQAB4AEPBAAB+AEAAcABBwQAAfgBAAHwAT8EAAGQAQAB8AErBgAB8AE/BgAB8AEvBgAB
8AE/BAABmAEAAfABLwQAAfgBAAL/BAAB+AEAAf4BrwQABP8B/AF/Av8EAAHwAX8BwAEHBAABwAF/AYAB
AwUAAR8BAAEBBQABHwEAAQEFAAEXAQABAQUAAQcQAAGABwABwAcAAeABAQUAAQcB4AEHBQABFwHwAQcF
AAEfAfABAwUAAR8B+AEDBQABHwL/BAAL
</value>
</data>
<data name="PrintDocument1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>123, 17</value>
</data>
<data name="PrintDocument1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="NoteLabel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="OnDemand.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="OnDemand.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAA
AAIBAAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAKlUAACg2AAAAAAAACw==
</value>
</data>
<data name="$this.Name">
<value>frmcoldviewer</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AP/////////////////////////////w///////////////////w
Dw//////////////////D//w////////////////8P///w//////////////8A/////w////////////
/w///////w////////////D////////w//////////AP/////////w////////8P///////////w////
///w////////////8P///////w////////////8P///////w////////////8P///////w//////////
//8P///////w////////////8P///////w////////////8P///////w////////////8P///////w//
//////////8P///////w////////////8P//////8P////////////8P//////8P//////////8A////
////8P/////////w//////////8P///////wD///////////8P//////D/////////////8P////AP//
////////////8P//8P////////////////8P8A//////////////////8A///////////////////wD/
//////////////////D/////////////////////////////////////////////////////AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAoAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
AACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AP////9P///////4d/eP
////+Hf//3j///h3////94//V/+I/4j/eP9X+P+IiIj3j/h/iIiIiI9//4cIiIiI/3H/c3+IiP/4gf8z
d4j/j/9/9zf4f4eId//zOP+HiHf///F///h3/////4//////////////////////////////AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@@ -0,0 +1,771 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports UtilityLibrary.Win32
Public Class frmcoldviewer
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents ToolBtnExit As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
Friend WithEvents NoteLabel As System.Windows.Forms.Label
Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton9 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton10 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton11 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton12 As System.Windows.Forms.ToolBarButton
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents OnDemand As AxARSOLELib.AxArsOle
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmcoldviewer))
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.ToolBtnExit = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton9 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton10 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton11 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton12 = New System.Windows.Forms.ToolBarButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
Me.NoteLabel = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.OnDemand = New AxARSOLELib.AxArsOle()
Me.Panel1.SuspendLayout()
CType(Me.OnDemand, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBtnExit, Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8, Me.ToolBarButton9, Me.ToolBarButton10, Me.ToolBarButton11, Me.ToolBarButton12})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(824, 25)
Me.ToolBar1.TabIndex = 0
'
'ToolBtnExit
'
Me.ToolBtnExit.ImageIndex = 0
Me.ToolBtnExit.ToolTipText = "Fenster schliessen"
'
'ToolBarButton1
'
Me.ToolBarButton1.ImageIndex = 1
Me.ToolBarButton1.ToolTipText = "Dokument drucken"
'
'ToolBarButton2
'
Me.ToolBarButton2.ImageIndex = 9
Me.ToolBarButton2.ToolTipText = "Vorherige Seite"
'
'ToolBarButton3
'
Me.ToolBarButton3.ImageIndex = 10
Me.ToolBarButton3.ToolTipText = "Nächste Seite"
'
'ToolBarButton4
'
Me.ToolBarButton4.ImageIndex = 5
Me.ToolBarButton4.ToolTipText = "Ansicht verkleinern"
'
'ToolBarButton5
'
Me.ToolBarButton5.ImageIndex = 4
Me.ToolBarButton5.ToolTipText = "Ansicht vergrössern"
'
'ToolBarButton6
'
Me.ToolBarButton6.ImageIndex = 6
Me.ToolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
'
'ToolBarButton7
'
Me.ToolBarButton7.ImageIndex = 6
Me.ToolBarButton7.Visible = False
'
'ToolBarButton8
'
Me.ToolBarButton8.ImageIndex = 6
Me.ToolBarButton8.Visible = False
'
'ToolBarButton9
'
Me.ToolBarButton9.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
'
'ToolBarButton10
'
Me.ToolBarButton10.ImageIndex = 8
Me.ToolBarButton10.ToolTipText = "Vorheriges Dokument"
'
'ToolBarButton11
'
Me.ToolBarButton11.ImageIndex = 7
Me.ToolBarButton11.ToolTipText = "Nächstes Dokument"
'
'ToolBarButton12
'
Me.ToolBarButton12.ImageIndex = 11
Me.ToolBarButton12.ToolTipText = "Dokument mit COLD-Viewer anzeigen"
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'NoteLabel
'
Me.NoteLabel.Location = New System.Drawing.Point(232, 8)
Me.NoteLabel.Name = "NoteLabel"
Me.NoteLabel.Size = New System.Drawing.Size(216, 16)
Me.NoteLabel.TabIndex = 3
Me.NoteLabel.Text = "Dokument 1 von 1"
'
'Panel1
'
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.OnDemand})
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(824, 524)
Me.Panel1.TabIndex = 4
'
'OnDemand
'
Me.OnDemand.ContainingControl = Me
Me.OnDemand.Dock = System.Windows.Forms.DockStyle.Fill
Me.OnDemand.Enabled = True
Me.OnDemand.Name = "OnDemand"
Me.OnDemand.OcxState = CType(resources.GetObject("OnDemand.OcxState"), System.Windows.Forms.AxHost.State)
Me.OnDemand.Size = New System.Drawing.Size(824, 524)
Me.OnDemand.TabIndex = 1
'
'frmcoldviewer
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.AutoScroll = True
Me.AutoScrollMargin = New System.Drawing.Size(100, 0)
Me.AutoScrollMinSize = New System.Drawing.Size(100, 100)
Me.ClientSize = New System.Drawing.Size(824, 549)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1, Me.NoteLabel, Me.ToolBar1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmcoldviewer"
Me.ShowInTaskbar = False
Me.Text = "Edoka-Cold-Dokumentviewer"
Me.TransparencyKey = System.Drawing.Color.White
Me.Panel1.ResumeLayout(False)
CType(Me.OnDemand, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim m_scolddokumentid As String
Property Colddokumentid() As String
Get
Return m_scolddokumentid
End Get
Set(ByVal Value As String)
m_scolddokumentid = Value
End Set
End Property
Dim m_dokumentid As String
Property DokumentId() As String
Get
Return m_dokumentid
End Get
Set(ByVal Value As String)
m_dokumentid = Value
End Set
End Property
Dim m_partnernr As String
Property PartnerNr() As String
Get
Return m_partnernr
End Get
Set(ByVal Value As String)
m_partnernr = Value
While Len(m_partnernr) < 9
m_partnernr = "0" & m_partnernr
End While
End Set
End Property
Dim m_dokumenttyp As Integer
Property Dokumenttyp() As Integer
Get
Return m_dokumenttyp
End Get
Set(ByVal Value As Integer)
m_dokumenttyp = Value
End Set
End Property
Dim m_colddokumentid As String
Dim m_coldfolder As String
Dim server
Dim user
Dim pw
Dim xnumdocs
Dim xnumfields
Dim xname As String
Dim i
Dim v1
Dim v2
Dim numservers
Dim rc As Short
Dim ret As Short
Dim tmp
Dim WithEvents hscrol As New HScrollBar()
Dim WithEvents vscrol As New VScrollBar()
Dim m_currentpage As Integer
Property CurrentPage() As Integer
Get
Return m_currentpage
End Get
Set(ByVal Value As Integer)
m_currentpage = Value
End Set
End Property
#End Region
Public zf As Short = 100
Public o As Object
Public k As Object
Dim first As Boolean = True
Dim txtuser As String = ""
Dim txtdatetime As String = ""
Dim txttext As String = ""
Dim page As Object
Dim publ As Object
Dim copied As Object
Dim numnote As Object
Dim notes As New DataTable()
#Region "Datenzugriffe"
Private Function Get_Cold_Data_by_Dokumentid()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_get_coldfolder_by_documentid"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
Try
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentId))
sdaAdapter.Fill(dtToReturn)
If Me.Colddokumentid = "" Then
Me.m_colddokumentid = dtToReturn.Rows(0).Item(1)
Else
Me.m_colddokumentid = Me.Colddokumentid
End If
Me.m_coldfolder = dtToReturn.Rows(0).Item(0)
Catch ex As Exception
Throw New Exception("Get_Cold_Folder :" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function Get_Cold_Data_by_Dokumenttyp()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_get_coldfolder_by_documenttyp"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
Try
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttyp))
sdaAdapter.Fill(dtToReturn)
Me.m_coldfolder = dtToReturn.Rows(0).Item(0)
Catch ex As Exception
Throw New Exception("Get_Cold_Folder :" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#End Region
#Region "COLD_Ondemand_Funktionen"
Public Function Cold_Login() As Boolean
server = Globals.Applikationsdaten.Rows(0).Item("coldsystem")
user = Globals.Applikationsdaten.Rows(0).Item("colduser")
pw = Globals.Applikationsdaten.Rows(0).Item("coldpassword")
Me.OnDemand.SetUserMessageMode(2)
Me.OnDemand.Logon(server, user, pw)
If ret <> 0 And ret <> 8 Then
MsgBox("Die Anmeldung am COLD ist fehlgeschlagen", MsgBoxStyle.Exclamation)
Cold_Login = False
Exit Function
End If
Cold_Login = True
End Function
Public Function Show_Dokument(ByVal folder As String, ByVal dokumentid As String)
Dim rc
Dim ret
Dim xnumdocs
Try
ret = Me.OnDemand.SetUserMessageMode(0)
ret = Me.OnDemand.OpenFolder(folder)
If ret <> 0 Then
MsgBox("Der gewählte Order " & folder & " kann nicht geöffnet werden", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
ret = Me.OnDemand.ClearFolderSearchFields()
If ret <> 0 Then
MsgBox("Die Suchliste konnte nicht initialisiert werden", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
Dim xx As String
xx = ""
ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 11, dokumentid, xx)
If ret <> 0 Then
MsgBox("Fehler beim setzen des Suchkriteriums", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
ret = Me.OnDemand.SearchFolder(False)
If ret <> 0 Then
MsgBox("Beim Zugriff auf das COLD ist ein Fehler aufgetreten", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
ret = Me.OnDemand.GetNumDocsInList(xnumdocs)
If xnumdocs < 1 Then
MsgBox("Es sind keine Dokumente gefunden worden.", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
Me.OnDemand.OpenDoc(0, "", 0)
get_annotations()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
#End Region
'shu coldanzeige
Dim m_collectionentry As Integer = 1
Property CollectionEntry() As Integer
Get
Return m_collectionentry
End Get
Set(ByVal Value As Integer)
m_collectionentry = Value
End Set
End Property
Dim m_data As New Collection()
Property dokdata() As Collection
Get
Return m_data
End Get
Set(ByVal Value As Collection)
m_data = Value
End Set
End Property
Public Sub New(ByVal datacollection As Collection)
MyBase.New()
InitializeComponent()
Me.dokdata = datacollection
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
show_doc(Me.CollectionEntry)
'Dim m_dokument As New edokadb.clsDokument()
'Get_Cold_Data_by_Dokumentid()
'If Not Cold_Login() Then Exit Sub
'Me.ondemand.BackColor = System.Drawing.Color.White
'Me.CurrentPage = 1
'Me.notes.Columns.Add("ID")
'Me.notes.Columns.Add("Text")
'Me.notes.Columns.Add("UserID")
'Me.notes.Columns.Add("DateTime")
'Me.notes.Columns.Add("Page")
'Me.notes.Columns.Add("ispublic")
'Me.notes.Columns.Add("canbecopied")
'Me.notes.Columns.Add("status")
'Show_Dokument(Me.m_coldfolder, Me.m_colddokumentid)
End Sub
Dim folder As String
Dim belegart As String
Dim numpages As Integer
Dim curpage As Integer
Dim coldata As clsMehrfachdruck_Data
Public Sub show_doc(ByVal collectionentry As Integer)
Dim xnumdocs
Dim xnumfields
Dim xname As String
Dim i
Dim v1
Dim v2
Dim numservers
Dim rc As Short
Dim ret As Short
Dim tmp
coldata = Me.dokdata.Item(collectionentry)
If Not Me.Cold_Login Then
MsgBox("Login to Cold failed")
Exit Sub
End If
Me.NoteLabel.Text = "Dokument " + Me.CollectionEntry.ToString + " von " + Me.dokdata.Count.ToString
' Select Case coldata.Enum_Typ
' Case coldata.Enum_Typ.ZV
belegart = "ZV"
folder = "TGKB ZV-Scanning Belege (erweiterte Suche)"
' Case coldata.Enum_Typ.HOST
'belegart = "HOST"
'folder = "TGKB Kundenoutput AGI-OMS für EDOKA User"
' Case coldata.Enum_Typ.EDOKA
' End Select
ret = Me.OnDemand.SetUserMessageMode(0)
ret = Me.OnDemand.OpenFolder(folder)
If ret <> 0 Then
MsgBox("Der gewählte Order " & folder & " kann nicht geöffnet werden", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Sub
End If
rc = Me.OnDemand.GetNumFolderSearchFields(xnumfields)
For i = 0 To xnumfields - 1
tmp = ""
ret = OnDemand.GetFolderSearchFieldName(i, tmp)
Next
ret = Me.OnDemand.ClearFolderSearchFields()
If ret <> 0 Then
MsgBox("Die Suchliste konnte nicht initialisiert werden", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Sub
End If
Dim xx As String
xx = ""
'Hutter 2004-10-04 Aktivierung COLD-Print
Select Case belegart
Case "HOST"
ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 1, coldata.DokumentId, xx)
ret = Me.OnDemand.SetFolderSearchFieldData("Erstellung od. Valuta Datum", 1, coldata.Erstellungsdatum, xx)
Case "UVM"
Case "ZV"
ret = Me.OnDemand.SetFolderSearchFieldData("Dokumenttyp", 1, coldata.DokumentTyp, xx)
ret = Me.OnDemand.SetFolderSearchFieldData("Auftrag-Nr.", 1, coldata.Auftragnr, xx)
ret = Me.OnDemand.SetFolderSearchFieldData("Paginator", 1, coldata.DokumentId, xx)
Case Else
Dim s As String
' s = Trim(Me.PartnerNr)
' While Len(s) < 9
' s = "0" + s
' End While
' ret = Me.OnDemand.SetFolderSearchFieldData("Partner-Nr.", 1, s, xx)
ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 11, DokumentId, xx)
End Select
'If Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User" Then
' ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 1, Me.DokumentId, xx)
' ret = Me.OnDemand.SetFolderSearchFieldData("Erstellung od. Valuta Datum", 1, Me.Erstellungsdatum, xx)
'Else
' ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 11, dokumentid, xx)
'End If
If ret <> 0 Then
MsgBox("Fehler beim setzen des Suchkriteriums", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Sub
End If
ret = Me.OnDemand.SearchFolder(False)
If ret <> 0 Then
MsgBox("Beim Zugriff auf das COLD ist ein Fehler aufgetreten", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Sub
End If
ret = Me.OnDemand.GetNumDocsInList(xnumdocs)
If xnumdocs < 1 Then
If Not DivFnkt.BDR_Dokument(Me.DokumentId) Then
MyMsg.show_standardmessage(81, MsgBoxStyle.Information)
Else
MyMsg.show_standardmessage(275, MsgBoxStyle.Information)
End If
Me.OnDemand.Logoff()
Exit Sub
End If
Try
Me.OnDemand.CloseDoc()
Catch
End Try
Me.OnDemand.OpenDoc(0, "", 0)
Dim o As Object
o = Nothing
ret = OnDemand.GetDocNumPages(o)
If ret = 0 Then Me.numpages = o
o = Nothing
ret = OnDemand.GetDocCurrentPage(o)
If ret = 0 Then Me.curpage = o
If first Then
first = False
zf = 75
o = Nothing
k = Nothing
ret = Me.OnDemand.SetDocZoom(zf, o, k)
End If
o = Nothing
k = Nothing
ret = Me.OnDemand.SetDocZoom(zf, o, k)
Me.CurrentPage = 1
End Sub
Public Function get_annotations()
Dim rc As DataRowCollection
Dim newrow As DataRow()
rc = notes.Rows
Dim rowvals(7) As Object
Dim i As Integer
ret = Me.OnDemand.GetNumDocAnnotations(Me.numnote)
For i = 0 To Me.numnote - 1
ret = Me.OnDemand.GetAnnotationForDoc(i, txttext, txtuser, txtdatetime, page, publ, copied)
rowvals(0) = i
rowvals(1) = txttext
rowvals(2) = txtuser
rowvals(3) = txtdatetime
rowvals(4) = page
rowvals(5) = publ
rowvals(6) = copied
rowvals(7) = ""
notes.Rows.Add(rowvals)
Next
'If Me.numnote > 0 Then
' Me.NoteCount.Text = Me.numnote.ToString
' Me.NoteCount.Visible = True
' Me.NoteLabel.Visible = True
'Else
' Me.NoteCount.Visible = False
' Me.NoteLabel.Visible = False
'End If
End Function
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
Me.Close()
Case 1
Me.OnDemand.PrintDoc(-1, 0, Me.PrintDocument1.PrinterSettings.PrinterName, True, 1, 3, 0.5, 0.5, 0.5, 0.5, False)
Me.CurrentPage = Me.CurrentPage - 1
ret = Me.OnDemand.SetDocCurrentPage(Me.CurrentPage)
If ret <> 0 Then Me.CurrentPage = Me.CurrentPage + 1
Case 2
Me.CurrentPage = Me.CurrentPage - 1
ret = Me.OnDemand.SetDocCurrentPage(Me.CurrentPage)
If ret <> 0 Then Me.CurrentPage = Me.CurrentPage + 1
Case 3
Me.CurrentPage = Me.CurrentPage + 1
ret = Me.OnDemand.SetDocCurrentPage(Me.CurrentPage)
If ret <> 0 Then Me.CurrentPage = Me.CurrentPage - 1
Case 4
zf = zf - 25
o = Nothing
k = Nothing
If zf < 25 Then zf = 25
ret = Me.OnDemand.SetDocZoom(zf, o, k)
Case 5
zf = zf + 25
o = Nothing
k = Nothing
If zf > 1000 Then zf = 1000
ret = Me.OnDemand.SetDocZoom(zf, o, k)
Case 7
Dim f As New frmNotes()
f.ondemand = Me.OnDemand
f.notes = Me.notes
f.ShowDialog()
Case 10
Me.CollectionEntry = Me.CollectionEntry - 1
If Me.CollectionEntry < 1 Then Me.CollectionEntry = 1
Me.show_doc(Me.CollectionEntry)
Case 11
Me.CollectionEntry = Me.CollectionEntry + 1
If Me.CollectionEntry > Me.dokdata.Count Then Me.CollectionEntry = Me.dokdata.Count
Me.show_doc(Me.CollectionEntry)
Case 12
coldata = dokdata(Me.CollectionEntry)
DivFnkt.Erstellungsdatum = coldata.Erstellungsdatum
DivFnkt.Auftragnr = coldata.Auftragnr
DivFnkt.UVMZVDokumenttyp = coldata.DokumentTyp
DivFnkt.Belegart = "ZV"
DivFnkt.ShowColdDocHost(coldata.DokumentId, Me, coldata.DokumentId, coldata.PartnerNr, coldata.PartnerName, coldata.DokumentTyp)
Me.Cursor = Cursors.Default
End Select
End Sub
Public Function GetColdDokumente() As DataTable
Dim m_dokument As New edokadb.clsDokument()
Get_Cold_Data_by_Dokumenttyp()
If Not Me.Cold_Login Then Exit Function
Get_Folder_Documents(Me.m_coldfolder)
End Function
Private Function Get_Folder_Documents(ByVal Folder As String)
ret = Me.OnDemand.SetUserMessageMode(0)
ret = Me.OnDemand.OpenFolder(Folder)
If ret <> 0 Then
MsgBox("Der gewählte Order " & Folder & " kann nicht geöffnet werden", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
ret = Me.OnDemand.ClearFolderSearchFields()
If ret <> 0 Then
MsgBox("Die Suchliste konnte nicht initialisiert werden", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
Dim xx As String
xx = ""
ret = Me.OnDemand.SetFolderSearchFieldData("Partner-Nr.", 1, Me.PartnerNr, xx)
'ret = Me.OnDemand.SetFolderSearchFieldData("Dok.-Status", 11, "Aktuell", xx)
If ret <> 0 Then
MsgBox("Fehler beim setzen des Suchkriteriums", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
ret = Me.OnDemand.SearchFolder(False)
If ret <> 0 Then
MsgBox("Beim Zugriff auf das COLD ist ein Fehler aufgetreten", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
ret = Me.OnDemand.GetNumDocsInList(xnumdocs)
If xnumdocs < 1 Then
MsgBox("Es sind keine Dokumente gefunden worden.", MsgBoxStyle.Critical)
Me.OnDemand.Logoff()
Exit Function
End If
Dim tmp As String
Dim i As Short
Dim i1 As Short
tmp = ""
ret = OnDemand.GetNumFolderDisplayFields(xnumfields)
Dim foldernames(xnumfields) As String
For i = 0 To xnumfields - 1
tmp = Nothing
OnDemand.GetFolderDisplayFieldName(i, tmp)
foldernames(i) = tmp
MsgBox(foldernames(i))
Next
Dim t As New DataTable()
Dim newrow As DataRow
Dim rc As DataRowCollection
rc = t.Rows
Dim rowvals(xnumfields) As Object
For i = 0 To xnumdocs
For i1 = 0 To xnumfields
ret = OnDemand.GetDocDisplayValue(i, i1, tmp)
If ret = 0 Then
rowvals(i1) = tmp
End If
Next i1
newrow = rc.Add(rowvals)
Next i
End Function
Private Sub vscrol_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles vscrol.ValueChanged
Try
zf = 1
o = 60
ret = Me.OnDemand.ScrollDocVert(zf, o)
Catch ex As Exception
MsgBox(ret)
MsgBox(ex.Message)
End Try
End Sub
End Class

View File

@@ -0,0 +1,124 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmNewNote</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAIe3cIiAAAAAj/+/C3iAAAAIv/+w+3gAAAj/v/DwCAAAAI//uA
+3AAAAAL//v/cAAAARD7//twARAAEP/7/3AJEJAQAP/7cAmQCZD/+/9wAAAAD/v/+3AAAAj7//v/cAAA
CIiIiIiAAAAAAAAAAAD//wAA8A8AAOADAADgAQAA8AAAAPAAAAD4AAAA+AAAAJAAAAAAAAAAAAAAAAAA
AACYAAAA+AAAAPgAAAD//wAA
</value>
</data>
</root>

View File

@@ -0,0 +1,109 @@
Public Class frmNewNote
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmNewNote))
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Notiz"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(8, 24)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(472, 128)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(160, 160)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 2
Me.Button1.Text = "&Abbruch"
'
'Button2
'
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button2.Location = New System.Drawing.Point(240, 160)
Me.Button2.Name = "Button2"
Me.Button2.TabIndex = 3
Me.Button2.Text = "&Speichern"
'
'frmNewNote
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(496, 190)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.Button1, Me.TextBox1, Me.Label1})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmNewNote"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Neue Notiz erfassen"
Me.ResumeLayout(False)
End Sub
#End Region
Public ondemand As Object
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ret As Short
Me.TextBox1.Text = Me.TextBox1.Text + vbCrLf + vbCrLf + "----------------------------------------------------"
Me.TextBox1.Text = Me.TextBox1.Text + vbCrLf
Me.TextBox1.Text = Me.TextBox1.Text + Globals.CurrentMitarbeiterdata.Rows(0).Item("name") + " " + Globals.CurrentMitarbeiterdata.Rows(0).Item("vorname") + ", " + Globals.CurrentMitarbeiterdata.Rows(0).Item("tgnummer")
ret = Me.ondemand.AnnotateDoc(0, Me.TextBox1.Text, 1, 1, 0)
End Sub
Private Sub frmNewNote_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Abort
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,127 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmNoteDetail</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAIe3cIiAAAAAj/+/C3iAAAAIv/+w+3gAAAj/v/DwCAAAAI//uA
+3AAAAAL//v/cAAAARD7//twARAAEP/7/3AJEJAQAP/7cAmQCZD/+/9wAAAAD/v/+3AAAAj7//v/cAAA
CIiIiIiAAAAAAAAAAAD//wAA8A8AAOADAADgAQAA8AAAAPAAAAD4AAAA+AAAAJAAAAAAAAAAAAAAAAAA
AACYAAAA+AAAAPgAAAD//wAA
</value>
</data>
</root>

View File

@@ -0,0 +1,104 @@
Public Class frmNoteDetail
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmNoteDetail))
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(64, 48)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(512, 168)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "TextBox1"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 23)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Datum"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(64, 16)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(512, 20)
Me.TextBox2.TabIndex = 2
Me.TextBox2.Text = "TextBox2"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(56, 23)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Notiz"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(256, 224)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 4
Me.Button1.Text = "&Schliessen"
'
'frmNoteDetail
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(592, 254)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.Label2, Me.TextBox2, Me.Label1, Me.TextBox1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmNoteDetail"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Notiz"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,141 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
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">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</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.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:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="BtnNew.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="BtnDelete.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="NoteList.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmNotes</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAIe3cIiAAAAAj/+/C3iAAAAIv/+w+3gAAAj/v/DwCAAAAI//uA
+3AAAAAL//v/cAAAARD7//twARAAEP/7/3AJEJAQAP/7cAmQCZD/+/9wAAAAD/v/+3AAAAj7//v/cAAA
CIiIiIiAAAAAAAAAAAD//wAA8A8AAOADAADgAQAA8AAAAPAAAAD4AAAA+AAAAJAAAAAAAAAAAAAAAAAA
AACYAAAA+AAAAPgAAAD//wAA
</value>
</data>
</root>

View File

@@ -0,0 +1,280 @@
Public Class frmNotes
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents BtnNew As System.Windows.Forms.Button
Friend WithEvents BtnDelete As System.Windows.Forms.Button
Friend WithEvents NoteList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmNotes))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.BtnNew = New System.Windows.Forms.Button()
Me.BtnDelete = New System.Windows.Forms.Button()
Me.NoteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
CType(Me.NoteList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'BtnNew
'
Me.BtnNew.Location = New System.Drawing.Point(544, 8)
Me.BtnNew.Name = "BtnNew"
Me.BtnNew.Size = New System.Drawing.Size(112, 24)
Me.BtnNew.TabIndex = 1
Me.BtnNew.Text = "Neue Notiz"
'
'BtnDelete
'
Me.BtnDelete.Location = New System.Drawing.Point(544, 312)
Me.BtnDelete.Name = "BtnDelete"
Me.BtnDelete.Size = New System.Drawing.Size(112, 24)
Me.BtnDelete.TabIndex = 2
Me.BtnDelete.Text = "Fenster schliessen"
'
'NoteList
'
Me.NoteList.AllowFilter = True
Me.NoteList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.NoteList.AllowSort = True
Me.NoteList.AllowUpdate = False
Me.NoteList.AllowUpdateOnBlur = False
Me.NoteList.AlternatingRows = True
Me.NoteList.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
Me.NoteList.CaptionHeight = 17
Me.NoteList.CollapseColor = System.Drawing.Color.Black
Me.NoteList.ContextMenu = Me.ContextMenu1
Me.NoteList.DataChanged = False
Me.NoteList.DeadAreaBackColor = System.Drawing.Color.Empty
Me.NoteList.ExpandColor = System.Drawing.Color.Black
Me.NoteList.GroupByCaption = "Drag a column header here to group by that column"
Me.NoteList.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.NoteList.Location = New System.Drawing.Point(8, 8)
Me.NoteList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.NoteList.Name = "NoteList"
Me.NoteList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.NoteList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.NoteList.PreviewInfo.ZoomFactor = 75
Me.NoteList.PrintInfo.ShowOptionsDialog = False
Me.NoteList.RecordSelectorWidth = 17
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.NoteList.RowDivider = GridLines1
Me.NoteList.RowHeight = 15
Me.NoteList.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.NoteList.ScrollTips = False
Me.NoteList.Size = New System.Drawing.Size(528, 328)
Me.NoteList.TabIndex = 13
Me.NoteList.Text = "C1TrueDBGrid1"
Me.NoteList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
"r{}Caption{AlignHorz:Center;}Normal{BackColor:224, 224, 224;}HighlightRow{ForeCo" & _
"lor:HighlightText;BackColor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}R" & _
"ecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Border:Raise" & _
"d,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{AlignHorz" & _
":Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1True" & _
"DBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCap" & _
"tionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSe" & _
"lectorWidth=""17"" DefRecSelWidth=""17"" VerticalScrollGroup=""1"" HorizontalScrollGro" & _
"up=""1""><ClientRect>0, 0, 524, 324</ClientRect><BorderSide>0</BorderSide><Caption" & _
"Style parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" />" & _
"<EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" " & _
"me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Gr" & _
"oup"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowSt" & _
"yle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Sty" & _
"le4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""R" & _
"ecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><St" & _
"yle parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><Name" & _
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
"ts>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth" & _
"><ClientArea>0, 0, 524, 324</ClientArea></Blob>"
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.Text = "&Notiz anzeigen"
'
'MenuItem2
'
Me.MenuItem2.Index = 1
Me.MenuItem2.Text = "&Neue Notiz erfassen"
'
'frmNotes
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(664, 342)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.NoteList, Me.BtnDelete, Me.BtnNew})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmNotes"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Notizen"
CType(Me.NoteList, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Public ondemand As AxARSOLELib.AxArsOle
Public zf As Short = 100
Public o As Object
Public k As Object
Dim txtuser As String = ""
Dim txtdatetime As String = ""
Dim txttext As String = ""
Dim page As Object
Dim publ As Object
Dim copied As Object
Dim numnote As Object
Dim ret As Short
Dim m_notes As DataTable
Property notes() As DataTable
Get
Return m_notes
End Get
Set(ByVal Value As DataTable)
m_notes = Value
End Set
End Property
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.NoteList.DataSource = Me.notes
Me.NoteList.DataMember = Me.notes.TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.NoteList, Me.notes, "notizlist")
End Sub
Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
Dim f As New frmNewNote()
f.ondemand = Me.ondemand
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
get_annotations()
End If
End Sub
Public Function get_annotations()
Me.notes.Rows.Clear()
Dim rc As DataRowCollection
Dim newrow As DataRow()
rc = notes.Rows
Dim rowvals(7) As Object
Dim i As Integer
Me.numnote = Nothing
ret = Me.ondemand.GetNumDocAnnotations(Me.numnote)
For i = 0 To Me.numnote - 1
page = Nothing
publ = Nothing
copied = Nothing
ret = Me.ondemand.GetAnnotationForDoc(i, txttext, txtuser, txtdatetime, page, publ, copied)
rowvals(0) = i
rowvals(1) = txttext
rowvals(3) = txtuser
rowvals(2) = txtdatetime
rowvals(4) = page
rowvals(5) = publ
rowvals(6) = copied
rowvals(7) = ""
notes.Rows.Add(rowvals)
Next
Me.NoteList.DataSource = Me.notes
Me.NoteList.DataMember = Me.notes.TableName
DivFnkt.SpaltenTitel_Aktualisieren(Me.NoteList, Me.notes, "notizlist")
For i = 0 To Me.notes.Rows.Count - 1
Me.NoteList.Splits(0).Rows(i).AutoSize()
Next
End Function
Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click
Me.Close()
End Sub
Private Sub frmNotes_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Me.DialogResult = DialogResult.OK
End Sub
Private Sub NoteList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NoteList.DoubleClick
Try
Dim f As New frmNoteDetail()
f.TextBox2.Text = Me.NoteList.Columns(2).Text
f.TextBox1.Text = Me.NoteList.Columns(1).Text
f.ShowDialog()
f.Dispose()
Catch
End Try
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
Try
Dim f As New frmNoteDetail()
f.TextBox2.Text = Me.NoteList.Columns(2).Text
f.TextBox1.Text = Me.NoteList.Columns(1).Text
f.ShowDialog()
f.Dispose()
Catch
End Try
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Dim f As New frmNewNote()
f.ondemand = Me.ondemand
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
get_annotations()
End If
End Sub
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
If Me.notes.Rows.Count = 0 Then Me.MenuItem1.Enabled = False Else Me.MenuItem1.Enabled = True
End Sub
End Class

View File

@@ -0,0 +1,223 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>411, 30</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU
DgAAAk1TRnQBSQFMAgEBCwEAATQBAAE0AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/0UAA/89AAP/PQAD/z0A
A/89AAP/PQAD/z0AA/89AAP/PQAD/xAAAUEQAAFBGwAD/w8AAkEQAAJBGgAD/w4AA0EQAANBGQAD/w0A
BEEQAARBGAAD/w4AA0EQAANBGQAD/w8AAkEQAAJBLQABQRAAAUEXACAHIAACBwgACAcIAAYHFAAD/wkA
AgcBAAX/AQcCAAcHAQAF/wEHAgAFBwMAAewBBwH7AgcBAAPsCAAD/wkAAgcBAAH/AQcB+gEHAf8BBwEA
AQcBAAYHAQAB/wEHAfoBBwH/AQcBAAEHAQAEBwMAAewD/wH7Af8BAAH7AQcC7AYAA/8JAAIHAQAB/wEH
AfoBBwH/AQcBAAH/AQcBAAUHAQAB/wEHAfoBBwH/AQcBAAH/AQcBAAMHBAAB7AH7A/8B+wEAAf8B+wEH
AewFAAP/CQACBwEABv8FAAQHAQAG/wUAAgcEAAHsAv8B+wL/AQAB/wIAAewFAAP/CQACBwEAAf8DAAMH
A/8BAAQHAQAE/wMHA/8BAAIHBQAB7AP/AfsB7AEAAf8B+wEHBQAD/wkAAgcBAAH/AvwBBAQHAv8BAAQH
AQAD/wUHAv8BAAIHBwAB+wP/AfsC/wEHBQAD/wkAAgcBAAEHAvwBBAUHAf8BAAMHCQACBwH/AQACBwUA
AgEBAAH/AfsD/wH7AQcFAAP/CQABBwMEAvwDBAEAAgcB/wEAAgcJ+QEAAgcB/wEAAgcBAAIBAwABAQEA
A/8B+wL/AQcFAAP/CQABBwj8AQACBwH/AQACBwn5AQACBwH/AQACBwEAAfkBAQEAAfkBAAEBAwAD/wH7
AQcFAAP/CQABBwX8AwQE/wEAAgcJ+QEAA/8BAAIHAQAC+QIAAvkBAAP/AfsC/wEHBQAD/wkAAgcBAAH/
AvwBBAEHBf8BAAIHCfkE/wEAAgcHAAL/AfsD/wH7AQcFAAP/CQACBwEAAf8C/AEEBv8BAAQHAQAK/wEA
AgcFAAHsAf8B+wP/AfsC/wEHBQAD/wkAAgcBAAr/AQAEBwEACv8BAAIHBQAK7AUAA/8JAAIHDAAEBwwA
AgdAACAHBgABAwH/CgALEwMAIAcEAAHsAQMB7AH/CQABEwm8ARMBvAETAgAgBwIAAQMB7AEDAewBAwH/
CAANEwG8ARMBAAkHAe8BkgLsCAcB7AH3CQcBAAEDAewBAwHsAQMB7AH/AQAB7AYAARMGvANeArwDEwEA
CAcB7AHrARIBAAHsCAcBDgHrAewIBwEAAewBAwHsAQMB7AEDAf8BAAHsBgABEwa8A+8CvAETAbwBEwEA
BgcB7QHsARABDgIAAewIBwIAARAC7AGSBQcBAAEDAewBAwIAAewB/wEAAewGAA0TArwBEwUHAewBEgUA
AewIBwQAAUMB6gUHAQAB7AEDAewCBwEDAf8BAAHsAQABBgQAARMKvAETAbwBEwG8ARMEBwFtBwAB7AgH
BwAEBwEAAQMB7AEDAewBAwHsAf8CAAEGBf4BAAoTAbwBEwG8AhMEBwGSAW0GAAHsCAcFAAEPAewEBwEA
AewBAwHsAQMB7AEDAf8BAAFtBv4CAAETCP8BEwG8ARMBvAETBwcBQwQAAewIBwMAAUMB7AYHAQABAwHs
AQMB7AEDAewB/wEAAewBbQH+BG0DAAETAf8FEwH/BBMBAAgHAe8BFQIAAewIBwIAAe8IBwEAAewBAwHs
AQMB7AEDAf8BAAHsAQACbQYAARMI/wETAwAKBwHvAW0JBwFtCgcBAAEDAewBAwHsAQcB/wHsAQAB7AIA
AW0HAAETAf8FEwH/ARMDACAHAQAB7AEDAQcB/wHsAQAD7AoAARMI/wETAgAgBwEAAQcB/wHsAQAF7AsA
CRMCACAHIAAgBwFCAU0BPgcAAT4DAAEoAwABQAMAATADAAEBAQABAQUAAYABARYAA/8BAAb/AgABgQX/
AgABgQH/AfwBHwH4AT8CAAGBAv8B7wH3Af8CAAGBAv8B9wHvAf8CAAGBAe8B/wH7Ad8B/wIAAYEB7wH/
AfsB3wH/AgABgQHvAf8B+wHfAf8CAAGBAQEB/wH7Ad8B/wIAAYEB7wH+AfsB3wF/AgABgQHvAfwB9wHv
AT8CAAGBAe8B+AHvAfcBHwIAAYEB/wHwAR8B+AEPAgABgQH/AfgC/wEfAgABgQH/AfwC/wE/AgAC/wH+
Av8BfwYABP8EAAHwAQ8BgQH/BAAB4AEDAYEB/wQAAeABAQGBAf8EAAHwAQABgQH/BAAB8AEAAYEB/wQA
AfgBAAGBAf8EAAH4AQABgQH/BAABkAEAAYEBAQYAAYEB/wYAAYEB/wYAAYEB/wQAAZgBAAGBAf8EAAH4
AQABgQH/BAAB+AEAAYEB/wQABP8B/AF/Av8EAAHwAX8BwAEHBAABwAF/AYABAwUAAR8BAAEBBQABHwEA
AQEFAAEXAQABAQUAAQcQAAGABwABwAcAAeABAQUAAQcB4AEHBQABFwHwAQcFAAEfAfABAwUAAR8B+AED
BQABHwL/BAAL
</value>
</data>
<metadata name="PrintDocument1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>517, 30</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.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>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
AACAgIAAAAAAAP///wDAwMAA2q+vAOfLywDNlJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAQEBAAEBAQEBAQEBAQEBAQEBAQACAwMCAwMDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAID
AwIDAwMCAwEBAQEBAQACAgICAgICAgMBAQEBAQEAAgMDAwMDAwIDAQEBAQEBAAICAgICAgICAwEBAQEB
AQACAwMDAwIDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAIDAwMDAgICAwEBAQEBAQACAgICAgIBAQEB
AQEBAQEAAgMDAwMCAAIBAQEBAQEBAAICAgICAgABAQEBAQEBAQAAAAAAAAAAAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAeADAADgAwAA4AMAAOADAADgAwAA4AMAAOADAADgAwAA4AMAAOAD
AADgAwAA4AcAAOAPAADgHwAA//8AAP//AAA=
</value>
</data>
</root>

File diff suppressed because it is too large Load Diff