Changeset 137 for Include/basic/prompt.sbp

Timestamp:

Mar 7, 2007, 5:36:31 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

#55と#73と#75とりあえず完了

File:

• Include/basic/prompt.sbp (modified) (4 diffs)

Include/basic/prompt.sbp

@@ -26 +26 @@
 End Type
 
-Dim _PromptSys_LogFont As LOGFONTA 'LOGFONT
+Dim _PromptSys_LogFont As LOGFONT
 Dim _PromptSys_hFont As HFONT
 Dim _PromptSys_FontSize As SIZE
@@ -257 +257 @@
             End With
             ImmSetCompositionWindow(himc, CompForm)
-            ImmSetCompositionFontA(himc, _PromptSys_LogFont)
+            ImmSetCompositionFont(himc, _PromptSys_LogFont)
         End If
         ImmReleaseContext(hwnd, himc)
@@ -407 +407 @@
         .lfQuality = DEFAULT_QUALITY
         .lfPitchAndFamily = FIXED_PITCH
-#ifdef UNICODE
-        WideCharToMultiByte(CP_ACP, 0, "ＭＳ 明朝", 5, .lfFaceName, LF_FACESIZE, 0, 0)
-#else
         lstrcpy(.lfFaceName, "ＭＳ 明朝")
-#endif
-    End With
-
-    _PromptSys_hFont = CreateFontIndirectA(_PromptSys_LogFont)
+    End With
+
+    _PromptSys_hFont = CreateFontIndirect(_PromptSys_LogFont)
 
     'Critical Section
@@ -436 +432 @@
 
     'Create Prompt Window
-    _PromptSys_hWnd = CreateWindowEx(WS_EX_CLIENTEDGE, atom As ULONG_PTR As PCSTR, "BASIC PROMPT",
+    _PromptSys_hWnd = CreateWindowEx(WS_EX_CLIENTEDGE, atom As ULONG_PTR As PCTSTR, "BASIC PROMPT",
         WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
         0, 0, wcl.hInstance, 0)