OSDN > 브라 우즈 소프트웨어 > Office/Business > Financial > Spreadsheet > UTable > SCM > SVN > Commit

UTable

R/O
SSH
HTTPS

utable: Commit

Commit MetaInfo

Revision	737 (tree)
Time	2022-12-27 14:54:02
Author	shuetsu

Log Message

IME制御方法を修正

Change Summary

modified: utable/branches/fw49/sample/My Project/Application.Designer.vb (diff)
modified: utable/branches/fw49/sample/My Project/Resources.Designer.vb (diff)
modified: utable/branches/fw49/sample/My Project/Settings.Designer.vb (diff)
modified: utable/branches/fw49/sample/Sample5.vb (diff)
modified: utable/branches/fw49/sample/Sample7.vb (diff)
modified: utable/branches/fw49/sample/sample.vbproj (diff)
modified: utable/branches/fw49/table/Edit.vb (diff)
modified: utable/branches/fw49/table/Editor/Editor.vb (diff)
modified: utable/branches/fw49/table/Editor/TextBoxEditor.vb (diff)
modified: utable/branches/fw49/table/Event.vb (diff)
modified: utable/branches/fw49/table/Focus.vb (diff)
modified: utable/branches/fw49/table/Ime.vb (diff)
modified: utable/branches/fw49/table/My Project/Application.Designer.vb (diff)
modified: utable/branches/fw49/table/My Project/AssemblyInfo.vb (diff)
modified: utable/branches/fw49/table/My Project/Resources.Designer.vb (diff)
modified: utable/branches/fw49/table/My Project/Settings.Designer.vb (diff)
modified: utable/branches/fw49/table/Table.vb (diff)
modified: utable/branches/fw49/table/table.vbproj (diff)
modified: utable/branches/fw49/utable.sln (diff)

Incremental Difference

--- utable/branches/fw49/sample/My Project/Application.Designer.vb (revision 736)

+++ utable/branches/fw49/sample/My Project/Application.Designer.vb (revision 737)

		@@ -1,7 +1,7 @@
1	1	'------------------------------------------------------------------------------
2	2	' <auto-generated>
3	3	' このコードはツールによって生成されました。
4		-' ランタイムバージョン:2.0.50727.3053
	4	+' ランタイムバージョン:4.0.30319.42000
5	5	'
6	6	' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7	7	' コードが再生成されるときに損失したりします。

		@@ -14,9 +14,9 @@
14	14
15	15	Namespace My
16	16
17		- 'メモ: このファイルは自動生成されました。直接変更しないでください。変更したり、
18		- ' ビルドエラーが発生した場合は、プロジェクトデザイナへ移動し (プロジェクト
19		- ' プロパティに移動するか、またはソリューションエクスプローラのマイプロジェクト
	17	+ 'メモ:このファイルは自動生成されました。直接変更しないでください。変更したり、
	18	+ ' ビルドエラーが発生した場合は、プロジェクトデザイナーへ移動し (プロジェクト
	19	+ ' プロパティに移動するか、またはソリューションエクスプローラーのマイプロジェクト
20	20	' ノード上でダブルクリック)、アプリケーションタブ上で変更を行います。
21	21	'
22	22	Partial Friend Class MyApplication

--- utable/branches/fw49/sample/My Project/Resources.Designer.vb (revision 736)

+++ utable/branches/fw49/sample/My Project/Resources.Designer.vb (revision 737)

		@@ -1,10 +1,10 @@
1	1	'------------------------------------------------------------------------------
2	2	' <auto-generated>
3		-' This code was generated by a tool.
4		-' Runtime Version:2.0.50727.3053
	3	+' このコードはツールによって生成されました。
	4	+' ランタイムバージョン:4.0.30319.42000
5	5	'
6		-' Changes to this file may cause incorrect behavior and will be lost if
7		-' the code is regenerated.
	6	+' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
	7	+' コードが再生成されるときに損失したりします。
8	8	' </auto-generated>
9	9	'------------------------------------------------------------------------------
10	10

		@@ -11,17 +11,18 @@
11	11	Option Strict On
12	12	Option Explicit On
13	13
	14	+Imports System
14	15
15	16	Namespace My.Resources
16	17
17		- 'This class was auto-generated by the StronglyTypedResourceBuilder
18		- 'class via a tool like ResGen or Visual Studio.
19		- 'To add or remove a member, edit your .ResX file then rerun ResGen
20		- 'with the /str option, or rebuild your VS project.
21		- '<summary>
22		- ' A strongly-typed resource class, for looking up localized strings, etc.
23		- '</summary>
24		- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
	18	+ 'このクラスは StronglyTypedResourceBuilder クラスが ResGen
	19	+ 'または Visual Studio のようなツールを使用して自動生成されました。
	20	+ 'メンバーを追加または削除するには、.ResX ファイルを編集して、/str オプションと共に
	21	+ 'ResGen を実行し直すか、または VS プロジェクトをビルドし直します。
	22	+ '''<summary>
	23	+ ''' ローカライズされた文字列などを検索するための、厳密に型指定されたリソースクラスです。
	24	+ '''</summary>
	25	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
25	26	Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26	27	Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
27	28	Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

		@@ -31,9 +32,9 @@
31	32
32	33	Private resourceCulture As Global.System.Globalization.CultureInfo
33	34
34		- '<summary>
35		- ' Returns the cached ResourceManager instance used by this class.
36		- '</summary>
	35	+ '''<summary>
	36	+ ''' このクラスで使用されているキャッシュされた ResourceManager インスタンスを返します。
	37	+ '''</summary>
37	38	<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
38	39	Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
39	40	Get

		@@ -45,16 +46,16 @@
45	46	End Get
46	47	End Property
47	48
48		- '<summary>
49		- ' Overrides the current thread's CurrentUICulture property for all
50		- ' resource lookups using this strongly typed resource class.
51		- '</summary>
	49	+ '''<summary>
	50	+ ''' すべてについて、現在のスレッドの CurrentUICulture プロパティをオーバーライドします
	51	+ ''' 現在のスレッドの CurrentUICulture プロパティをオーバーライドします。
	52	+ '''</summary>
52	53	<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
53	54	Friend Property Culture() As Global.System.Globalization.CultureInfo
54	55	Get
55	56	Return resourceCulture
56	57	End Get
57		- Set(ByVal value As Global.System.Globalization.CultureInfo)
	58	+ Set
58	59	resourceCulture = value
59	60	End Set
60	61	End Property

--- utable/branches/fw49/sample/My Project/Settings.Designer.vb (revision 736)

+++ utable/branches/fw49/sample/My Project/Settings.Designer.vb (revision 737)

		@@ -1,10 +1,10 @@
1	1	'------------------------------------------------------------------------------
2	2	' <auto-generated>
3		-' This code was generated by a tool.
4		-' Runtime Version:2.0.50727.3053
	3	+' このコードはツールによって生成されました。
	4	+' ランタイムバージョン:4.0.30319.42000
5	5	'
6		-' Changes to this file may cause incorrect behavior and will be lost if
7		-' the code is regenerated.
	6	+' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
	7	+' コードが再生成されるときに損失したりします。
8	8	' </auto-generated>
9	9	'------------------------------------------------------------------------------
10	10

		@@ -13,27 +13,27 @@
13	13
14	14
15	15	Namespace My
16		-
	16	+
17	17	<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18		- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _
	18	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"), _
19	19	Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
20	20	Partial Friend NotInheritable Class MySettings
21	21	Inherits Global.System.Configuration.ApplicationSettingsBase
22	22
23		- Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
	23	+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24	24
25		-#Region "My.Settings Auto-Save Functionality"
	25	+#Region "My.Settings 自動保存機能"
26	26	#If _MyType = "WindowsForms" Then
27		- Private Shared addedHandler As Boolean
	27	+ Private Shared addedHandler As Boolean
28	28
29		- Private Shared addedHandlerLockObject As New Object
	29	+ Private Shared addedHandlerLockObject As New Object
30	30
31		- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32		- Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33		- If My.Application.SaveMySettingsOnExit Then
34		- My.Settings.Save()
35		- End If
36		- End Sub
	31	+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
	32	+ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
	33	+ If My.Application.SaveMySettingsOnExit Then
	34	+ My.Settings.Save()
	35	+ End If
	36	+ End Sub
37	37	#End If
38	38	#End Region
39	39

		@@ -41,14 +41,14 @@
41	41	Get
42	42
43	43	#If _MyType = "WindowsForms" Then
44		- If Not addedHandler Then
45		- SyncLock addedHandlerLockObject
46		- If Not addedHandler Then
47		- AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48		- addedHandler = True
49		- End If
50		- End SyncLock
51		- End If
	44	+ If Not addedHandler Then
	45	+ SyncLock addedHandlerLockObject
	46	+ If Not addedHandler Then
	47	+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
	48	+ addedHandler = True
	49	+ End If
	50	+ End SyncLock
	51	+ End If
52	52	#End If
53	53	Return defaultInstance
54	54	End Get

--- utable/branches/fw49/sample/Sample5.vb (revision 736)

+++ utable/branches/fw49/sample/Sample5.vb (revision 737)

		@@ -93,7 +93,7 @@
93	93	End With
94	94	End Sub
95	95
96		- Public Sub EditEnter(ByVal key As Char, ByVal hIMC As Integer) Implements IEditor.EditEnter
	96	+ Public Sub EditEnter(ByVal key As Char) Implements IEditor.EditEnter
97	97	End Sub
98	98
99	99	Public Sub EditLeave() Implements IEditor.EditLeave

--- utable/branches/fw49/sample/Sample7.vb (revision 736)

+++ utable/branches/fw49/sample/Sample7.vb (revision 737)

		@@ -9,7 +9,7 @@
9	9	Private Sub Sample7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
10	10	Dim rp As New UTable.CRecordProvider
11	11	With New CLayoutBuilder
12		- rp.AddField("0", New CTextFieldProvider(), .Next)
	12	+ rp.AddField("0", New CTextFieldProvider(Nothing, ImeMode.On), .Next)
13	13	rp.AddField("1", New CTextFieldProvider(), .Next)
14	14	rp.AddField("2", New CTextFieldProvider(), .Next)
15	15	rp.AddField("3", New CTextFieldProvider(), .Next)

--- utable/branches/fw49/table/Edit.vb (revision 736)

+++ utable/branches/fw49/table/Edit.vb (revision 737)

		@@ -39,20 +39,9 @@
39	39
40	40	Private Function edit_KeyDown(ByVal e As System.Windows.Forms.KeyEventArgs) As Boolean
41	41	If e.KeyCode = Keys.ProcessKey Then
42		- Dim h As Integer = MAPI.ImmGetContext(Me.Handle)
43		- Try
44		- If h <> 0 Then
45		- If MAPI.ImmGetCompositionString(h, &H8, vbNullString, 0) > 0 Then
46		- Me.ScrollTo(Me.FocusField)
47		- Me._StartEdit(Nothing, True)
48		- Return True
49		- End If
50		- End If
51		- Finally
52		- If h <> 0 Then
53		- MAPI.ImmReleaseContext(Me.Handle, h)
54		- End If
55		- End Try
	42	+ Me.ScrollTo(Me.FocusField)
	43	+ Me._StartEdit(Nothing, True)
	44	+ Return True
56	45	End If
57	46	Return False
58	47	End Function

		@@ -124,18 +113,8 @@
124	113	End Using
125	114	End If
126	115	If Me.Editor IsNot Nothing Then
127		- Dim h As Integer = MAPI.ImmGetContext(Me.Handle)
128		- Try
129		- Me.Editor.Control.Focus()
130		- Me.Editor.EditEnter(key, h)
131		- Finally
132		- If h <> 0 Then
133		- MAPI.ImmReleaseContext(Me.Handle, h)
134		- End If
135		- End Try
136		- Me.raiseEditStart(Me.FocusField, Me.Editor)
137		- Else
138		- Me.ime_CreateContext()
	116	+ Me.Editor.Control.Focus()
	117	+ Me.Editor.EditEnter(key)
139	118	End If
140	119	Return Me.Editor
141	120	End Function

--- utable/branches/fw49/table/Editor/Editor.vb (revision 736)

+++ utable/branches/fw49/table/Editor/Editor.vb (revision 737)

		@@ -26,7 +26,7 @@
26	26
27	27	Public Interface IEditor
28	28	Sub Initialize(ByVal field As UTable.CField)
29		- Sub EditEnter(ByVal key As Char, ByVal hIMC As Integer)
	29	+ Sub EditEnter(ByVal key As Char)
30	30	Sub EditLeave()
31	31	Property Value() As Object
32	32	Function Control() As Control

--- utable/branches/fw49/table/Editor/TextBoxEditor.vb (revision 736)

+++ utable/branches/fw49/table/Editor/TextBoxEditor.vb (revision 737)

		@@ -45,8 +45,7 @@
45	45	End With
46	46	End Sub
47	47
48		- Public Sub EditEnter(ByVal key As Char, ByVal hIMC As Integer) Implements IEditor.EditEnter
49		- UTable.ImmAssociateContext(Me, hIMC)
	48	+ Public Sub EditEnter(ByVal key As Char) Implements IEditor.EditEnter
50	49	If key <> Nothing Then
51	50	Me.Text = key
52	51	Me.SelectionStart = 1

--- utable/branches/fw49/table/Event.vb (revision 736)

+++ utable/branches/fw49/table/Event.vb (revision 737)

		@@ -207,7 +207,7 @@
207	207	Private Sub UTable_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
208	208	Using Me.RenderBlock
209	209	If Me.FocusField IsNot Nothing Then
210		- Me.ime_AssociateContext(Me.FocusField)
	210	+ Me.imeSetUp(Me.FocusField)
211	211	End If
212	212	If Me.Setting.EnterContent IsNot Nothing AndAlso Me.FocusField Is Nothing Then
213	213	Me.FocusField = Me.Setting.EnterContent.DefaultField

--- utable/branches/fw49/table/Focus.vb (revision 736)

+++ utable/branches/fw49/table/Focus.vb (revision 737)

		@@ -82,7 +82,7 @@
82	82	RaiseEvent FieldEntering(field, cancel)
83	83	End If
84	84	If Not cancel Then
85		- Me.ime_AssociateContext(field)
	85	+ Me.imeSetUp(field)
86	86	Me._FocusField = field
87	87	Me.SelectRange = Nothing
88	88	If _focusField_bak IsNot Nothing AndAlso _focusField_bak IsNot field Then

--- utable/branches/fw49/table/Ime.vb (revision 736)

+++ utable/branches/fw49/table/Ime.vb (revision 737)

		@@ -26,86 +26,22 @@
26	26
27	27	Partial Public Class UTable
28	28
29		- Private hIMC As Integer = 0
30	29
31		- Private Sub ime_CreateContext()
32		- Me.ime_ReleaseContext()
33		- Me.hIMC = MAPI.ImmCreateContext()
34		- End Sub
35		-
36		- Private Sub ime_ReleaseContext()
37		- If Me.hIMC <> 0 Then
38		- MAPI.ImmAssociateContext(Me.Handle, 0)
39		- MAPI.ImmDestroyContext(Me.hIMC)
40		- Me.hIMC = 0
41		- End If
42		- End Sub
43		-
44		- Private Sub ime_AssociateContext(ByVal field As CField)
	30	+ Private imeSetUpFlag As Boolean = False
	31	+ Private Sub imeSetUp(ByVal field As CField)
45	32	If field Is Nothing Then
46	33	Exit Sub
47	34	End If
48		- Me.ime_CreateContext()
49	35	Dim m As ImeMode = field.Desc.Provider.ImeMode
50	36	If field.DynamicSetting.Editable <> EAllow.ALLOW Then
51	37	m = Windows.Forms.ImeMode.Disable
52	38	End If
53		- Select Case m
54		- Case Windows.Forms.ImeMode.On, Windows.Forms.ImeMode.Hiragana, Windows.Forms.ImeMode.HangulFull
55		- MAPI.ImmSetOpenStatus(Me.hIMC, 1)
56		- MAPI.ImmSetConversionStatus(Me.hIMC, &H19, &H8)
57		- MAPI.ImmAssociateContext(Me.Handle, Me.hIMC)
58		- Case Windows.Forms.ImeMode.Katakana
59		- MAPI.ImmSetOpenStatus(Me.hIMC, 1)
60		- MAPI.ImmSetConversionStatus(Me.hIMC, &H1B, &H8)
61		- MAPI.ImmAssociateContext(Me.Handle, Me.hIMC)
62		- Case Windows.Forms.ImeMode.KatakanaHalf
63		- MAPI.ImmSetOpenStatus(Me.hIMC, 1)
64		- MAPI.ImmSetConversionStatus(Me.hIMC, &H13, &H8)
65		- MAPI.ImmAssociateContext(Me.Handle, Me.hIMC)
66		- Case Windows.Forms.ImeMode.AlphaFull
67		- MAPI.ImmSetOpenStatus(Me.hIMC, 1)
68		- MAPI.ImmSetConversionStatus(Me.hIMC, &H18, &H8)
69		- MAPI.ImmAssociateContext(Me.Handle, Me.hIMC)
70		- Case Windows.Forms.ImeMode.Alpha
71		- MAPI.ImmSetOpenStatus(Me.hIMC, 1)
72		- MAPI.ImmSetConversionStatus(Me.hIMC, &H10, &H8)
73		- MAPI.ImmAssociateContext(Me.Handle, Me.hIMC)
74		- Case Windows.Forms.ImeMode.Hangul
75		- MAPI.ImmSetOpenStatus(Me.hIMC, 1)
76		- MAPI.ImmSetConversionStatus(Me.hIMC, &H11, &H8)
77		- MAPI.ImmAssociateContext(Me.Handle, Me.hIMC)
78		- Case Windows.Forms.ImeMode.Disable
79		- MAPI.ImmAssociateContext(Me.Handle, 0)
80		- Case Else
81		- MAPI.ImmSetOpenStatus(Me.hIMC, 0)
82		- MAPI.ImmAssociateContext(Me.Handle, Me.hIMC)
83		- End Select
	39	+ Try
	40	+ Me.imeSetUpFlag = True
	41	+ Me.ImeMode = m
	42	+ Finally
	43	+ Me.imeSetUpFlag = False
	44	+ End Try
84	45	End Sub
85	46
86		- Public Shared Sub ImmAssociateContext(ByVal control As Control, ByVal hIMC As Integer)
87		- MAPI.ImmAssociateContext(control.Handle, hIMC)
88		- If hIMC <> 0 Then
89		- Dim lfc As New LOGFONTC
90		- Dim lf As New LOGFONT
91		- control.Font.ToLogFont(lfc)
92		- lf.lfCharSet = lfc.lfCharSet
93		- lf.lfClipPrecision = lfc.lfClipPrecision
94		- lf.lfEscapement = lfc.lfEscapement
95		- lf.lfFaceName = lfc.lfFaceName
96		- lf.lfHeight = lfc.lfHeight
97		- lf.lfItalic = lfc.lfItalic
98		- lf.lfOrientation = lfc.lfOrientation
99		- lf.lfOutPrecision = lfc.lfOutPrecision
100		- lf.lfPitchAndFamily = lfc.lfPitchAndFamily
101		- lf.lfQuality = lfc.lfQuality
102		- lf.lfStrikeOut = lfc.lfStrikeOut
103		- lf.lfUnderline = lfc.lfUnderline
104		- lf.lfWeight = lfc.lfWeight
105		- lf.lfWidth = lfc.lfWidth
106		- MAPI.ImmSetCompositionFont(hIMC, lf)
107		- End If
108		- control.Refresh()
109		- End Sub
110		-
111	47	End Class

--- utable/branches/fw49/table/My Project/Application.Designer.vb (revision 736)

+++ utable/branches/fw49/table/My Project/Application.Designer.vb (revision 737)

		@@ -1,7 +1,7 @@
1	1	'------------------------------------------------------------------------------
2	2	' <auto-generated>
3	3	' このコードはツールによって生成されました。
4		-' ランタイムバージョン:2.0.50727.3053
	4	+' ランタイムバージョン:4.0.30319.42000
5	5	'
6	6	' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7	7	' コードが再生成されるときに損失したりします。

--- utable/branches/fw49/table/My Project/AssemblyInfo.vb (revision 736)

+++ utable/branches/fw49/table/My Project/AssemblyInfo.vb (revision 737)

		@@ -18,7 +18,7 @@
18	18	<Assembly: ComVisible(False)>
19	19
20	20	'このプロジェクトが COM に公開される場合、次の GUID がタイプライブラリの ID になります。
21		-<Assembly: Guid("7b5b0b94-52f6-4582-bd8e-e93bf4235b61")>
	21	+<Assembly: Guid("7b5b0b94-52f6-4582-bd8e-e93bf4235b61")>
22	22
23	23	' アセンブリのバージョン情報は、以下の 4 つの値で構成されています:
24	24	'

		@@ -31,5 +31,5 @@
31	31	' 既定値にすることができます:
32	32	' <Assembly: AssemblyVersion("1.0.*")>
33	33
34		-<Assembly: AssemblyVersion("2.5.49.0")>
35		-<Assembly: AssemblyFileVersion("2.5.49.0")>
	34	+<Assembly: AssemblyVersion("2.5.49.1")>
	35	+<Assembly: AssemblyFileVersion("2.5.49.1")>

--- utable/branches/fw49/table/My Project/Resources.Designer.vb (revision 736)

+++ utable/branches/fw49/table/My Project/Resources.Designer.vb (revision 737)

		@@ -1,7 +1,7 @@
1	1	'------------------------------------------------------------------------------
2	2	' <auto-generated>
3	3	' このコードはツールによって生成されました。
4		-' ランタイムバージョン:2.0.50727.3053
	4	+' ランタイムバージョン:4.0.30319.42000
5	5	'
6	6	' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7	7	' コードが再生成されるときに損失したりします。

		@@ -17,12 +17,12 @@
17	17
18	18	'このクラスは StronglyTypedResourceBuilder クラスが ResGen
19	19	'または Visual Studio のようなツールを使用して自動生成されました。
20		- 'メンバを追加または削除するには、.ResX ファイルを編集して、/str オプションと共に
	20	+ 'メンバーを追加または削除するには、.ResX ファイルを編集して、/str オプションと共に
21	21	'ResGen を実行し直すか、または VS プロジェクトをビルドし直します。
22	22	'''<summary>
23	23	''' ローカライズされた文字列などを検索するための、厳密に型指定されたリソースクラスです。
24	24	'''</summary>
25		- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
	25	+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
26	26	Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27	27	Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
28	28	Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

		@@ -47,7 +47,7 @@
47	47	End Property
48	48
49	49	'''<summary>
50		- ''' 厳密に型指定されたこのリソースクラスを使用して、すべての検索リソースに対し、
	50	+ ''' すべてについて、現在のスレッドの CurrentUICulture プロパティをオーバーライドします
51	51	''' 現在のスレッドの CurrentUICulture プロパティをオーバーライドします。
52	52	'''</summary>
53	53	<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

--- utable/branches/fw49/table/My Project/Settings.Designer.vb (revision 736)

+++ utable/branches/fw49/table/My Project/Settings.Designer.vb (revision 737)

		@@ -1,7 +1,7 @@
1	1	'------------------------------------------------------------------------------
2	2	' <auto-generated>
3	3	' このコードはツールによって生成されました。
4		-' ランタイムバージョン:2.0.50727.3053
	4	+' ランタイムバージョン:4.0.30319.42000
5	5	'
6	6	' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7	7	' コードが再生成されるときに損失したりします。

		@@ -15,12 +15,12 @@
15	15	Namespace My
16	16
17	17	<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18		- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _
	18	+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"), _
19	19	Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
20	20	Partial Friend NotInheritable Class MySettings
21	21	Inherits Global.System.Configuration.ApplicationSettingsBase
22	22
23		- Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings),MySettings)
	23	+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24	24
25	25	#Region "My.Settings 自動保存機能"
26	26	#If _MyType = "WindowsForms" Then

		@@ -29,7 +29,7 @@
29	29	Private Shared addedHandlerLockObject As New Object
30	30
31	31	<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32		- Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
	32	+ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
33	33	If My.Application.SaveMySettingsOnExit Then
34	34	My.Settings.Save()
35	35	End If

--- utable/branches/fw49/table/Table.vb (revision 736)

+++ utable/branches/fw49/table/Table.vb (revision 737)

		@@ -27,7 +27,7 @@
27	27	Imports System.Drawing
28	28
29	29	Public Class UTable
30		- Inherits ContainerControl
	30	+ Inherits Control
31	31
32	32	Public Class CSortState
33	33	Public Enum EOrder

		@@ -134,7 +134,6 @@
134	134	End Sub
135	135
136	136	Private Sub UTable_HandleDestroyed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleDestroyed
137		- Me.ime_ReleaseContext()
138	137	Me.draggingOverflowTimer.Dispose()
139	138	End Sub
140	139

Show on old repository browser