Changeset 542 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/MakeControlEventHandler.ab

Timestamp:

Jul 13, 2008, 2:29:17 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Controlをデリゲートベースにした。DictionaryのContainsKeyとTryGetValueを実装。デリゲートの追加・削除の右辺にNothingを指定可能にした。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/MakeControlEventHandler.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/MakeControlEventHandler.ab

@@ -22 +22 @@
     Dim argsType = argBase & "Args"
     out.WriteLine("Public")
-    out.WriteLine(Ex"\t/*!")
-    out.WriteLine(Ex"\t@brief " & eventName & "イベントハンドラを追加する")
-    out.WriteLine(Ex"\t*/")
+'   out.WriteLine(Ex"\t/*!")
+'   out.WriteLine(Ex"\t@brief " & eventName & "イベントハンドラを追加する")
+'   out.WriteLine(Ex"\t*/")
     out.WriteLine(Ex"\tSub Add" & eventName & "(h As " & handlerType & ")")
     out.WriteLine(Ex"\t\tIf IsNothing(" & eventMember & ") Then")
-    out.WriteLine(Ex"\t\t\t" & eventMember & " = New " & handlerType)
+    out.WriteLine(Ex"\t\t\t" & eventMember & " = h")
+    out.WriteLine(Ex"\t\tElse")
+    out.WriteLine(Ex"\t\t\t" & eventMember & " += h")
     out.WriteLine(Ex"\t\tEnd If")
-    out.WriteLine(Ex"\t\t" & eventMember & " += h")
     out.WriteLine(Ex"\tEnd Sub")
-    out.WriteLine(Ex"\t/*!")
-    out.WriteLine(Ex"\t@brief " & eventName & "イベントハンドラを削除する")
-    out.WriteLine(Ex"\t*/")
+'   out.WriteLine(Ex"\t/*!")
+'   out.WriteLine(Ex"\t@brief " & eventName & "イベントハンドラを削除する")
+'   out.WriteLine(Ex"\t*/")
     out.WriteLine(Ex"\tSub Remove" & eventName & "(h As " & handlerType & ")")
     out.WriteLine(Ex"\t\tIf Not IsNothing(" & eventMember & ") Then")
@@ -39 +40 @@
     out.WriteLine(Ex"\t\tEnd If")
     out.WriteLine(Ex"\tEnd Sub")
-    out.WriteLine("Protected")
-    out.WriteLine(Ex"\t/*!")
-    out.WriteLine(Ex"\t@brief " & comment)
-    out.WriteLine(Ex"\t*/")
-    out.WriteLine(Ex"\tVirtual Sub On" & eventName & "(e As " & argsType & ")")
+    out.WriteLine("Private")
+'   out.WriteLine(Ex"\t/*!")
+'   out.WriteLine(Ex"\t@brief " & comment)
+'   out.WriteLine(Ex"\t*/")
+    out.WriteLine(Ex"\tSub On" & eventName & "(e As " & argsType & ")")
     out.WriteLine(Ex"\t\tIf Not IsNothing(" & eventMember & ") Then")
     out.WriteLine(Ex"\t\t\t" & eventMember & "(This, e)")
@@ -53 +54 @@
 End Sub
 
-'OutputEventHandlerCode("PaintDC", "PaintDCEventHandler", 
+'OutputEventHandlerCode("PaintDC", "PaintDCEventHandler",
 '   "ウィンドウの描画が必要なときに呼び出されます。")