Changeset 125
- Timestamp:
- Mar 2, 2007, 2:57:09 PM (18 years ago)
- Location:
- Include
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/IO/Path.ab
r62 r125 1 1 Class Path 2 2 Public 3 Static AltDirectorySeparatorChar = &H2F As Byte'/4 Static DirectorySeparatorChar = &H5C As Byte'\5 Static PathSeparator = &H3B As Byte';6 Static VolumeSeparatorChar = &H3A As Byte':3 Static AltDirectorySeparatorChar = &H2F As Char '/ 4 Static DirectorySeparatorChar = &H5C As Char '\ 5 Static PathSeparator = &H3B As Char '; 6 Static VolumeSeparatorChar = &H3A As Char ': 7 7 8 8 Static Function GetFileName(path As String) As String … … 50 50 End Function 51 51 52 Static Function HasExtension(ByRef path As String) As B OOL52 Static Function HasExtension(ByRef path As String) As Boolean 53 53 If GetExtension(path) <> "" Then 54 54 Return _System_TRUE … … 59 59 60 60 Static Function GetTempFileName() As String 61 ' TODO: 実装 61 Dim tempPathSize = __GetTempPath(0, 0) 62 Dim tempPath = _System_malloc(SizeOf (TCHAR) * tempPathSize) As PTSTR 63 If tempPath = 0 Then 64 ' Throw OutOfMemoryException 65 Debug 66 End If 67 If __GetTempPath(tempPathSize, tempPath) > tempPathSize Then 68 ' Throw IOException? 69 Debug 70 End If 71 72 Dim tempFileName[ELM(MAX_PATH)] As TCHAR 73 __GetTempFileName(tempPath, "ABT", 0, tempFileName) 74 free(tempPath) 75 Return tempFileName 62 76 End Function 63 77 … … 148 162 Return GetTempPath(nBufferLength, lpBuffer) 149 163 End Function 164 165 Function __GetTempFileName(pPathName As PCSTR, pPrefixString As PCSTR, uUnique As DWord, pTempFileName As PSTR) As DWord 166 Return GetTempFileName(pPathName, pPrefixString, uUnique, pTempFileName) 167 End Function -
Include/Classes/System/String.ab
r123 r125 12 12 String() 13 13 Assign(initStr) 14 End Sub 15 16 Sub String(initStr As *Char, length As Long) 17 String() 18 Assign(initStr, length) 14 19 End Sub 15 20 … … 454 459 455 460 Sub ToLower() 456 CharLower(Chars) 461 Dim i As Long 462 For i = 0 To m_Length 463 Chars[i] = _System_ASCII_ToLower(Chars[i]) 464 Next 457 465 End Sub 458 466 459 467 Sub ToUpper() 460 CharUpper(Chars) 468 Dim i As Long 469 For i = 0 To m_Length 470 Chars[i] = _System_ASCII_ToUpper(Chars[i]) 471 Next 461 472 End Sub 462 473 -
Include/api_gdi.sbp
r123 r125 660 660 TypeDef LOGFONT = LOGFONTA 661 661 #endif 662 Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (ByRef lplf As LOGFONT) As HFONT 662 Declare Function CreateFontIndirectA Lib "gdi32" (ByRef lf As LOGFONTA) As HFONT 663 Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (ByRef lf As LOGFONT) As HFONT 663 664 664 665 Declare Function CreateHatchBrush Lib "gdi32" (fnStyle As Long, clrref As COLORREF) As HBRUSH -
Include/api_imm.sbp
r119 r125 21 21 Declare Function ImmDisableIME Lib "imm32" (idThread As DWord) As BOOL 22 22 #ifdef UNICODE 23 Declare Function ImmGetCompositionString Lib "imm32" Alias "ImmGetCompositionString A" (hIMC As HIMC, dwIndex As DWord, pBuf As VoidPtr, dwBufLen As DWord) As Long23 Declare Function ImmGetCompositionString Lib "imm32" Alias "ImmGetCompositionStringW" (hIMC As HIMC, dwIndex As DWord, pBuf As VoidPtr, dwBufLen As DWord) As Long 24 24 #else 25 25 Declare Function ImmGetCompositionString Lib "imm32" Alias "ImmGetCompositionStringA" (hIMC As HIMC, dwIndex As DWord, pBuf As VoidPtr, dwBufLen As DWord) As Long … … 38 38 39 39 #ifdef UNICODE 40 Declare Function ImmSetCompositionFont Lib "imm32" Alias "ImmSetCompositionFontW" (hIMC As HIMC, ByRef l plf As LOGFONT) As Long40 Declare Function ImmSetCompositionFont Lib "imm32" Alias "ImmSetCompositionFontW" (hIMC As HIMC, ByRef lf As LOGFONT) As Long 41 41 #else 42 Declare Function ImmSetCompositionFont Lib "imm32" Alias "ImmSetCompositionFontA" (hIMC As HIMC, ByRef l plf As LOGFONT) As Long42 Declare Function ImmSetCompositionFont Lib "imm32" Alias "ImmSetCompositionFontA" (hIMC As HIMC, ByRef lf As LOGFONT) As Long 43 43 #endif 44 Declare Function ImmSetCompositionFontA Lib "imm32" (hIMC As HIMC, ByRef l plf As LOGFONTA) As Long45 Declare Function ImmSetCompositionFontW Lib "imm32" (hIMC As HIMC, ByRef l plf As LOGFONTW) As Long44 Declare Function ImmSetCompositionFontA Lib "imm32" (hIMC As HIMC, ByRef lf As LOGFONTA) As Long 45 Declare Function ImmSetCompositionFontW Lib "imm32" (hIMC As HIMC, ByRef lf As LOGFONTW) As Long 46 46 Declare Function ImmSetCompositionWindow Lib "imm32" (hIMC As HIMC, ByRef CompForm As COMPOSITIONFORM) As BOOL 47 47 -
Include/api_system.sbp
r121 r125 335 335 Declare Function InterlockedExchangePointer Lib "kernel32" Alias "InterlockedExchange" (ByRef Target As VoidPtr, Value As VoidPtr) As VoidPtr 336 336 #endif 337 338 337 339 Declare Function Beep Lib "kernel32" (dwFreq As DWord, dwDuration As DWord) As BOOL 338 340 Declare Function CloseHandle Lib "kernel32" (hObject As HANDLE) As BOOL … … 597 599 ByRef FileInformation As BY_HANDLE_FILE_INFORMATION 598 600 ) As BOOL 599 Declare Function GetFileSize Lib "kernel32" (hFile As HANDLE, lpFileSizeHigh As DWordPtr) As DWord601 Declare Function GetFileSize Lib "kernel32" (hFile As HANDLE, pFileSizeHigh As *DWord) As DWord 600 602 Declare Function GetFileTime Lib "kernel32" (hFile As HANDLE, ByRef lpCreationTime As FILETIME, ByRef lpLastAccessTime As FILETIME, ByRef lpLastWriteTime As FILETIME) As BOOL 601 603 … … 621 623 ) As BOOL 622 624 Declare Function GetPriorityClass Lib "kernel32" (hProcess As HANDLE) As DWord 623 Declare Function GetProcAddress Lib "kernel32" (hModule As HINSTANCE, lpProcName As BytePtr) As DWord625 Declare Function GetProcAddress Lib "kernel32" (hModule As HINSTANCE, pProcName As PCSTR) As DWord 624 626 Declare Function GetProcessAffinityMask Lib "kernel32" ( 625 627 hProcess As HANDLE, … … 634 636 ) As DWord 635 637 636 Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (ByRef lpStartupInfo As STARTUPINFO)638 Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (ByRef StartupInfo As STARTUPINFO) 637 639 638 640 Const STD_INPUT_HANDLE = -10 … … 655 657 wProcessorRevision As Word 656 658 End Type 657 Declare Sub GetSystemInfo Lib "kernel32" (ByRef lpSystemInfo As SYSTEM_INFO)659 Declare Sub GetSystemInfo Lib "kernel32" (ByRef SystemInfo As SYSTEM_INFO) 658 660 659 661 Declare Sub GetSystemTime Lib "kernel32" (ByRef SystemTime As SYSTEMTIME) … … 666 668 pTempFileName As PSTR 667 669 ) As DWord 668 Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (nBufferLength As DWord, lpBuffer As BytePtr) As DWord670 Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (nBufferLength As DWord, lpBuffer As PSTR) As DWord 669 671 Declare Function GetThreadContext Lib "kernel32" (hThread As HANDLE, ByRef Context As CONTEXT) As BOOL 670 672 … … 691 693 Const TIME_NOTIMEMARKER = &H00000004 692 694 Const TIME_FORCE24HOURFORMAT = &H00000008 693 Declare Function GetTimeFormat Lib "kernel32" Alias "GetTimeFormatA" (Locale As LCID, dwFlags As DWord, ByRef lpTime As SYSTEMTIME, lpFormat As BytePtr, lpTimeStr As BytePtr, cchTime As DWord) As BOOL695 Declare Function GetTimeFormat Lib "kernel32" Alias "GetTimeFormatA" (Locale As LCID, dwFlags As DWord, ByRef Time As SYSTEMTIME, lpFormat As BytePtr, lpTimeStr As BytePtr, cchTime As DWord) As BOOL 694 696 695 697 Declare Function GetUserDefaultLCID Lib "kernel32" () As LCID … … 707 709 szCSDVersion[127] As Byte 708 710 End Type 709 Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As BOOL711 Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef VersionInformation As OSVERSIONINFO) As BOOL 710 712 711 713 Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (pBuffer As PSTR, uSize As DWord) As DWord … … 737 739 Declare Function HeapReAlloc Lib "kernel32" (hHeap As HANDLE, dwFlags As DWord, lpMem As VoidPtr, dwBytes As SIZE_T) As VoidPtr 738 740 Declare Function HeapSize Lib "kernel32" (hHeap As HANDLE, dwFlags As DWord, lpMem As VoidPtr) As SIZE_T 739 Declare Sub InitializeCriticalSection Lib "kernel32" (ByRef lpCriticalSection As CRITICAL_SECTION)741 Declare Sub InitializeCriticalSection Lib "kernel32" (ByRef CriticalSection As CRITICAL_SECTION) 740 742 Declare Function IsBadReadPtr Lib "kernel32" (lp As VoidPtr, ucb As ULONG_PTR) As BOOL 741 743 Declare Function IsBadWritePtr Lib "kernel32" (lp As VoidPtr, ucb As ULONG_PTR) As BOOL … … 826 828 Declare Function OpenProcess Lib "kernel32" (dwDesiredAccess As DWord, bInheritHandle As Long, dwProcessId As DWord) As HANDLE 827 829 828 Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (lpOutputString As BytePtr) 830 Declare Sub OutputDebugStringA Lib "kernel32" (pOutputString As PCSTR) 831 Declare Sub OutputDebugStringW Lib "kernel32" (pOutputString As PCWSTR) 832 #ifdef UNICODE 833 Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringW" (pOutputString As PCTSTR) 834 #else 835 Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (pOutputString As PCTSTR) 836 #endif 829 837 Declare Function PulseEvent Lib "kernel32" (hEvent As HANDLE) As BOOL 830 838 Declare Sub RaiseException Lib "kernel32" ( … … 841 849 Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (lpComputerName As BytePtr) As BOOL 842 850 Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (lpPathName As BytePtr) As BOOL 851 Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (pPath As PCSTR, pFileName As PCSTR, pExtension As PCSTR, BufferLength As DWord, pBuffer As PSTR, ByRef pFilePart As PSTR) As DWord 843 852 Declare Function SetEndOfFile Lib "kernel32" (hFile As HANDLE) As BOOL 844 853 Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (lpName As BytePtr, lpValue As BytePtr) As BOOL -
Include/basic/function.sbp
r123 r125 694 694 Dim temp[255] As Char 695 695 #ifdef _WIN64 696 _sntprintf(temp, Len (temp) /SizeOf (Char), "%I64d", value)696 _sntprintf(temp, Len (temp) \ SizeOf (Char), "%I64d", value) 697 697 #else 698 _sntprintf(temp, Len (temp) /SizeOf (Char), "%d", value)698 _sntprintf(temp, Len (temp) \ SizeOf (Char), "%d", value) 699 699 #endif 700 700 Str$ = temp … … 1068 1068 End Function 1069 1069 1070 Function_System_FillChar(p As *Char, n As SIZE_T, c As Char)1070 Sub _System_FillChar(p As *Char, n As SIZE_T, c As Char) 1071 1071 Dim i As SIZE_T 1072 1072 For i = 0 To ELM(n) 1073 1073 p[i] = c 1074 1074 Next 1075 End Sub 1076 1077 Function _System_ASCII_IsUpper(c As Char) As Boolean 1078 Return c As DWord - &h41 < 26 ' &h41 = Asc("A") 1079 End Function 1080 1081 Function _System_ASCII_IsLower(c As Char) As Boolean 1082 Return c As DWord - &h61 < 26 ' &h61 = Asc("a") 1083 End Function 1084 1085 Function _System_ASCII_ToLower(c As Char) 1086 If _System_ASCII_IsUpper(c) Then 1087 Return c Or &h20 1088 Else 1089 Return c 1090 End If 1091 End Function 1092 1093 Function _System_ASCII_ToUpper(c As Char) 1094 If _System_ASCII_IsLower(c) Then 1095 Return c And (Not &h20) 1096 Else 1097 Return c 1098 End If 1099 End Function 1100 1101 Function _System_WideCharToMultiByte(s As PCWSTR) As PSTR 1102 Return _System_WideCharToMultiByte(s, lstrlenW(s) + 1, 0) 1103 End Function 1104 1105 Function _System_WideCharToMultiByte(s As PCWSTR, size As Long) As PSTR 1106 Return _System_WideCharToMultiByte(s, size, 0) 1107 End Function 1108 1109 Function _System_WideCharToMultiByte(ws As PCWSTR, size As Long, flag As DWord) As PSTR 1110 Dim sizeMBS = WideCharToMultiByte(CP_THREAD_ACP, flag, s, size, 0, 0, 0, 0) 1111 Dim mbs = malloc(sizeMBS) As PSTR 1112 WideCharToMultiByte(CP_THREAD_ACP, flag, s, size, mbs, sizeMBS, 0, 0) 1113 Return mbs 1114 End Function 1115 1116 Function _System_MultiByteToWideChar(s As PCSTR) As PWSTR 1117 Return _System_MultiByteToWideChar(s, lstrlenA(s) + 1, 0) 1118 End Function 1119 1120 Function _System_MultiByteToWideChar(s As PCSTR, size As Long) As PWSTR 1121 Return _System_MultiByteToWideChar(s, size, 0) 1122 End Function 1123 1124 Function _System_MultiByteToWideChar(s As PCSTR, size As Long, flag As DWord) As PWSTR 1125 Dim sizeMBS = MultiByteToWideChar(CP_THREAD_ACP, flag, s, size, 0, 0) 1126 Dim mbs = malloc(SizeOf (WCHAR) * sizeMBS) As PWSTR 1127 MultiByteToWideChar(CP_THREAD_ACP, flag, s, size, mbs, sizeMBS) 1128 Return mbs 1075 1129 End Function 1076 1130 -
Include/basic/prompt.sbp
r123 r125 13 13 14 14 'text 15 15 16 Dim _PromptSys_LogFont As LOGFONTA 'LOGFONT 16 17 Dim _PromptSys_hFont As HFONT … … 23 24 Dim _PromptSys_TextColor[100] As *COLORREF 24 25 Dim _PromptSys_BackColor[100] As *COLORREF 26 Dim _PromptSys_TextWidth[100] As Long 25 27 Dim _PromptSys_NowTextColor As COLORREF 26 28 Dim _PromptSys_NowBackColor As COLORREF … … 45 47 Sub DrawPromptBuffer(hDC As HDC, StartLine As Long, EndLine As Long) 46 48 Dim i As Long, i2 As Long, i3 As Long 47 Dim sz As SIZE48 Dim temporary[2] As Char49 49 50 50 Dim hOldFont = SelectObject(hDC, _PromptSys_hFont) As HFONT … … 53 53 Dim rc As RECT 54 54 GetClientRect(_PromptSys_hWnd, rc) 55 While (_PromptSys_CurPos.y+1) *_PromptSys_FontSize.cy>rc.bottom and _PromptSys_CurPos.y>055 While (_PromptSys_CurPos.y+1) * _PromptSys_FontSize.cy > rc.bottom and _PromptSys_CurPos.y > 0 56 56 _System_free(_PromptSys_Buffer[0]) 57 57 _System_free(_PromptSys_TextColor[0]) 58 58 _System_free(_PromptSys_BackColor[0]) 59 For i =0 To 100-159 For i = 0 To 100 - 1 60 60 _PromptSys_Buffer[i] = _PromptSys_Buffer[i+1] 61 61 _PromptSys_TextColor[i] = _PromptSys_TextColor[i+1] 62 62 _PromptSys_BackColor[i] = _PromptSys_BackColor[i+1] 63 _PromptSys_TextWidth[i] = _PromptSys_TextWidth[i+1] 63 64 Next 64 65 _PromptSys_Buffer[100] = _System_calloc(SizeOf (Char) * 255) 65 66 _PromptSys_TextColor[100] = _System_calloc(SizeOf(COLORREF) * 255) 66 67 _PromptSys_BackColor[100] = _System_calloc(SizeOf(COLORREF) * 255) 68 _PromptSys_TextWidth[100] = 0 67 69 68 70 _PromptSys_CurPos.y-- 69 71 70 72 'Redraw 71 StartLine =-173 StartLine = -1 72 74 Wend 73 75 74 i =075 While i *_PromptSys_FontSize.cy<rc.bottom and i<=10076 i = 0 77 While i * _PromptSys_FontSize.cy < rc.bottom and i <= 100 76 78 If StartLine=-1 or (StartLine<=i and i<=EndLine) Then 79 Dim sz As SIZE 77 80 i3 = lstrlen(_PromptSys_Buffer[i]) 78 81 GetTextExtentPoint32(hDC, _PromptSys_Buffer[i], i3, sz) 79 82 80 83 BitBlt(hDC,_ 81 sz.cx, i *_PromptSys_FontSize.cy, _84 sz.cx, i * _PromptSys_FontSize.cy, _ 82 85 rc.right, _PromptSys_FontSize.cy, _ 83 _PromptSys_hMemDC,sz.cx,i*_PromptSys_FontSize.cy,SRCCOPY) 84 86 _PromptSys_hMemDC, sz.cx, i * _PromptSys_FontSize.cy, SRCCOPY) 87 88 Dim width = 0 As Long 85 89 For i2 = 0 To i3-1 86 90 SetTextColor(hDC, _PromptSys_TextColor[i][i2]) … … 92 96 End If 93 97 98 Dim temporary[2] As Char 94 99 Dim tempLen As Long 95 temporary[0] =_PromptSys_Buffer[i][i2]100 temporary[0] = _PromptSys_Buffer[i][i2] 96 101 #ifdef UNICODE 97 102 If _System_IsSurrogatePair(_PromptSys_Buffer[i][i2], _PromptSys_Buffer[i][i2+1]) Then … … 108 113 End If 109 114 With _PromptSys_FontSize 110 TextOut(hDC, i2 * .cx, i * .cy, temporary, tempLen)115 TextOut(hDC, width, i * .cy, temporary, tempLen) 111 116 End With 117 GetTextExtentPoint32(hDC, temporary, i3, sz) 118 width += sz.cx 112 119 Next 113 120 End If … … 150 157 .x++ 151 158 Loop 159 152 160 'Draw the text buffer added 153 161 Dim hDC = GetDC(_PromptSys_hWnd) … … 182 190 183 191 Dim tm As TEXTMETRIC 184 Dim hOldFont =SelectObject(_PromptSys_hMemDC, _PromptSys_hFont) As HFONT192 Dim hOldFont = SelectObject(_PromptSys_hMemDC, _PromptSys_hFont) As HFONT 185 193 GetTextExtentPoint32(_PromptSys_hMemDC, " " As PCTSTR, 1, _PromptSys_FontSize) 186 194 GetTextMetrics(_PromptSys_hMemDC, tm) … … 190 198 ReleaseDC(hWnd,hDC) 191 199 Case WM_PAINT 192 hDC = BeginPaint(hWnd,ps) 200 hDC = BeginPaint(hWnd, ps) 201 /* 193 202 With _PromptSys_ScreenSize 194 203 BitBlt(hDC, 0, 0, .cx, .cy, _PromptSys_hMemDC, 0, 0, SRCCOPY) 204 */ 205 With ps.rcPaint 206 BitBlt(hDC, .left, .top, .right - .left, .bottom - .top, _PromptSys_hMemDC, .left, .top, SRCCOPY) 195 207 End With 196 208 DrawPromptBuffer(hDC, -1, 0) … … 270 282 SendMessage(hWnd, WM_SETFOCUS, 0, 0) 271 283 End If 284 Case WM_IME_COMPOSITION 285 Return _PromptSys_OnImeCompostion(hWnd, wParam, lParam) 272 286 Case WM_DESTROY 273 287 DeleteDC(_PromptSys_hMemDC) … … 282 296 End Function 283 297 298 Function _PromptSys_OnImeCompostion(hwnd As HWND, wp As WPARAM, lp As LPARAM) As LRESULT 299 If (lp And GCS_RESULTSTR) <> 0 Then 300 Dim himc = ImmGetContext(hwnd) 301 If himc = 0 Then 302 'Debug 303 Return 0 304 End If 305 Dim size = ImmGetCompositionString(himc, GCS_RESULTSTR, 0, 0) 'sizeはバイト単位 306 Dim str = _System_malloc(size) As PTSTR 307 If str = 0 Then 308 'Debug 309 Return 0 310 End If 311 ImmGetCompositionString(himc, GCS_RESULTSTR, str, size) 312 ImmReleaseContext(hwnd, himc) 313 314 memcpy(VarPtr(_PromptSys_InputStr[_PromptSys_InputLen]), str, size) 315 _PromptSys_InputLen += size 316 317 Dim tempStr As String(str, size \ SizeOf (Char)) 318 _System_free(str) 319 320 SendMessage(hwnd, WM_KILLFOCUS, 0, 0) 321 PRINT_ToPrompt(tempStr) 322 SendMessage(hwnd, WM_SETFOCUS, 0, 0) 323 324 Return 0 325 Else 326 Return DefWindowProc(hwnd, WM_IME_COMPOSITION, wp, lp) 327 End If 328 End Function 329 284 330 Function PromptMain(dwData As Long) As Long 285 331 Dim i As Long … … 297 343 298 344 'Setup 299 _PromptSys_ScreenSize.cx=GetSystemMetrics(SM_CXSCREEN) 300 _PromptSys_ScreenSize.cy=GetSystemMetrics(SM_CYSCREEN) 345 With _PromptSys_ScreenSize 346 .cx = GetSystemMetrics(SM_CXSCREEN) 347 .cy = GetSystemMetrics(SM_CYSCREEN) 348 End With 301 349 302 350 'LogFont initialize … … 315 363 .lfQuality = DEFAULT_QUALITY 316 364 .lfPitchAndFamily = FIXED_PITCH 365 #ifdef UNICODE 366 WideCharToMultiByte(CP_ACP, 0, "MS 明朝", 5, .lfFaceName, LF_FACESIZE, 0, 0) 367 #else 317 368 lstrcpy(.lfFaceName, "MS 明朝") 369 #endif 318 370 End With 319 371 320 _PromptSys_hFont = CreateFontIndirect (ByVal VarPtr(_PromptSys_LogFont))372 _PromptSys_hFont = CreateFontIndirectA(ByVal VarPtr(_PromptSys_LogFont)) 321 373 322 374 'Critical Section … … 340 392 341 393 'Create Prompt Window 342 _PromptSys_hWnd=CreateWindowEx(WS_EX_CLIENTEDGE,atom As ULONG_PTR As PCSTR,"BASIC PROMPT",WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,0,0,GetModuleHandle(0),0) 394 _PromptSys_hWnd = CreateWindowEx(WS_EX_CLIENTEDGE, atom As ULONG_PTR As PCSTR, "BASIC PROMPT", 395 WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, 396 0, 0, wcl.hInstance, 0) 343 397 ShowWindow(_PromptSys_hWnd, SW_SHOW) 344 398 UpdateWindow(_PromptSys_hWnd)
Note:
See TracChangeset
for help on using the changeset viewer.