Changeset 636

Timestamp:

Sep 28, 2008, 7:27:20 AM (16 years ago)

Author:

NoWest

Message:

Staticなメンバ変数にConsoleColorを指定するとなぜかエラーになるようなので、
直接文字列バッファの属性を保持する方法に変更しました。

これでResetColorの問題は直ったはずです。

File:

• trunk/ab5.0/ablib/src/Classes/System/Console.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/Console.ab

@@ -522 +522 @@
     Static Sub OpenStandardOutput()
         Console.SetOut(System.IO.TextWriter.Synchronized(New System.IO.StreamWriter(New System.IO.FileStream(GetStdHandle(STD_OUTPUT_HANDLE), System.IO.FileAccess.Write, False))))
-        Console.defBC = Console.BackgroundColor()
-        Console.defFC = Console.ForegroundColor()
+        Console.defBC = This.ConsoleColorToTextAttribute(Console.BackgroundColor)
+        Console.defFC = This.ConsoleColorToTextAttribute(Console.ForegroundColor)
     End Sub
 
@@ -532 +532 @@
     */
     Static Sub ResetColor()
-        Console.BackgroundColor(Console.defBC)
-        Console.ForegroundColor(Console.defFC)
+        Console.BackgroundColor = TextAttributeToConsoleColor(Console.defBC)
+        Console.ForegroundColor = TextAttributeToConsoleColor(Console.defFC)
     End Sub
 
@@ -661 +661 @@
     Static err = Nothing As IO.TextWriter
     Static cs = Nothing As ActiveBasic.Windows.CriticalSection
-    Static defBC As ConsoleColor
-    Static defFC As ConsoleColor
+    Static defBC As Word
+    Static defFC As Word
 End Class