Changeset 473 for trunk/Include/basic

Timestamp:

Mar 12, 2008, 9:54:46 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

実験として書いていたControlクラスを追加（せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった）。
ほかForms, Drawing及びGDI+の修正。

File:

• trunk/Include/basic/dos_console.sbp (modified) (2 diffs)

trunk/Include/basic/dos_console.sbp

@@ -10 +10 @@
 Dim _System_hConsoleIn = GetStdHandle(STD_INPUT_HANDLE)
 System.Console.SetIn(
-    New System.IO.StreamReader(
-        New System.IO.FileStream(_System_hConsoleIn, System.IO.FileAccess.Read, False)))
+    System.IO.TextReader.Synchronized(New System.IO.StreamReader(
+        New System.IO.FileStream(_System_hConsoleIn, System.IO.FileAccess.Read, False))))
 
 '---------- command.sbp内で定義済み ----------
@@ -57 +57 @@
 
     Dim dwAccessBytes As DWord
-#ifdef __STRING_UNICODE_WINDOWS_ANSI
-'   Debug
-    Dim oldAlloc = _System_AllocForConvertedString
-    _System_AllocForConvertedString = AddressOf (_System_malloc)
-    Dim pszOut As PCSTR
-    Dim len = GetStr(buf, pszOut)
-    _System_AllocForConvertedString = oldAlloc
-    WriteConsole(_System_hConsoleOut, pszOut, len, dwAccessBytes, 0)
-    _System_free(pszOut)
-#else
     WriteConsole(_System_hConsoleOut, buf.StrPtr, buf.Length, dwAccessBytes, 0)
-#endif
 End Sub
 /* TODO: _System_GetUsingFormatを用意して実装する