Changeset 303
- Timestamp:
- Aug 24, 2007, 11:14:46 AM (17 years ago)
- Location:
- trunk/Include
- Files:
-
- 2 added
- 1 deleted
- 30 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/ActiveBasic/Windows/CriticalSection.ab
r297 r303 7 7 8 8 Namespace Detail 9 Const InterlockedExchangeAnyPointer(p, x) = InterlockedExchangePointer( VarPtr(p) AsVoidPtr, x)9 Const InterlockedExchangeAnyPointer(p, x) = InterlockedExchangePointer(ByVal VarPtr(p) As *VoidPtr, x) 10 10 End Namespace 11 11 … … 53 53 54 54 /*Override*/ Sub Dispose() 55 Dim pcs = Detail.InterlockedExchangeAnyPointer(pcs, 0) 56 If pcs <> 0 Then 57 LeaveCriticalSection(ByVal pcs) 55 ' Dim p = ActiveBasic.Windows.Detail.InterlockedExchangeAnyPointer(pcs, 0) 56 Dim p = InterlockedExchangePointer(pcs As VoidPtr, 0) As *CRITICAL_SECTION 57 If p <> 0 Then 58 LeaveCriticalSection(ByVal p) 58 59 End If 59 60 End Sub -
trunk/Include/Classes/ActiveBasic/Windows/WindowHandle.sbp
r302 r303 1 ' Windows/WindowHandle.sbp 2 3 #ifndef __WINDOWS_WINDOWHANDLE_SBP__ 4 #define __WINDOWS_WINDOWHANDLE_SBP__ 1 'Classes/ActiveBasic/Windows/WindowHandle.sbp 5 2 6 3 #ifdef _WIN64 … … 16 13 #endif 17 14 Declare Function _System_GetParent Lib "user32" Alias "GetParent" (hWnd As HWND) As HWND 18 Declare Function _System_SetParent Lib "user32" Alias "SetParent" (hWnd As HWND ) As HWND15 Declare Function _System_SetParent Lib "user32" Alias "SetParent" (hWnd As HWND, hwndParent As HWND) As HWND 19 16 Declare Function _System_GetMenu Lib "user32" Alias "GetMenu" (hWnd As HWND) As HMENU 20 Declare Function _System_SetMenu Lib "user32" Alias "SetMenu" (hWnd As HWND ) As HMENU17 Declare Function _System_SetMenu Lib "user32" Alias "SetMenu" (hWnd As HWND, hmenu As HMENU) As HMENU 21 18 Declare Function _System_InvalidateRect Lib "user32" Alias "InvalidateRect" (hWnd As HWND, ByRef Rect As RECT, bErase As BOOL) As BOOL 22 19 Declare Function _System_InvalidateRgn Lib "user32" Alias "InvalidateRgn" (hWnd As HWND, hRgn As HRGN, bErase As BOOL) As BOOL … … 33 30 Declare Function _System_GetWindowRect Lib "user32" Alias "DrawMenuBar" (hWnd As HWND, ByRef Rect As RECT) As BOOL 34 31 Declare Function _System_IsWindow Lib "user32" Alias "IsWindow" (hWnd As HWND) As BOOL 35 Declare Function _System_Is iconic Lib "user32" Alias "Isiconic" (hWnd As HWND) As BOOL32 Declare Function _System_IsIconic Lib "user32" Alias "IsIconic" (hWnd As HWND) As BOOL 36 33 Declare Function _System_GetClientRect Lib "user32" Alias "GetClientRect" (hWnd As HWND, ByRef Rect As RECT) As BOOL 37 34 Declare Function _System_GetProp Lib "user32" Alias _FuncName_GetProp (hWnd As HWND, pString As PCTSTR) As HANDLE … … 41 38 Declare Function _System_SetScrollInfo Lib "user32" Alias "SetScrollInfo" (hWnd As HWND, fnBar As Long, ByRef lpsi As SCROLLINFO, bRedraw As Long) As BOOL 42 39 Declare Function _System_GetSystemMenu Lib "user32" Alias "GetSystemMenu" (hWnd As HWND, bRevert As BOOL) As HMENU 43 Declare Function _System_GetDC Lib "gdi32" Alias "GetDC" (hwnd As HWND) As HDC 44 Declare Function _System_ReleaseDC Lib "gdi32" Alias "ReleaseDC" (hwnd As HWND, hdc As HDC) As BOOL 40 Declare Function _System_GetDC Lib "user32" Alias "GetDC" (hwnd As HWND) As HDC 41 Declare Function _System_GetDCEx Lib "user32" Alias "GetDCEx" (hwnd As HWND, hrgnClip As HRGN, flags As DWord) As HDC 42 Declare Function _System_GetWindowDC Lib "user32" Alias "GetWindowDC" (hwnd As HWND) As HDC 43 Declare Function _System_ReleaseDC Lib "user32" Alias "ReleaseDC" (hwnd As HWND, hdc As HDC) As BOOL 44 Declare Function _System_SendMessage Lib "user32" Alias _FuncName_SendMessage (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 45 Declare Function _System_PostMessage Lib "user32" Alias _FuncName_PostMessage (hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 46 Declare Function _System_SendDlgItemMessage Lib "user32" Alias _FuncName_SendDlgItemMessage (hwnd As HWND, id As DWord, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 47 Declare Function _System_GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (hwnd As HWND, pdwProcessId As *DWord) As DWord 48 49 Namespace ActiveBasic 50 Namespace Windows 45 51 46 52 Class WindowHandle … … 55 61 End Sub 56 62 57 Sub WindowHandle(wnd As WindowHandle)58 hwnd = wnd.hwnd59 End Sub60 61 Sub Operator =(hwndNew As HWND)62 hwnd = hwndNew63 End Sub64 65 63 Const Function HWnd() As HWND 66 64 Return hwnd … … 78 76 Return _System_BeginPaint(hwnd, ps) 79 77 End Function 80 78 /* 81 79 Const Function ChildFromPoint(x As Long, y As Long) As WindowHandle 82 80 Return New WindowHandle(ChildWindowFromPoint(hwnd, x, y)) … … 86 84 Return New WindowHandle(ChildWindowFromPointEx(hwnd, x, y, flags)) 87 85 End Function 88 86 */ 89 87 Const Function ClientToScreen(ByRef pt As POINTAPI) As Boolean 90 88 Return _System_ClientToScreen(hwnd, pt) As Boolean … … 101 99 102 100 Function CreateCaret(hbmp As HBITMAP, width As Long, height As Long) As Boolean 103 Return _System_CreateCaret(hwnd, hbmp, width, he giht) As Boolean101 Return _System_CreateCaret(hwnd, hbmp, width, height) As Boolean 104 102 End Function 105 103 … … 111 109 Return _System_DrawMenuBar(hwnd) As Boolean 112 110 End Function 113 111 /* 114 112 Function EnableScrollBar(SBFlags As DWord, arrows As DWord) As Boolean 115 113 Return EnableScrollBar(hwnd, SBFlags, arrows) As Boolean 116 114 End Function 117 115 */ 118 116 Function Enable(enable As Boolean) As Boolean 119 117 Return EnableWindow(hwnd, enable) As Boolean … … 137 135 138 136 Const Function GetClassName(className As PTSTR, maxCount As Long) As Long 139 Return _System_GetClassName( className, maxCount)137 Return _System_GetClassName(hwnd, className, maxCount) 140 138 End Function 141 139 … … 143 141 Return _System_GetClientRect(hwnd, rc) As Boolean 144 142 End Function 145 143 /* 146 144 Const Function GetContextHelpId() As DWord 147 145 Return GetWindowContextHelpId(hwnd) 148 146 End Function 149 147 */ 150 148 Function GetDC() As HDC 151 149 Return _System_GetDC(hwnd) … … 153 151 154 152 Function GetDCEx(hrgnClip As HRGN, flags As DWord) As HDC 155 Return GetDCEx(hwnd, hrgnClip, flags)156 End Function 157 153 Return _System_GetDCEx(hwnd, hrgnClip, flags) 154 End Function 155 /* 158 156 Const Function GetDlgCtrlID() As Long 159 157 Return GetDlgCtrlID(hwnd) … … 167 165 Return GetDlgItemText(hwnd, idDlgItem, ps, maxCount) 168 166 End Function 169 167 */ 170 168 Const Function GetMenu() As HMENU 171 169 Return _System_GetMenu(hwnd) 172 170 End Function 173 171 /* 174 172 Const Function GetParent() As WindowHandle 175 173 Return New WindowHandle(_System_GetParent(hwnd)) 176 174 End Function 177 175 */ 178 176 Const Function GetProp(str As String) As HANDLE 179 177 Return _System_GetProp(hwnd, ToTCStr(str)) … … 191 189 Return _System_GetScrollInfo(hwnd, fnBar, si) As Boolean 192 190 End Function 193 191 /* 194 192 Const Function GetSystemMenu(revert As Boolean) As HMENU 195 193 Return GetSystemMenu(hwnd, revert) … … 207 205 Return GetWindow(hwnd, cmd) 208 206 End Function 209 207 */ 210 208 Function GetWindowDC() As HDC 211 Return GetWindowDC(hwnd)209 Return _System_GetWindowDC(hwnd) 212 210 End Function 213 211 … … 215 213 Return _System_GetWindowLongPtr(hwnd, index) 216 214 End Function 217 215 /* 218 216 Const Function GetWindowPlasement(ByRef wndpl As WINDOWPLACEMENT) As Boolean 219 217 Return GetWindowPlasement(hwnd, wndpl) As Boolean 220 218 End Function 221 219 */ 222 220 Const Function GetWindowRect(ByRef rc As RECT) As Boolean 223 Return _System_GetWindowRect( rc) As Boolean221 Return _System_GetWindowRect(hwnd, rc) As Boolean 224 222 End Function 225 223 226 224 Const Function GetText(ps As PTSTR, maxCount As Long) As Boolean 227 Return GetWindowText( ps, maxCount) As Boolean225 Return GetWindowText(hwnd, ps, maxCount) As Boolean 228 226 End Function 229 227 … … 233 231 234 232 Const Function GetWindowThreadId() As DWord 235 Return GetWindowProcessThreadId(hwnd, 0)236 End Function 237 238 Const Function GetWindow ProcessThreadId(ByRef processId As DWord) As DWord239 Return GetWindowProcessThreadId(hwnd, VarPtr(processId))233 Return _System_GetWindowThreadProcessId(hwnd, 0) 234 End Function 235 236 Const Function GetWindowThreadProcessId(ByRef processId As DWord) As DWord 237 Return _System_GetWindowThreadProcessId(hwnd, VarPtr(processId)) 240 238 End Function 241 239 … … 267 265 Return _System_InvalidateRect(hwnd, ByVal 0, TRUE) As Boolean 268 266 End Function 269 267 /* 270 268 Const Function IsChild(hwnd As HWND) As Boolean 271 269 Return IsChild(This.hwnd, hwnd) As Boolean … … 275 273 Return IsDialogMessage(hwnd, msg) As Boolean 276 274 End Function 277 275 */ 278 276 Const Function IsIconic() As Boolean 279 277 Return _System_IsIconic(hwnd) As Boolean … … 295 293 Return IsWindowVisible(hwnd) As Boolean 296 294 End Function 297 295 /* 298 296 Const Function IsZoomed() As Boolean 299 297 Return IsZoomed(hwnd) As Boolean … … 303 301 Return KillTimer(idEvent) As Boolean 304 302 End Function 305 303 */ 306 304 Function LockUpdate() As Boolean 307 305 Return LockWindowUpdate(hwnd) As Boolean 308 306 End Function 309 307 /* 310 308 Function MapPoints(hwndTo As HWND, pPoints As *POINTAPI, cPoints As DWord) As Long 311 309 Return MapWindowPoints(hwnd, hwndTo, pPoints, cPoints) … … 327 325 Return MessageBox(hwnd, text, 0, MB_OK) 328 326 End Function 329 327 */ 330 328 Function Move(x As Long, y As Long, width As Long, height As Long, repaint As Boolean) As Boolean 331 329 Return MoveWindow(hwnd, x, y, width, height, repaint) As Boolean … … 336 334 End Function 337 335 338 Function Move(ByRef rc As RECT, rep eaint As Boolean) As Boolean336 Function Move(ByRef rc As RECT, repaint As Boolean) As Boolean 339 337 With rc 340 338 Return MoveWindow(hwnd, .left, .top, .right - .left, .bottom - .top, repaint) As Boolean … … 347 345 End With 348 346 End Function 349 347 /* 350 348 Function OpenClipboard() As Boolean 351 349 Return OpenClipboard(hwnd) As Boolean … … 355 353 Return OpenIcon(hwnd) As Boolean 356 354 End Function 357 355 */ 358 356 Function PostMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As Boolean 359 Return PostMessage(hwnd, msg, wp, lp) As Boolean357 Return _System_PostMessage(hwnd, msg, wp, lp) As Boolean 360 358 End Function 361 359 362 360 Function PostMessage(msg As DWord) As Boolean 363 Return PostMessage(hwnd, msg, 0, 0) As Boolean364 End Function 365 361 Return _System_PostMessage(hwnd, msg, 0, 0) As Boolean 362 End Function 363 /* 366 364 Function RedrawWindow(ByRef rcUpdate As RECT, hrgnUpdate As HRGN, flags As DWord) As Boolean 367 365 Return RedrawWindow(hwnd, rcUpdatre, hrgnUpdate, flags) As Boolean 368 366 End Function 369 367 */ 370 368 Function ReleaseDC(hdc As HDC) As Boolean 371 369 Return _System_ReleaseDC(hwnd, hdc) As Boolean 372 370 End Function 373 371 /* 374 372 Function RemoveProp(str As String) As HANDLE 375 373 Return RemoveProp(hwnd, ToTCStr(str)) … … 383 381 Return RemoveProp(hwnd, atom As ULONG_PTR As PCTSTR) 384 382 End Function 385 383 */ 386 384 Const Function ScreenToClient(ByRef pt As POINTAPI) As Boolean 387 385 Return _System_ScreenToClient(hwnd, pt) As Boolean … … 398 396 399 397 Function SendDlgItemMessage(idDlgItem As Long, msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 400 Return SendDlgItemMessage(hwnd, idDlgItem, wp, lp)398 Return _System_SendDlgItemMessage(hwnd, idDlgItem, msg, wp, lp) 401 399 End Function 402 400 403 401 Function SendDlgItemMessage(idDlgItem As Long, msg As DWord) As LRESULT 404 Return SendDlgItemMessage(hwnd, idDlgItem, 0, 0)402 Return _System_SendDlgItemMessage(hwnd, idDlgItem, msg, 0, 0) 405 403 End Function 406 404 407 405 Function SendMessage(msg As DWord, wp As WPARAM, lp As LPARAM) As LRESULT 408 Return SendMessage(hwnd, msg, wp, lp)406 Return _System_SendMessage(hwnd, msg, wp, lp) 409 407 End Function 410 408 411 409 Function SendMessage(msg As DWord) As LRESULT 412 Return SendMessage(hwnd, msg, 0, 0)413 End Function 414 410 Return _System_SendMessage(hwnd, msg, 0, 0) 411 End Function 412 /* 415 413 Function SetActiveWindow() As WindowHandle 416 414 Return New WindowHandle(SetActiveWindow(hwnd)) … … 424 422 Return New WindowHandle(SetCapture(hwnd)) 425 423 End Function 426 424 */ 427 425 Function SetClassLongPtr(index As Long, newLong As LONG_PTR) As LONG_PTR 428 426 Return _System_SetClassLongPtr(hwnd, index, newLong) 429 427 End Function 430 428 /* 431 429 Function SetFocus() As WindowHandle 432 430 Return New WindowHandle(SetFocus(hwnd)) 433 431 End Function 434 432 */ 435 433 Function SetForeground() As Boolean 436 434 Return SetForegroundWindow(hwnd) As Boolean … … 454 452 455 453 Function SetProp(atom As ATOM, hData As HANDLE) As Boolean 456 Return SetProp((atom As ULONG_PTR) As PCTSTR, hData) As Boolean454 Return This.SetProp((atom As ULONG_PTR) As PCTSTR, hData) As Boolean 457 455 End Function 458 456 … … 464 462 Return _System_SetScrollInfo(hwnd, fnBar, si, TRUE) As Boolean 465 463 End Function 466 464 /* 467 465 Function SetTimer(idEvent As ULONG_PTR, elapse As DWord, timerFunc As TIMERPROC) As ULONG_PTR 468 466 Return SetTmer(hwnd, idEvent, elapse, timerFunc) … … 470 468 471 469 Function SetTimer(idEvent As ULONG_PTR, elapse As DWord) As ULONG_PTR 472 Return SetTmer(hwnd, idEvent, elapse, 0)470 Return This.SetTmer(hwnd, idEvent, elapse, 0) 473 471 End Function 474 472 … … 476 474 Return SetContextHelpId(hwnd, contextHelpId) As Boolean 477 475 End Function 478 476 */ 479 477 Function SetWindowLongPtr(index As Long, newLong As LONG_PTR) As LONG_PTR 480 478 Return _System_SetWindowLongPtr(hwnd, index, newLong) 481 479 End Function 482 480 /* 483 481 Function SetWindowPlacement(ByRef wndpl As WINDOWPLACEMENT) As Boolean 484 482 Return SetWindowPlacement(hwnd, wndpl) As Boolean 485 483 End Function 486 484 */ 487 485 Function SetPos(hwndInsertAfter As HWND, x As Long, y As Long, cx As Long, cy As Long, flags As DWord) As Boolean 488 486 Return SetWindowPos(hwnd, hwndInsertAfter, x, y, cx, cy, flags) As Boolean … … 514 512 Return _System_ShowCaret(hwnd) As Boolean 515 513 End Function 516 514 /* 517 515 Function ShowScrollBar(bar As DWord, show As Boolean) As Boolean 518 516 Return ShowScrollBar(hwnd, bar, show) As Boolean … … 522 520 Return ShowScrollBar(hwnd, bar, TRUE) As Boolean 523 521 End Function 524 522 */ 525 523 Function Show(cmdShow As DWord) As Boolean 526 524 Return ShowWindow(hwnd, cmdShow) As Boolean … … 556 554 Return _System_GetWindowLongPtr(hwnd, GWL_STYLE) As DWord 557 555 End Function 558 556 #ifdef _UNDEF 559 557 Const Function GetWndProc() As WNDPROC 560 Return _System_GetWindowLongPtr(hwnd, GWLP_ HINSTANCE) As WNDPROC561 End Function 562 558 Return _System_GetWindowLongPtr(hwnd, GWLP_WNDPROC) As WNDPROC 559 End Function 560 #endif 563 561 Const Function GetInstance() As HINSTANCE 564 562 Return _System_GetWindowLongPtr(hwnd, GWLP_HINSTANCE) As HINSTANCE … … 576 574 Return _System_SetWindowLongPtr(hwnd, GWL_STYLE, style) As DWord 577 575 End Function 578 576 #ifdef _UNDEF 579 577 Function SetWndProc(wndProc As WNDPROC) As WNDPROC 580 Return _System_SetWindowLongPt R(hwnd, GWLP_WNDPROC, wndProc As WNDPROC) As WNDPROC581 End Function 582 578 Return _System_SetWindowLongPtr(hwnd, GWLP_WNDPROC, wndProc As WNDPROC) As WNDPROC 579 End Function 580 #endif 583 581 Function SetUserData(value As LONG_PTR) As LONG_PTR 584 Return _System_SetWindowLongPtr( value As LONG_PTR)582 Return _System_SetWindowLongPtr(hwnd, GWLP_USERDATA, value As LONG_PTR) 585 583 End Function 586 584 … … 592 590 Return rc 593 591 End Function 594 592 #ifdef _UNDEF 595 593 Sub ClientRect(ByRef rc As RECT) 596 594 Dim hasMenu As BOOL 597 If IsChild() = False And IsMenu() <> FalseThen595 If IsChild() = False And GetMenu() <> 0 Then 598 596 hasMenu = TRUE 599 597 Else … … 601 599 End If 602 600 AdjustWindowRectEx(rc, GetStyle(), hasMenu, GetExStyle()) 603 MoveWindow(rc) ' WindowRect = rc604 End Sub 605 601 This.Move(rc) ' WindowRect = rc 602 End Sub 603 #endif 606 604 Const Function WindowRect() As RECT 607 605 Dim rc As RECT … … 611 609 612 610 Sub WindowRect(ByRef rc As RECT) 613 MoveWindow(rc)614 End Sub 615 611 This.Move(rc) 612 End Sub 613 #ifdef _UNDEF 616 614 Const Function ContextHelpID() As DWord 617 615 Return GetContextHelpId(hwnd) … … 634 632 Return w 635 633 End Function 636 634 #endif 637 635 Const Function ExStyle() As DWord 638 636 Return _System_GetWindowLongPtr(hwnd, GWL_EXSTYLE) As DWord … … 640 638 641 639 Sub ExStyle(newExStyle As DWord) 642 _System_SetWindowLongPtr(hwnd, GWL P_EXSTYLE, newExStyle)640 _System_SetWindowLongPtr(hwnd, GWL_EXSTYLE, newExStyle) 643 641 End Sub 644 642 … … 648 646 649 647 Sub Style(newStyle As DWord) 650 _System_SetWindowLongPtr(hwnd, GWL P_STYLE, newStyle)648 _System_SetWindowLongPtr(hwnd, GWL_STYLE, newStyle) 651 649 End Sub 652 650 … … 660 658 661 659 Const Function Font() As HFONT 662 Return SendMessage(hwnd, WM_GETFONT, 0, 0) As HFONT660 Return _System_SendMessage(hwnd, WM_GETFONT, 0, 0) As HFONT 663 661 End Function 664 662 665 663 Sub Font(hfntNew As HFONT) 666 SendMessage(hwnd, WM_SETFONT, hfntNew As WPARAM, TRUE)664 _System_SendMessage(hwnd, WM_SETFONT, hfntNew As WPARAM, TRUE) 667 665 End Sub 668 666 … … 680 678 681 679 Const Function Minimized() As Boolean 682 Return IsIconic(hwnd) As Boolean680 Return _System_IsIconic(hwnd) As Boolean 683 681 End Function 684 682 … … 705 703 End Sub 706 704 707 Const Function ProcessI D() As DWord708 GetWindow ProcessThreadId(ProcessID)709 End Function 710 711 Const Function ThreadI D() As DWord712 Return GetWindow ProcessThreadId(ByVal 0)705 Const Function ProcessId() As DWord 706 GetWindowThreadProcessId(ProcessId) 707 End Function 708 709 Const Function ThreadId() As DWord 710 Return GetWindowThreadProcessId(ByVal 0) 713 711 End Function 714 712 … … 759 757 Return GetWindowTextLength(hwnd) 760 758 End Function 761 759 #ifdef _UNDEF 762 760 Const Function UserData() As LONG_PTR 763 761 Return _System_GetWindowLongPtr(hwnd, GWLP_USERDATA) … … 767 765 _System_SetWindowLongPtr(hwnd, GWLP_USERDATA, newValue) 768 766 End Sub 769 767 #endif 770 768 Const Function Visible() As Boolean 771 Return Is Visible(hwnd) As Boolean769 Return IsWindowVisible(hwnd) As Boolean 772 770 End Function 773 771 … … 779 777 EndIf 780 778 End Sub 781 779 #ifdef _UNDEF 782 780 Const Function WindowPlacement() As WINDOWPLACEMENT 783 781 WindowPlacement.length = Len(WindowPlacement) … … 796 794 _System_SetWindowLongPtr(hwnd, GWLP_WNDPROC, newWndProc As LONG_PTR) 797 795 End Sub 798 796 #endif 799 797 Protected 800 798 Sub SetHWnd(hwndNew As HWND) … … 803 801 End Class 804 802 805 #endif '__WINDOWS_WINDOWHANDLE_SBP__ 803 End Namespace 'Widnows 804 End Namespace 'ActiveBasic -
trunk/Include/Classes/ActiveBasic/Windows/Windows.ab
r269 r303 27 27 Return GetFolderPath(0, folder) 28 28 End Function 29 /* 30 Function MessageBox(hw As HWND, s As PCSTR, t As PCSTR, b As DWord) As DWord 31 Return MessageBoxA(hw, s, t, b) 32 End Function 33 34 Function MessageBox(hw As HWND, s As PCWSTR, t As PCWSTR, b As DWord) As DWord 35 Return MessageBoxW(hw, s, t, b) 36 End Function 37 */ 38 39 Namespace Detail 40 Function _System_MessageBox(hw As HWND, s As PCSTR, t As PCSTR, b As DWord) As DWord 41 Return MessageBoxA(hw, s, t, b) 42 End Function 43 44 Function _System_MessageBox(hw As HWND, s As PCWSTR, t As PCWSTR, b As DWord) As DWord 45 Return MessageBoxW(hw, s, t, b) 46 End Function 47 End Namespace 29 48 30 49 End Namespace 'Widnows -
trunk/Include/Classes/System/Drawing/Color.ab
r282 r303 69 69 Exit Sub ' パレットインデックス指定は無効 70 70 Else 71 argb = Color_MakeARGB(255, GetRValue(rgb), GetGValue(rgb), GetBValue(rgb))71 argb = MakeARGB(255, GetRValue(rgb) As Byte, GetGValue(rgb) As Byte, GetBValue(rgb) As Byte) 72 72 End If 73 73 End Sub … … 82 82 83 83 Static Function FromArgb(argb As ARGB) As Color 84 Dim c As Color(argb) 85 Rteurn c 84 Return New Color(argb) 86 85 End Function 87 86 88 87 Static Function FromArgb(a As Byte, base As Color) As Color 89 Dim c As Color(a, base.R, base.G, base.B) 90 Return c 88 Return New Color(a, base.R, base.G, base.B) 91 89 End Function 92 90 93 91 Static Function FromArgb(r As Byte, g As Byte, b As Byte) As Color 94 Dim c As Color(r, g, b) 95 Return c 92 Return New Color(r, g, b) 96 93 End Function 97 94 98 95 Static Function FromArgb(a As Byte, r As Byte, g As Byte, b As Byte) As Color 99 Dim c As Color(a, r, g, b) 100 Return c 96 Return New Color(a, r, g, b) 101 97 End Function 102 98 … … 119 115 d = max - min 120 116 If g = max Then 121 Return ( b - r) As Double / d * 60 + 120117 Return ((b - r) As Double / d * 60.0 + 120.0) As Single 122 118 ElseIf b = max Then 123 Return ( r - g) As Double / d * 60 + 240119 Return ((r - g) As Double / d * 60 + 240) As Single 124 120 ElseIf g < b Then 125 Return ( g - b) As Double / d * 60 + 360121 Return ((g - b) As Double / d * 60 + 360) As Single 126 122 Else 127 Return ( g - b) As Double / d * 60123 Return ((g - b) As Double / d * 60) As Single 128 124 EndIf 129 125 End Function 130 126 131 127 Function GetSaturation() As Single 132 Dim max As Long, min As Long133 128 Dim r = R 134 129 Dim g = G 135 130 Dim b = B 136 max = System.Math.Max(System.Math.Max(r, g), b)137 min = System.Math.Min(System.Math.Min(r, g), b)131 Dim max = System.Math.Max(System.Math.Max(r, g), b) As Long 132 Dim min = System.Math.Min(System.Math.Min(r, g), b) As Long 138 133 Return (max - min) / max 139 134 End Function 140 135 141 136 Function GetBrightness() As Single 142 Dim max As Long143 137 Dim r = R 144 138 Dim g = G 145 139 Dim b = B 146 max = System.Math.Max(System.Math.Max(r, g), b)140 Dim max = System.Math.Max(System.Math.Max(r, g), b) 147 141 Return max * (1 / 255) 148 142 End Function -
trunk/Include/Classes/System/Drawing/Point.ab
r223 r303 75 75 76 76 Static Function Add(pt1 As Point, pt2 As Point) As Point 77 Dim ret As Point(pt1.x + pt2.x, pt1.y + pt2.y) 78 Return ret 77 Return New Point(pt1.x + pt2.x, pt1.y + pt2.y) 79 78 End Function 80 79 81 80 Static Function Add(pt As Point, sz As Size) As Point 82 Dim ret As Point(pt.x + sz.Width, pt.y + sz.Height) 83 Return ret 81 Return New Point(pt.x + sz.Width, pt.y + sz.Height) 84 82 End Function 85 83 86 84 Function Offset(pt As Point) As Point 87 Dim ret As Point(x + pt.x, y + pt.y) 88 Return ret 85 Return New Point(x + pt.x, y + pt.y) 89 86 End Function 90 87 … … 95 92 96 93 Static Function Substract(pt1 As Point, pt2 As Point) As Point 97 Dim ret As Point(pt1.x - pt2.x, pt1.y - pt2.y) 98 Return ret 94 Return New Point(pt1.x - pt2.x, pt1.y - pt2.y) 99 95 End Function 100 96 101 97 Static Function Substract(pt As Point, sz As Size) As Point 102 Dim ret As Point(pt.x - sz.Width, pt.y - sz.Height) 103 Return ret 98 Return New Point(pt.x - sz.Width, pt.y - sz.Height) 104 99 End Function 105 100 … … 113 108 114 109 Static Function Ceiling(ptf As PointF) As Point 115 Dim pt As Size(Math.Ceiling(ptf.width), Math.Ceiling(ptf.height)) 116 Return pt 110 Return New Point(System.Math.Ceiling(ptf.X) As Long, System.Math.Ceiling(ptf.Y) As Long) 117 111 End Function 118 112 119 113 Static Function Round(ptf As PointF) As Point 120 Dim pt As Point(Math.Round(ptf.width), Math.Round(ptf.height)) 121 Return pt 114 Return New Point(System.Math.Round(ptf.X) As Long, System.Math.Round(ptf.Y) As Long) 122 115 End Function 123 116 124 117 Static Function Truncate(ptf As PointF) As Point 125 Dim pt As Point(Math.Truncate(ptf.width), Math.Truncate(ptf.height)) 126 Return pt 118 Return New Point(System.Math.Truncate(ptf.X) As Long, System.Math.Truncate(ptf.Y) As Long) 127 119 End Function 128 120 129 121 Function Operator () As PointF 130 Return ReturnPointF(X, Y)122 Return New PointF(X, Y) 131 123 End Function 132 124 -
trunk/Include/Classes/System/Drawing/PointF.ab
r212 r303 48 48 Return x = 0 And y = 0 49 49 End Function 50 /* 51 Sub Operator = (ByRef pt As PointF) 52 x = pt.x 53 y = pt.y 54 End Sub 55 */ 50 56 51 Function Operator + (pt As PointF) As PointF 57 52 Return Add(This, pt) -
trunk/Include/Classes/System/Drawing/Rectangle.ab
r223 r303 110 110 End Function 111 111 112 Function Operator == (rc As Rectangle) 112 Function Operator == (rc As Rectangle) As Boolean 113 113 Return Equals(rc) 114 114 End Function 115 115 116 Function Operator <> (rc As Rectangle) 117 Return Not Equals(rc)116 Function Operator <> (rc As Rectangle) As Boolean 117 Return (Not Equals(rc)) 118 118 End Function 119 119 … … 147 147 148 148 Sub Inflate(dx As Long, dy As Long) 149 X-= dx150 Y-= dy151 Width += dx + dx152 Height += dy + dy149 x -= dx 150 y -= dy 151 width += dx + dx 152 height += dy + dy 153 153 End Sub 154 154 … … 158 158 159 159 Static Function Inflate(rc As Rectangle, x As Long, y As Long) As Rectangle 160 Inflate = New Rectangle(rc )160 Inflate = New Rectangle(rc.X, rc.Y, rc.Width, rc.Height) 161 161 Inflate.Inflate(x, y) 162 162 End Function 163 163 164 164 Sub Intersect(rect As Rectangle) 165 This = Rectangle.Intersect(This, rect) 165 Dim r = Rectangle.Intersect(This, rect) 166 x = r.x 167 y = r.y 168 width = r.width 169 height = r.height 166 170 End Sub 167 171 168 172 Static Function Intersect(a As Rectangle, ByRef b As Rectangle) As Rectangle 169 173 Dim right As Long, bottom As Long, left As Long, top As Long 170 right = Math.Min(a.Right, b.Right)171 bottom = Math.Min(a.Bottom, b.Bottom)172 left = Math.Min(a.Left, b.Left)173 top = Math.Min(a.Top, b.Top)174 right = System.Math.Min(a.Right, b.Right) 175 bottom = System.Math.Min(a.Bottom, b.Bottom) 176 left = System.Math.Min(a.Left, b.Left) 177 top = System.Math.Min(a.Top, b.Top) 174 178 Return Rectangle.FromLTRB(left, top, right, bottom) 175 179 End Function … … 184 188 Static Function Union(a As Rectangle, b As Rectangle) As Rectangle 185 189 Dim right As Long, bottom As Long, left As Long, top As Long 186 right = Math.Max(a.Right(), b.Right())187 bottom = Math.Max(a.Bottom(), b.Bottom())188 left = Math.Max(a.Left(), b.Left())189 top = Math.Max(a.Top(), b.Top())190 right = System.Math.Max(a.Right(), b.Right()) 191 bottom = System.Math.Max(a.Bottom(), b.Bottom()) 192 left = System.Math.Max(a.Left(), b.Left()) 193 top = System.Math.Max(a.Top(), b.Top()) 190 194 Return FromLTRB(left, top, right, bottom) 191 195 End Function … … 196 200 197 201 Sub Offset(dx As Long, dy As Long) 198 X+= dx199 Y+= dy202 x += dx 203 y += dy 200 204 End Sub 201 205 202 206 Static Function Ceiling(rcf As RectangleF) As Rectangle 203 207 Dim r As Rectangle( 204 Math.Ceiling(rcf.X),205 Math.Ceiling(rcf.Y),206 Math.Ceiling(rcf.Width),207 Math.Ceiling(rcf.Height))208 System.Math.Ceiling(rcf.X) As Long, 209 System.Math.Ceiling(rcf.Y) As Long, 210 System.Math.Ceiling(rcf.Width) As Long, 211 System.Math.Ceiling(rcf.Height) As Long) 208 212 Return r 209 213 End Function … … 211 215 Static Function Round(rcf As RectangleF) As Rectangle 212 216 Dim r As Rectangle( 213 Math.Round(rcf.X),214 Math.Round(rcf.Y),215 Math.Round(rcf.Width),216 Math.Round(rcf.Height))217 System.Math.Round(rcf.X) As Long, 218 System.Math.Round(rcf.Y) As Long, 219 System.Math.Round(rcf.Width) As Long, 220 System.Math.Round(rcf.Height) As Long) 217 221 Return r 218 222 End Function … … 220 224 Static Function Truncate(rcf As RectangleF) As Rectangle 221 225 Dim r As Rectangle( 222 Math.Truncate(rcf.X),223 Math.Truncate(rcf.Y),224 Math.Truncate(rcf.Width),225 Math.Truncate(rcf.Height))226 System.Math.Truncate(rcf.X) As Long, 227 System.Math.Truncate(rcf.Y) As Long, 228 System.Math.Truncate(rcf.Width) As Long, 229 System.Math.Truncate(rcf.Height) As Long) 226 230 Return r 227 231 End Function -
trunk/Include/Classes/System/Drawing/RectangleF.ab
r212 r303 106 106 107 107 Function IsEmpty() As Boolean 108 If Width <= 0 Or Height <= 0 Then 109 IsEmpty = _System_TRUE 110 Else 111 IsEmpty = _System_FALSE 112 End If 113 End Function 114 /* 115 Function Operator =(ByRef rc As RectangleF) 116 With rc 117 x = .x 118 y = .y 119 width = .width 120 height = .height 121 End With 122 End Function 123 */ 124 Function Operator ==(rc As RectangleF) 108 Return Width <= 0 Or Height <= 0 109 End Function 110 111 Function Operator ==(rc As RectangleF) As Boolean 125 112 Return Equals(rc) 126 113 End Function 127 114 128 Function Operator <>(rc As RectangleF) 115 Function Operator <>(rc As RectangleF) As Boolean 129 116 Return Not Equals(rc) 130 117 End Function 131 118 132 119 Function Equals(rc As RectangleF) As Boolean 133 If X = rc.X And Y = rc.Y And Width = rc.Width And Height = rc.Height Then 134 Return True 135 Else 136 Return False 137 End If 120 Equals = (X = rc.X And Y = rc.Y And Width = rc.Width And Height = rc.Height) 138 121 End Function 139 122 … … 147 130 148 131 Function Contains(x As Single, y As Single) As Boolean 149 If x >= X And x < X + Width And y >= Y And y < Y + Height Then 150 Contains = _System_TRUE 151 Else 152 Contains = _System_FALSE 153 End If 132 Contains = (x >= X And x < X + Width And y >= Y And y < Y + Height) 154 133 End Function 155 134 … … 159 138 160 139 Function Contains(rc As RectangleF) As Boolean 161 If X <= rc.X And rc.Right <= Right And Y <= rc.Y And rc.Bottom <= Bottom Then 162 Return True 163 Else 164 Return False 165 End If 140 Contains = (X <= rc.X And rc.Right <= Right And Y <= rc.Y And rc.Bottom <= Bottom) 166 141 End Function 167 142 168 143 Sub Inflate(dx As Single, dy As Single) 169 X-= dx170 Y-= dy171 Width += dx + dx172 Height += dy + dy144 x -= dx 145 y -= dy 146 width += dx + dx 147 height += dy + dy 173 148 End Sub 174 149 … … 178 153 179 154 Static Function Inflate(rc As RectangleF, x As Single, y As Single) As RectangleF 180 Inflate = New Rectangle (rc)155 Inflate = New RectangleF(rc.X, rc.Y, rc.Width, rc.Height) 181 156 Inflate.Inflate(x, y) 182 157 End Function 183 158 184 159 Sub Intersect(rect As RectangleF) 185 This = RectangleF.Intersect(This, rect) 160 Dim r = RectangleF.Intersect(This, rect) 161 x = r.x 162 y = r.y 163 width = r.width 164 height = r.height 186 165 End Sub 187 166 188 167 Static Function Intersect(a As RectangleF, b As RectangleF) As RectangleF 189 168 Dim right As Single, bottom As Single, left As Single, top As Single 190 right = Math.Min(a.Right, b.Right)191 bottom = Math.Min(a.Bottom, b.Bottom)192 left = Math.Min(a.Left, b.Left)193 top = Math.Min(a.Top, b.Top)169 right = System.Math.Min(a.Right, b.Right) 170 bottom = System.Math.Min(a.Bottom, b.Bottom) 171 left = System.Math.Min(a.Left, b.Left) 172 top = System.Math.Min(a.Top, b.Top) 194 173 Return FromLTRB(left, top, right, bottom) 195 174 End Function … … 200 179 Right > rc.Left And _ 201 180 Bottom > rc.Top Then 202 IntersectsWith = _System_TRUE181 IntersectsWith = True 203 182 Else 204 IntersectsWith = _System_FALSE183 IntersectsWith = False 205 184 End If 206 185 End Function … … 208 187 Static Function Union(a As RectangleF, b As RectangleF) As RectangleF 209 188 Dim right As Single, bottom As Single, left As Single, top As Single 210 right = Math.Max(a.Right(), b.Right())211 bottom = Math.Max(a.Bottom(), b.Bottom())212 left = Math.Max(a.Left(), b.Left())213 top = Math.Max(a.Top(), b.Top())189 right = System.Math.Max(a.Right(), b.Right()) 190 bottom = System.Math.Max(a.Bottom(), b.Bottom()) 191 left = System.Math.Max(a.Left(), b.Left()) 192 top = System.Math.Max(a.Top(), b.Top()) 214 193 Return FromLTRB(left, top, right, bottom) 215 194 End Function … … 220 199 221 200 Sub Offset(dx As Single, dy As Single) 222 X+= dx223 Y+= dy201 x += dx 202 y += dy 224 203 End Sub 225 204 -
trunk/Include/Classes/System/Drawing/Size.ab
r223 r303 70 70 Function Equals(sz As Size) As Boolean 71 71 If width = sz.width And height = sz.height Then 72 Equals = _System_TRUE72 Equals = True 73 73 Else 74 Equals = _System_FALSE74 Equals = False 75 75 End If 76 76 End Function … … 93 93 94 94 Static Function Ceiling(szf As SizeF) As Size 95 Dim sz As Size( Math.Ceiling(szf.width), Math.Ceiling(szf.height))95 Dim sz As Size(System.Math.Ceiling(szf.Width) As Long, System.Math.Ceiling(szf.Height) As Long) 96 96 Return sz 97 97 End Function 98 98 99 99 Static Function Round(szf As SizeF) As Size 100 Dim sz As Size( Math.Round(szf.width), Math.Round(szf.height))100 Dim sz As Size(System.Math.Round(szf.Width) As Long, System.Math.Round(szf.Height) As Long) 101 101 Return sz 102 102 End Function 103 103 104 104 Static Function Truncate(szf As SizeF) As Size 105 Dim sz As Size( Math.Truncate(szf.width), Math.Truncate(szf.height))105 Dim sz As Size(System.Math.Truncate(szf.Width) As Long, System.Math.Truncate(szf.Height) As Long) 106 106 Return sz 107 107 End Function -
trunk/Include/Classes/System/Drawing/SizeF.ab
r223 r303 68 68 69 69 Override Function GetHashCode() As Long 70 Return VarPtr(GetDWord(width)) Xor _System_BSwap(VarPtr(GetDWord(height)))70 Return GetDWord(VarPtr(width)) Xor _System_BSwap(GetDWord(VarPtr(height))) 71 71 End Function 72 72 … … 75 75 End Function 76 76 77 Function Add(sz As Size ) As Size77 Function Add(sz As SizeF) As SizeF 78 78 Return This + sz 79 79 End Function -
trunk/Include/Classes/System/Media/SystemSound.ab
r116 r303 15 15 Public 16 16 Sub Play() 17 PlaySound(SoundID ,GetModuleHandle(NULL),SND_ALIAS_ID)17 PlaySound(SoundID As LPCTSTR, GetModuleHandle(NULL), SND_ALIAS_ID) 18 18 End Sub 19 19 -
trunk/Include/Classes/System/Threading/Thread.ab
r249 r303 281 281 For i=0 To ELM(ThreadNum) 282 282 283 If currentThread.Equals( ByVal ppobj_Thread[i]) Then283 If currentThread.Equals( ppobj_Thread[i] As Object ) Then 284 284 Continue 285 285 End If … … 298 298 For i=0 To ELM(ThreadNum) 299 299 300 If currentThread.Equals( ByVal ppobj_Thread[i]) Then300 If currentThread.Equals( ppobj_Thread[i] As Object ) Then 301 301 Continue 302 302 End If -
trunk/Include/Classes/System/Windows/Forms/Control.ab
r285 r303 4 4 #define __SYSTEM_WINDOWS_FORMS_CONTROL_AB__ 5 5 6 #require <windows/WindowHandle.sbp>7 6 #require <Classes/System/Windows/Forms/misc.ab> 8 7 #require <Classes/System/Windows/Forms/CreateParams.ab> … … 17 16 #require <Classes/System/Drawing/Rectangle.ab> 18 17 #require <Classes/System/Runtime/InteropServices/GCHandle.ab> 18 #require <Classes/ActiveBasic/Windows/WindowHandle.sbp> 19 19 #require <Classes/ActiveBasic/Strings/Strings.ab> 20 20 … … 44 44 45 45 Override Function CompletedSynchronously() As Boolean 46 Return F ALSE46 Return False 47 47 End Function 48 48 … … 74 74 75 75 Class Control 76 76 77 ' Inherits IWin32Window 77 78 Public … … 80 81 Function AllowDrop() As Boolean 81 82 End Function 83 84 'Anchor 85 'AutoScrollOffset 86 'AutoSize 87 'BackColor下 88 'BackgroundImage 89 'BackgroundImageLayout 90 '-BindingContext 91 'Bottom 下 92 'Bounds 下 93 'CanFocus 94 'CanSelect 95 'Capture 96 '-CausesValidation 97 'CheckForIllegalCrossThreadCalls 82 98 83 99 /*Override*/ Function Handle() As HWND … … 201 217 Return b.Top + b.Height 202 218 End Function 203 219 /* 204 220 Const Function PointToScreen(p As Point) As Point 205 221 PointToScreen = New Point 206 ret.X = p.X207 ret.Y = p.Y208 wnd.ClientToScreen(ByVal VarPtr(PointToScreen) As *POINTAPI)222 PointToScreen.X = p.X 223 PointToScreen.Y = p.Y 224 wnd.ClientToScreen(ByVal ObjPtr(PointToScreen) As *POINTAPI) 209 225 End Function 210 226 211 227 Const Function PointToClient(p As Point) As Point 212 228 PointToScreen = New Point 213 ret.X = p.X214 ret.Y = p.Y215 wnd.ScreenToClient(ByVal VarPtr(PointToScreen) As *POINTAPI)216 End Function 217 229 PointToClient.X = p.X 230 PointToClient.Y = p.Y 231 wnd.ScreenToClient(ByVal ObjPtr(PointToClient) As *POINTAPI) 232 End Function 233 */ 218 234 Const Function RectangleToScreen(r As Rectangle) As Rectangle 219 235 Dim rc = r.ToRECT … … 223 239 224 240 Const Function RectangleToClient(r As Rectangle) As Rectangle 225 Dim rc As RECT 226 rc = r.ToRECT() 241 Dim rc = r.ToRECT() 227 242 wnd.ScreenToClient(rc) 228 243 Return New Rectangle(rc) … … 230 245 231 246 Const Function InvokeRequired() As Boolean 232 Return wnd.ThreadI D<> GetCurrentThreadId()247 Return wnd.ThreadId <> GetCurrentThreadId() 233 248 End Function 234 249 … … 239 254 Virtual Sub BackColor(c As Color) 240 255 c = bkColor 241 Dim e As EventArgs 242 OnBackColorChanged(e) 256 OnBackColorChanged(New EventArgs) 243 257 End Sub 244 258 … … 248 262 249 263 Const Function IsHandleCreated() As Boolean 250 Return wnd.HWnd <> 0 264 Return wnd.HWnd <> 0 Or IsWindow(wnd.HWnd) <> FALSE 251 265 End Function 252 266 … … 259 273 260 274 Sub Control() 275 Debug 261 276 Dim sz = DefaultSize() 262 277 Control("", 100, 100, sz.Width, sz.Height) … … 279 294 280 295 Sub Control(parent As Control, text As String, left As Long, top As Long, width As Long, height As Long) 281 This.parent = VarPtr(parent)296 This.parent = parent 282 297 Control(text, left, top, width, height) 283 298 End Sub … … 296 311 '--------------------------------------------------------------------------- 297 312 ' Public Methods 298 313 /* 299 314 ' 同期関数呼出、Controlが作成されたスレッドで関数を実行する。 300 315 ' 関数は同期的に呼び出されるので、関数が終わるまでInvokeは制御を戻さない。 … … 317 332 Dim gch = System.Runtime.InteropServices.GCHandle.Alloc(asyncInvokeData) 318 333 wnd.PostMessage(WM_CONTROL_BEGININVOKE, 0, System.Runtime.InteropServices.GCHandle.ToIntPtr(gch)) 319 Return pAsyncResult334 Return asyncResult 320 335 End Function 321 336 … … 327 342 Return arInvoke.Result 328 343 End Function 329 344 */ 330 345 ' 与えられたウィンドウハンドルがControl(若しくはその派生クラス)の 331 346 ' インスタンスに対応するものであった場合、 … … 360 375 361 376 Sub Show() 377 Debug 362 378 wnd.Show(SW_SHOW) 363 379 End Sub … … 396 412 Virtual Sub CreateHandle() 397 413 Dim createParams = CreateParams() 398 Dim gch = GCHandle.Alloc(This)399 TlsSetValue(tlsIndex, GCHandle.ToIntPtr(gch) As VoidPtr)414 Dim gch = System.Runtime.InteropServices.GCHandle.Alloc(This) 415 TlsSetValue(tlsIndex, System.Runtime.InteropServices.GCHandle.ToIntPtr(gch) As VoidPtr) 400 416 With createParams 401 417 Dim hwndParent = 0 As HWND … … 516 532 Private 517 533 ' Member variables 518 wnd As WindowHandle534 wnd As ActiveBasic.Windows.WindowHandle 519 535 text As String 520 536 parent As Control … … 590 606 ExitThread(-1) 591 607 End If 592 rThis.wnd = New WindowHandle(hwnd)608 rThis.wnd = New ActiveBasic.Windows.WindowHandle(hwnd) 593 609 SetWindowLongPtr(hwnd, GWLP_THIS, gchValue) 594 610 End If -
trunk/Include/Classes/System/Windows/Forms/Message.ab
r282 r303 55 55 Return hwnd = x.hwnd And _ 56 56 msg = x.msg And _ 57 wp = .wp And _58 lp = .lp And _59 lr = .lr57 wp = x.wp And _ 58 lp = x.lp And _ 59 lr = x.lr 60 60 End Function 61 61 -
trunk/Include/Classes/System/Windows/Forms/index.ab
r223 r303 9 9 #require <Classes/System/Windows/Forms/CreateParams.ab> 10 10 #require <Classes/System/Windows/Forms/PaintEventArgs.ab> 11 #require <Classes/System/Windows/Forms/MessageBox.ab> 11 12 12 13 #endif '__SYSTEM_WINDOWS_FORMS_INDEX_AB__ -
trunk/Include/Classes/System/Windows/Forms/misc.ab
r282 r303 1 ' 1 'Classes/System/Windows/Forms/misc.ab 2 2 3 3 #ifndef __SYSTEM_WINDOWS_FORMS_MISC_AB__ … … 197 197 End Enum 198 198 199 Enum DialogResult 200 None = 0 201 OK = IDOK 202 Abort = IDABORT 203 Cancel = IDCANCEL 204 Retry = IDRETRY 205 Ignore = IDIGNORE 206 Yes = IDYES 207 No = IDNO 208 End Enum 209 199 210 End Namespace 'Forms 200 211 End Namespace 'Widnows -
trunk/Include/OAIdl.ab
r300 r303 7 7 8 8 '#ifndef COM_NO_WINDOWS_H 9 # include <windows.sbp>10 # include <ole2.ab>9 #require <windows.sbp> 10 #require <ole2.ab> 11 11 '#endif /*COM_NO_WINDOWS_H*/ 12 12 13 # include <objidl.sbp>13 #require <objidl.sbp> 14 14 15 15 #ifndef __IOleAutomationTypes_INTERFACE_DEFINED__ 16 16 #define __IOleAutomationTypes_INTERFACE_DEFINED__ 17 18 TypeDef SCODE = Long19 17 20 18 /* interface IOleAutomationTypes */ … … 694 692 Const Enum VARKIND 695 693 VAR_PERINSTANCE = 0 696 VAR_STATIC = VAR_PERINSTANCE +1697 VAR_CONST = VAR_STATIC + 1698 VAR_DISPATCH = VAR_CONST + 1694 VAR_STATIC = 1 695 VAR_CONST = 2 696 VAR_DISPATCH = 3 699 697 End Enum 700 698 … … 893 891 Function DeleteFuncDesc( 894 892 /* [in] */ index As DWord) As HRESULT 895 896 893 Function DeleteFuncDescByMemId( 897 894 /* [in] */ memid As *MEMBERID, 898 895 /* [in] */ invKind As *INVOKEKIND) As HRESULT 899 900 896 Function DeleteVarDesc( 901 897 /* [in] */ index As DWord) As HRESULT 902 903 898 Function DeleteVarDescByMemId( 904 899 /* [in] */ memid As *MEMBERID) As HRESULT 905 906 900 Function DeleteImplType( 907 901 /* [in] */ index As DWord) As HRESULT 908 909 902 Function SetCustData( 910 903 /* [in] */ ByRef guid As GUID, 911 904 /* [in] */ ByRef VarVal As VARIANT) As HRESULT 912 913 905 Function SetFuncCustData( 914 906 /* [in] */ index As DWord, 915 907 /* [in] */ ByRef guid As GUID, 916 908 /* [in] */ ByRef VarVal As VARIANT) As HRESULT 917 918 909 Function SetParamCustData( 919 910 /* [in] */ indexFunc As DWord, … … 921 912 /* [in] */ ByRef guid As GUID, 922 913 /* [in] */ ByRef VarVal As VARIANT) As HRESULT 923 924 914 Function SetVarCustData( 925 915 /* [in] */ index As DWord, 926 916 /* [in] */ ByRef guid As GUID, 927 917 /* [in] */ ByRef VarVal As VARIANT) As HRESULT 928 929 918 Function SetImplTypeCustData( 930 919 /* [in] */ index As DWord, 931 920 /* [in] */ ByRef guid As GUID, 932 921 /* [in] */ ByRef VarVal As VARIANT) As HRESULT 933 934 922 Function SetHelpStringContext( 935 923 /* [in] */ dwHelpStringContext As DWord) As HRESULT 936 937 924 Function SetFuncHelpStringContext( 938 925 /* [in] */ index As DWord, 939 926 /* [in] */ dwHelpStringContext As DWord) As HRESULT 940 941 927 Function SetVarHelpStringContext( 942 928 /* [in] */ index As DWord, 943 929 /* [in] */ dwHelpStringContext As DWord) As HRESULT 944 945 930 Function Invalidate() As HRESULT 946 947 931 Function SetName( 948 932 /* [in] */ szName As LPOLESTR) As HRESULT … … 959 943 960 944 TypeDef LPCREATETYPELIB = /* [unique] */ *ICreateTypeLib 961 962 945 963 946 Dim IID_ICreateTypeLib = [&h00020406, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID … … 968 951 /* [in] */ szName As LPOLESTR, 969 952 /* [in] */ tkind As *TYPEKIND, 970 /* [out] */ ByRef pCTInfo As *ICreateTypeInfo) As HRESULT 971 953 /* [out] */ ByRef CTInfo As ICreateTypeInfo) As HRESULT 972 954 Function SetName( 973 955 /* [in] */ szName As LPOLESTR) As HRESULT 974 975 956 Function SetVersion( 976 957 /* [in] */ wMajorVerNum As Word, 977 958 /* [in] */ wMinorVerNum As Word) As HRESULT 978 979 959 Function SetGuid( 980 960 /* [in] */ ByRef guid As GUID) As HRESULT 981 982 961 Function SetDocString( 983 962 /* [in] */ szDoc As LPOLESTR) As HRESULT 984 985 963 Function SetHelpFileName( 986 964 /* [in] */ szHelpFileName As LPOLESTR) As HRESULT 987 988 965 Function SetHelpContext( 989 966 /* [in] */ dwHelpContext As DWord) As HRESULT 990 991 967 Function SetLcid( 992 968 /* [in] */ lcid As LCID) As HRESULT 993 994 969 Function SetLibFlags( 995 970 /* [in] */ uLibFlags As DWord) As HRESULT 996 997 971 Function SaveAllChanges() As HRESULT 998 972 End Interface 999 1000 973 1001 974 #endif /* __ICreateTypeLib_INTERFACE_DEFINED__ */ … … 1017 990 Function DeleteTypeInfo( 1018 991 /* [in] */ szName As LPOLESTR) As HRESULT 1019 1020 992 Function SetCustData( 1021 993 /* [in] */ ByRef guid As GUID, 1022 994 /* [in] */ ByRef VarVal As VARIANT) As HRESULT 1023 1024 995 Function SetHelpStringContext( 1025 996 /* [in] */ dwHelpStringContext As DWord) As HRESULT 1026 1027 997 Function SetHelpStringDll( 1028 998 /* [in] */ szFileName As LPOLESTR) As HRESULT 1029 1030 999 End Interface 1031 1000 … … 1182 1151 Function /* [local] */ GetTypeAttr( 1183 1152 /* [out] */ ByRef pTypeAttr As *TYPEATTR) As HRESULT 1184 1185 1153 Function GetTypeComp( 1186 /* [out] */ ByRef pTComp As *ITypeComp) As HRESULT 1187 1154 /* [out] */ ByRef TComp As ITypeComp) As HRESULT 1188 1155 Function /* [local] */ GetFuncDesc( 1189 1156 /* [in] */ index As DWord, 1190 1157 /* [out] */ ByRef pFuncDesc As *FUNCDESC) As HRESULT 1191 1192 1158 Function /* [local] */ GetVarDesc( 1193 1159 /* [in] */ index As DWord, 1194 1160 /* [out] */ ByRef pVarDesc As *VARDESC) As HRESULT 1195 1196 1161 Function /* [local] */ GetNames( 1197 1162 /* [in] */ memid As MEMBERID, … … 1199 1164 /* [in] */ cMaxNames As DWord, 1200 1165 /* [out] */ ByRef cNames As DWord) As HRESULT 1201 1202 1166 Function GetRefTypeOfImplType( 1203 1167 /* [in] */ index As DWord, 1204 1168 /* [out] */ ByRef RefType As HREFTYPE) As HRESULT 1205 1206 1169 Function GetImplTypeFlags( 1207 1170 /* [in] */ index As DWord, 1208 1171 /* [out] */ ByRef ImplTypeFlags As Long) As HRESULT 1209 1210 1172 Function /* [local] */ GetIDsOfNames( 1211 1173 /* [size_is][in] */ rgszNames As *LPOLESTR, 1212 1174 /* [in] */ cNames As DWord, 1213 1175 /* [size_is][out] */ pMemId As *MEMBERID) As HRESULT 1214 1215 1176 Function /* [local] */ Invoke( 1216 1177 /* [in] */ pvInstance As VoidPtr, … … 1221 1182 /* [out] */ ByRef ExcepInfo As EXCEPINFO, 1222 1183 /* [out] */ ByRef uArgErr As DWord) As HRESULT 1223 1224 1184 Function /* [local] */ GetDocumentation( 1225 1185 /* [in] */ memid As MEMBERID, … … 1228 1188 /* [out] */ ByRef dwHelpContext As DWord, 1229 1189 /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT 1230 1231 1190 Function /* [local] */ GetDllEntry( 1232 1191 /* [in] */ memid As MEMBERID, … … 1235 1194 /* [out] */ ByRef BstrName As BSTR, 1236 1195 /* [out] */ ByRef wOrdinal As Word) As HRESULT 1237 1238 1196 Function GetRefTypeInfo( 1239 1197 /* [in] */ hRefType As HREFTYPE, 1240 /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT 1241 1198 /* [out] */ ByRef TInfo As ITypeInfo) As HRESULT 1242 1199 Function /* [local] */ AddressOfMember( 1243 1200 /* [in] */ memid As MEMBERID, 1244 1201 /* [in] */ invKind As INVOKEKIND, 1245 1202 /* [out] */ ByRef pv As VoidPtr) As HRESULT 1246 1247 1203 Function /* [local] */ CreateInstance( 1248 /* [in] */ pUnkOuter As *IUnknown,1204 /* [in] */ pUnkOuter As IUnknown, 1249 1205 /* [in] */ ByRef riid As IID, 1250 1206 /* [iid_is][out] */ ByRef pvObj As Any) As HRESULT 1251 1252 1207 Function GetMops( 1253 1208 /* [in] */ memid As MEMBERID, 1254 1209 /* [out] */ ByRef BstrMops As BSTR) As HRESULT 1255 1256 1210 Function /* [local] */ GetContainingTypeLib( 1257 /* [out] */ ByRef pTLib As *ITypeLib,1211 /* [out] */ ByRef TLib As ITypeLib, 1258 1212 /* [out] */ ByRef Index As DWord) As HRESULT 1259 1260 1213 Sub /* [local] */ ReleaseTypeAttr( 1261 1214 /* [in] */ pTypeAttr As *TYPEATTR) 1262 1263 1215 Sub /* [local] */ ReleaseFuncDesc( 1264 1216 /* [in] */ pFuncDesc As *FUNCDESC) 1265 1266 1217 Sub /* [local] */ ReleaseVarDesc( 1267 1218 /* [in] */ pVarDesc As *VARDESC) … … 1645 1596 /* [out] */ ByRef cbSize As DWord) As HRESULT 1646 1597 Function GetTypeInfo( 1647 /* [out] */ ByRef pTypeInfo As *ITypeInfo) As HRESULT1598 /* [out] */ ByRef TypeInfo As ITypeInfo) As HRESULT 1648 1599 Function GetField( 1649 1600 /* [in] */ pvData As VoidPtr, … … 1656 1607 /* [out] */ ByRef pvDataCArray As VoidPtr) As HRESULT 1657 1608 Function PutField( 1658 1609 /* [in] */ wFlags As DWord, 1659 1610 /* [out][in] */ pvData As VoidPtr, 1660 1611 /* [in] */ szFieldName As LPCOLESTR, 1661 1612 /* [in] */ ByRef varField As VARIANT) As HRESULT 1662 1613 Function PutFieldNoCopy( 1663 1614 /* [in] */ wFlags As DWord, 1664 1615 /* [out][in] */ pvData As VoidPtr, 1665 1616 /* [in] */ szFieldName As LPCOLESTR, … … 1718 1669 /* [in] */ pszPropName As LPCOLESTR, 1719 1670 /* [out][in] */ ByRef Var As VARIANT, 1720 /* [in] */ pErrorLog As *IErrorLog) As HRESULT1671 /* [in] */ ErrorLog As IErrorLog) As HRESULT 1721 1672 1722 1673 Function Write( -
trunk/Include/OleAuto.ab
r300 r303 22 22 */ 23 23 24 # include <oaidl.ab>24 #require <oaidl.ab> 25 25 'Dummy 26 26 -
trunk/Include/api_window.sbp
r300 r303 1071 1071 Const MB_RIGHT = &H00080000 1072 1072 Const MB_RTLREADING = &H00100000 1073 Const MB_SERVICE_NOTIFICATION = &H00200000 1073 1074 #ifdef UNICODE 1074 1075 Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (hwnd As HWND, pText As PCWSTR, pCaption As PCWSTR, uType As DWord) As Long -
trunk/Include/basic.sbp
r300 r303 1 1 'basic.sbp 2 3 #_core4 2 5 3 ' Unicodeが不安定な間の暫定対応 … … 9 7 #ifndef _INC_BASIC 10 8 #define _INC_BASIC 11 12 9 13 10 Sub _System_InitDllGlobalVariables() 'dummy … … 54 51 TypeDef Int16 = Integer 55 52 TypeDef Int8 = SByte 56 57 TypeDef BOOL = Long58 53 59 54 ' Boolena型の定数 … … 122 117 ' Specify elements number 123 118 '-------------------------- 124 Const ELM(n) = ( n- 1)119 Const ELM(n) = ((n) - 1) 125 120 126 #include <windows.sbp> 127 #include <crt.sbp> 128 #include <objbase.sbp> 121 #require <windows.sbp> 122 #require <crt.sbp> 129 123 130 124 … … 138 132 Sub _System_StartupProgram() 139 133 'Unsafe 134 140 135 'この関数はアプリケーションの起動時にシステムからコールバックされます 141 136 … … 150 145 ActiveBasic.Core._System_TypeBase.Initialize() 151 146 152 ' 147 'Initialize static variables 153 148 _System_InitStaticLocalVariables() 154 149 … … 168 163 ' GC管理オブジェクトを破棄 169 164 _System_pGC->Finish() 170 _System_free( _System_pGC )165 ' _System_free( _System_pGC ) 171 166 172 167 DeleteCriticalSection(_System_CriticalSection) … … 178 173 179 174 180 #include <system\interface.ab>181 #include <system\built_in.ab>182 #include <system\string.sbp>183 #include <system\debug.sbp>184 #include <system\gc.sbp>185 #include <system\enum.sbp>186 #include <system\exception.ab>187 175 188 #include <Classes\index.ab> 176 #require <system\string.sbp> 177 #require <system\debug.sbp> 178 #require <system\gc.sbp> 179 #require <system\enum.sbp> 180 #require <system\exception.ab> 181 182 #require <Classes\index.ab> 189 183 190 184 191 # include <basic\function.sbp>192 # include <basic\command.sbp>185 #require <basic\function.sbp> 186 #require <basic\command.sbp> 193 187 194 188 -
trunk/Include/basic/command.sbp
r288 r303 7 7 #require <windows.sbp> 8 8 #require <Classes/System/Environment.ab> 9 #require <Classes/ActiveBasic/Windows/Windows.ab> 9 10 10 11 Const _System_Type_SByte = 1 … … 65 66 '---------------- 66 67 67 Function _System_MessageBox(hw As HWND, s As PCSTR, t As PCSTR, b As DWord) As DWord68 Return MessageBoxA(hw, s, t, b)69 End Function70 71 Function _System_MessageBox(hw As HWND, s As PCWSTR, t As PCWSTR, b As DWord) As DWord72 Return MessageBoxW(hw, s, t, b)73 End Function74 75 68 Macro MSGBOX(hwnd As HWND, str As String)(title As String, boxType As DWord, ByRef retAns As DWord) 69 Dim ret = ActiveBasic.Windows.Detail._System_MessageBox(hwnd, ToSCStr(str), ToSCStr(title), boxType) 76 70 If VarPtr(retAns) Then 77 retAns = _System_MessageBox(hwnd, ToSCStr(str), ToSCStr(title), boxType) 78 Else 79 _System_MessageBox(hwnd, ToSCStr(str), ToSCStr(title), boxType) 71 retAns = ret 80 72 End If 81 73 End Macro … … 424 416 Macro FIELD(FileNumber As Long, FieldSize As Long) 425 417 FileNumber-- 426 427 418 _System_FieldSize(FileNumber)=FieldSize 428 419 End Macro 429 Macro GET(FileNumber As Long, RecodeNumber As Long, ByRef lpBuffer As String)420 Macro GET(FileNumber As Long, RecodeNumber As Long, ByRef buffer As String) 430 421 Dim dwAccessByte As DWord 431 422 … … 434 425 435 426 SetFilePointer(_System_hFile(FileNumber), SizeOf (StrChar) * RecodeNumber * _System_FieldSize(FileNumber), 0, FILE_BEGIN) 436 lpBuffer = ZeroString(_System_FieldSize(FileNumber)) 437 ReadFile(_System_hFile(FileNumber), StrPtr(lpBuffer), SizeOf (StrChar) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte),ByVal 0) 438 If Not dwAccessByte=_System_FieldSize(FileNumber) Then 439 lpBuffer = Left$(lpBuffer, dwAccessByte) 427 Dim t = ZeroString(_System_FieldSize(FileNumber)) 428 ReadFile(_System_hFile(FileNumber), StrPtr(t), SizeOf (StrChar) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte), ByVal 0) 429 If dwAccessByte = _System_FieldSize(FileNumber) Then 430 buffer = t.ToString 431 Else 432 buffer = Left$(t.ToString, dwAccessByte) 440 433 End If 441 434 End Macro 442 Macro PUT(FileNumber As Long, RecodeNumber As Long, ByRef lpBuffer As String)435 Macro PUT(FileNumber As Long, RecodeNumber As Long, buffer As String) 443 436 Dim dwAccessByte As DWord 444 437 … … 447 440 448 441 SetFilePointer(_System_hFile(FileNumber), SizeOf (StrChar) * RecodeNumber*_System_FieldSize(FileNumber), 0, FILE_BEGIN) 449 WriteFile(_System_hFile(FileNumber), StrPtr( lpBuffer),SizeOf (StrChar) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte), ByVal 0)442 WriteFile(_System_hFile(FileNumber), StrPtr(buffer), SizeOf (StrChar) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte), ByVal 0) 450 443 End Macro 451 444 -
trunk/Include/basic/function.sbp
r289 r303 1019 1019 End Function 1020 1020 1021 Function _System_PtrObj(p As VoidPtr) As Object 1022 SetPointer(VarPtr(_System_PtrObj), p) 1023 End Function 1024 1021 1025 '-------- 1022 1026 ' 文字列関数その2 -
trunk/Include/directx9/d3d9.sbp
r1 r303 9 9 Const D3D_SDK_VERSION = 32 10 10 11 # include <directx9\d3d9types.sbp>12 # include <directx9\d3d9caps.sbp>11 #require <directx9\d3d9types.sbp> 12 #require <directx9\d3d9caps.sbp> 13 13 14 14 … … 24 24 '-------------------- 25 25 26 ClassIDirect3D926 Interface IDirect3D9 27 27 Inherits IUnknown 28 28 Public 29 29 'IDirect3D9 methods 30 AbstractFunction ShoRegisterSoftwareDevice(pInitializeFunction As VoidPtr) As DWord31 AbstractFunction GetAdapterCount() As DWord32 AbstractFunction GetAdapterIdentifier(Adapter As DWord, Flags As DWord, pIdentifier As *D3DADAPTER_IDENTIFIER9) As DWord33 AbstractFunction GetAdapterModeCount(Adapter As DWord, Format As D3DFORMAT) As DWord34 AbstractFunction EnumAdapterModes(Adapter As DWord, Format As D3DFORMAT, Mode As DWord, pMode As *D3DDISPLAYMODE) As DWord35 AbstractFunction GetAdapterDisplayMode(Adapter As DWord, pMode As *D3DDISPLAYMODE) As DWord36 AbstractFunction CheckDeviceType(Adapter As DWord, DevType As D3DDEVTYPE, AdapterFormat As D3DFORMAT, BackBufferFormat As D3DFORMAT, bWindowed As Long) As DWord37 AbstractFunction CheckDeviceFormat(Adapter As DWord, DeviceType As D3DDEVTYPE, AdapterFormat As D3DFORMAT, Usage As DWord, RType As D3DRESOURCETYPE, CheckFormat As D3DFORMAT) As DWord38 AbstractFunction CheckDeviceMultiSampleType(Adapter As DWord, DeviceType As D3DDEVTYPE, SurfaceFormat As D3DFORMAT, Windowed As Long, MultiSampleType As D3DMULTISAMPLE_TYPE, pQualityLevels As DWordPtr) As DWord39 AbstractFunction CheckDepthStencilMatch(Adapter As DWord, DeviceType As D3DDEVTYPE, AdapterFormat As D3DFORMAT, RenderTargetFormat As D3DFORMAT, DepthStencilFormat As D3DFORMAT) As DWord40 AbstractFunction CheckDeviceFormatConversion(Adapter As DWord, DeviceType As D3DDEVTYPE, SourceFormat As D3DFORMAT, TargetFormat As D3DFORMAT) As DWord41 AbstractFunction GetDeviceCaps(Adapter As DWord, DeviceType As D3DDEVTYPE, pCaps As *D3DCAPS9) As DWord42 AbstractFunction GetAdapterMonitor(Adapter As DWord) As DWord43 AbstractFunction CreateDevice(Adapter As DWord, DeviceType As D3DDEVTYPE, hFocusWindow As HWND, BehaviorFlags As DWord, pPresentationParameters As *D3DPRESENT_PARAMETERS, ppReturnedDeviceInterface As *LPDIRECT3DDEVICE9) As DWord44 End Class30 Function ShoRegisterSoftwareDevice(pInitializeFunction As VoidPtr) As DWord 31 Function GetAdapterCount() As DWord 32 Function GetAdapterIdentifier(Adapter As DWord, Flags As DWord, pIdentifier As *D3DADAPTER_IDENTIFIER9) As DWord 33 Function GetAdapterModeCount(Adapter As DWord, Format As D3DFORMAT) As DWord 34 Function EnumAdapterModes(Adapter As DWord, Format As D3DFORMAT, Mode As DWord, pMode As *D3DDISPLAYMODE) As DWord 35 Function GetAdapterDisplayMode(Adapter As DWord, pMode As *D3DDISPLAYMODE) As DWord 36 Function CheckDeviceType(Adapter As DWord, DevType As D3DDEVTYPE, AdapterFormat As D3DFORMAT, BackBufferFormat As D3DFORMAT, bWindowed As Long) As DWord 37 Function CheckDeviceFormat(Adapter As DWord, DeviceType As D3DDEVTYPE, AdapterFormat As D3DFORMAT, Usage As DWord, RType As D3DRESOURCETYPE, CheckFormat As D3DFORMAT) As DWord 38 Function CheckDeviceMultiSampleType(Adapter As DWord, DeviceType As D3DDEVTYPE, SurfaceFormat As D3DFORMAT, Windowed As Long, MultiSampleType As D3DMULTISAMPLE_TYPE, pQualityLevels As DWordPtr) As DWord 39 Function CheckDepthStencilMatch(Adapter As DWord, DeviceType As D3DDEVTYPE, AdapterFormat As D3DFORMAT, RenderTargetFormat As D3DFORMAT, DepthStencilFormat As D3DFORMAT) As DWord 40 Function CheckDeviceFormatConversion(Adapter As DWord, DeviceType As D3DDEVTYPE, SourceFormat As D3DFORMAT, TargetFormat As D3DFORMAT) As DWord 41 Function GetDeviceCaps(Adapter As DWord, DeviceType As D3DDEVTYPE, pCaps As *D3DCAPS9) As DWord 42 Function GetAdapterMonitor(Adapter As DWord) As DWord 43 Function CreateDevice(Adapter As DWord, DeviceType As D3DDEVTYPE, hFocusWindow As HWND, BehaviorFlags As DWord, pPresentationParameters As *D3DPRESENT_PARAMETERS, ppReturnedDeviceInterface As *LPDIRECT3DDEVICE9) As DWord 44 End Interface 45 45 TypeDef LPDIRECT3D9 = *IDirect3D9 46 46 47 ClassIDirect3DDevice947 Interface IDirect3DDevice9 48 48 Inherits IUnknown 49 49 Public 50 50 'IDirect3DDevice9 methods 51 AbstractFunction TestCooperativeLevel() As DWord52 AbstractFunction GetAvailableTextureMem() As DWord53 AbstractFunction EvictManagedResources() As DWord54 AbstractFunction GetDirect3D(ppD3D9 As *LPDIRECT3D9) As DWord55 AbstractFunction GetDeviceCaps(pCaps As *D3DCAPS9) As DWord56 AbstractFunction GetDisplayMode(iSwapChain As DWord, pMode As DWordPtr) As DWord57 AbstractFunction GetCreationParameters(pParameters As *D3DDEVICE_CREATION_PARAMETERS) As DWord58 AbstractFunction SetCursorProperties(XHotSpot As DWord, YHotSpot As DWord,pCursorBitmap As *IDirect3DSurface9) As DWord59 AbstractSub SetCursorPosition(X As Long, Y As Long, Flags As DWord)60 AbstractFunction ShowCursor(bShow As Long) As Long61 AbstractFunction CreateAdditionalSwapChain(pPresentationParameters As *D3DPRESENT_PARAMETERS, ppSwapChain As **IDirect3DSwapChain9) As DWord62 AbstractFunction GetSwapChain(iSwapChain As DWord, ppSwapChain As **IDirect3DSwapChain9) As DWord63 AbstractFunction GetNumberOfSwapChains() As DWord64 AbstractFunction Reset(pPresentationParameters As *D3DPRESENT_PARAMETERS) As DWord65 AbstractFunction Present(pSourceRect As *RECT, pDestRect As *RECT, hDestWindowOverride As DWord, pDirtyRegion As *RGNDATA) As DWord66 AbstractFunction GetBackBuffer(iSwapChain As DWord, iBackBuffer As DWord, bufType As D3DBACKBUFFER_TYPE, ppBackBuffer As **IDirect3DSurface9) As DWord67 AbstractFunction GetRasterStatus(iSwapChain As DWord, pRasterStatus As *D3DRASTER_STATUS) As DWord68 AbstractFunction SetDialogBoxMode(bEnableDialogs As Long) As DWord69 AbstractSub SetGammaRamp(iSwapChain As DWord, Flags As DWord, pRamp As *D3DGAMMARAMP)70 AbstractSub GetGammaRamp(iSwapChain As DWord, pRamp As *D3DGAMMARAMP)71 AbstractFunction CreateTexture(Width As DWord, Height As DWord, Levels As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppTexture As **IDirect3DTexture9, pSharedHandle As DWordPtr) As DWord72 AbstractFunction CreateVolumeTexture(Width As DWord, Height As DWord, Depth As DWord, Levels As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppVolumeTexture As **IDirect3DVolumeTexture9, pSharedHandle As DWordPtr) As DWord73 AbstractFunction CreateCubeTexture(EdgeLength As DWord, Levels As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppCubeTexture As **IDirect3DCubeTexture9, pSharedHandle As DWordPtr) As DWord74 AbstractFunction CreateVertexBuffer(Length As DWord, Usage As DWord, FVF As DWord, Pool As D3DPOOL, ppVertexBuffer As **IDirect3DVertexBuffer9, pSharedHandle As DWordPtr) As DWord75 AbstractFunction CreateIndexBuffer(Length As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppIndexBuffer As **IDirect3DIndexBuffer9, pSharedHandle As DWordPtr) As DWord76 AbstractFunction CreateRenderTarget(Width As DWord, Height As DWord, Format As D3DFORMAT, MultiSample As D3DMULTISAMPLE_TYPE, MultisampleQuality As DWord, Lockable As Long, ppSurface As **IDirect3DSurface9, pSharedHandle As DWordPtr) As DWord77 AbstractFunction CreateDepthStencilSurface(Width As DWord, Height As DWord, Format As D3DFORMAT, MultiSample As D3DMULTISAMPLE_TYPE, MultisampleQuality As DWord, Discard As Long, ppSurface As **IDirect3DSurface9, pSharedHandle As DWordPtr) As DWord78 AbstractFunction UpdateSurface(pSourceSurface As *IDirect3DSurface9, pSourceRect As *RECT, pDestinationSurface As *IDirect3DSurface9, pDestPoint As *POINTAPI) As DWord79 AbstractFunction UpdateTexture(pSourceTexture As *IDirect3DBaseTexture9, pDestinationTexture As *IDirect3DBaseTexture9) As DWord80 AbstractFunction GetRenderTargetData(pRenderTarget As *IDirect3DSurface9, pDestSurface As *IDirect3DSurface9) As DWord81 AbstractFunction GetFrontBufferData(iSwapChain As DWord, pDestSurface As *IDirect3DSurface9) As DWord82 AbstractFunction StretchRect(pSourceSurface As *IDirect3DSurface9, pSourceRect As *RECT, pDestSurface As *IDirect3DSurface9, pDestRect As *RECT, Filter As D3DTEXTUREFILTERTYPE) As DWord83 AbstractFunction ColorFill(pSurface As *IDirect3DSurface9, pRect As *RECT,dwColor As DWord) As DWord84 AbstractFunction CreateOffscreenPlainSurface(Width As DWord, Height As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppSurface As **IDirect3DSurface9, pSharedHandle As DWordPtr) As DWord85 AbstractFunction SetRenderTarget(RenderTargetIndex As DWord, pRenderTarget As *IDirect3DSurface9) As DWord86 AbstractFunction GetRenderTarget(RenderTargetIndex As DWord, ppRenderTarget As **IDirect3DSurface9) As DWord87 AbstractFunction SetDepthStencilSurface(pNewZStencil As *IDirect3DSurface9) As DWord88 AbstractFunction GetDepthStencilSurface(ppZStencilSurface As **IDirect3DSurface9) As DWord89 AbstractFunction BeginScene() As DWord90 AbstractFunction EndScene() As DWord91 AbstractFunction Clear(Count As DWord, pRects As *D3DRECT, Flags As DWord, dwColor As DWord, Z As Single, Stencil As DWord) As DWord92 AbstractFunction SetTransform(State As D3DTRANSFORMSTATETYPE, pMatrix As *D3DMATRIX) As DWord93 AbstractFunction GetTransform(State As D3DTRANSFORMSTATETYPE, pMatrix As *D3DMATRIX) As DWord94 AbstractFunction MultiplyTransform(State As D3DTRANSFORMSTATETYPE, pMatrix As *D3DMATRIX) As DWord95 AbstractFunction SetViewport(pViewport As *D3DVIEWPORT9) As DWord96 AbstractFunction GetViewport(pViewport As *D3DVIEWPORT9) As DWord97 AbstractFunction SetMaterial(pMaterial As *D3DMATERIAL9) As DWord98 AbstractFunction GetMaterial(pMaterial As *D3DMATERIAL9) As DWord99 AbstractFunction SetLight(Index As DWord, pLight As *D3DLIGHT9) As DWord100 AbstractFunction GetLight(Index As DWord, pLight As *D3DLIGHT9) As DWord101 AbstractFunction LightEnable(Index As DWord, Enable As Long) As DWord102 AbstractFunction GetLightEnable(Index As DWord, pEnable As DWordPtr) As DWord103 AbstractFunction SetClipPlane(Index As DWord, pPlane As SinglePtr) As DWord104 AbstractFunction GetClipPlane(Index As DWord, pPlane As SinglePtr) As DWord105 AbstractFunction SetRenderState(State As D3DRENDERSTATETYPE, Value As DWord) As DWord106 AbstractFunction GetRenderState(State As D3DRENDERSTATETYPE, pValue As DWordPtr) As DWord107 AbstractFunction CreateStateBlock(BlockType As D3DSTATEBLOCKTYPE, ppSB As **IDirect3DStateBlock9) As DWord108 AbstractFunction BeginStateBlock() As DWord109 AbstractFunction EndStateBlock(ppSB As **IDirect3DStateBlock9) As DWord110 AbstractFunction SetClipStatus(pClipStatus As *D3DCLIPSTATUS9) As DWord111 AbstractFunction GetClipStatus(pClipStatus As *D3DCLIPSTATUS9) As DWord112 AbstractFunction GetTexture(Stage As DWord, ppTexture As **IDirect3DBaseTexture9) As DWord113 AbstractFunction SetTexture(Stage As DWord, pTexture As *IDirect3DBaseTexture9) As DWord114 AbstractFunction GetTextureStageState(Stage As DWord, StateType As D3DTEXTURESTAGESTATETYPE, pValue As DWordPtr) As DWord115 AbstractFunction SetTextureStageState(Stage As DWord, StateType As D3DTEXTURESTAGESTATETYPE, Value As DWord) As DWord116 AbstractFunction GetSamplerState(Sampler As DWord, SamplerStateType As D3DSAMPLERSTATETYPE, pValue As DWordPtr) As DWord117 AbstractFunction SetSamplerState(Sampler As DWord, SamplerStateType As D3DSAMPLERSTATETYPE, Value As DWord) As DWord118 AbstractFunction ValidateDevice(pNumPasses As DWordPtr) As DWord119 AbstractFunction SetPaletteEntries(PaletteNumber As DWord, pEntries As *PALETTEENTRY) As DWord120 AbstractFunction GetPaletteEntries(PaletteNumber As DWord, pEntries As *PALETTEENTRY) As DWord121 AbstractFunction SetCurrentTexturePalette(PaletteNumber As DWord) As DWord122 AbstractFunction GetCurrentTexturePalette(pPaletteNumber As DWordPtr) As DWord123 AbstractFunction SetScissorRect(pRect As *RECT) As DWord124 AbstractFunction GetScissorRect(pRect As *RECT) As DWord125 AbstractFunction SetSoftwareVertexProcessing(bSoftware As Long) As DWord126 AbstractFunction GetSoftwareVertexProcessing() As Long127 AbstractFunction SetNPatchMode(nSegments As Single) As DWord128 AbstractFunction GetNPatchMode() As Single129 AbstractFunction DrawPrimitive(PrimitiveType As D3DPRIMITIVETYPE, StartVertex As DWord, PrimitiveCount As DWord) As DWord130 AbstractFunction DrawIndexedPrimitive(PrimitiveType As D3DPRIMITIVETYPE, BaseVertexIndex As Long, MinVertexIndex As DWord, NumVertices As DWord, startIndex As DWord, primCount As DWord) As DWord131 AbstractFunction DrawPrimitiveUP(PrimitiveType As D3DPRIMITIVETYPE, PrimitiveCount As DWord, pVertexStreamZeroData As VoidPtr, VertexStreamZeroStride As DWord) As DWord132 AbstractFunction DrawIndexedPrimitiveUP(PrimitiveType As D3DPRIMITIVETYPE, MinVertexIndex As DWord, NumVertices As DWord, PrimitiveCount As DWord, pIndexData As VoidPtr, IndexDataFormat As D3DFORMAT, pVertexStreamZeroData As VoidPtr, VertexStreamZeroStride As DWord) As DWord133 AbstractFunction ProcessVertices(SrcStartIndex As DWord, DestIndex As DWord, VertexCount As DWord, pDestBuffer As *IDirect3DVertexBuffer9, pVertexDecl As *IDirect3DVertexDeclaration9, Flags As DWord) As DWord134 AbstractFunction CreateVertexDeclaration(pVertexElements As *D3DVERTEXELEMENT9, ppDecl As **IDirect3DVertexDeclaration9) As DWord135 AbstractFunction SetVertexDeclaration(pDecl As *IDirect3DVertexDeclaration9) As DWord136 AbstractFunction GetVertexDeclaration(ppDecl As **IDirect3DVertexDeclaration9) As DWord137 AbstractFunction SetFVF(FVF As DWord) As DWord138 AbstractFunction GetFVF(pFVF As DWordPtr) As DWord139 AbstractFunction CreateVertexShader(pFunction As DWordPtr, ppShader As **IDirect3DVertexShader9) As DWord140 AbstractFunction SetVertexShader(pShader As *IDirect3DVertexShader9) As DWord141 AbstractFunction GetVertexShader(ppShader As **IDirect3DVertexShader9) As DWord142 AbstractFunction SetVertexShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord143 AbstractFunction GetVertexShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord144 AbstractFunction SetVertexShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord145 AbstractFunction GetVertexShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord146 AbstractFunction SetVertexShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord147 AbstractFunction GetVertexShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord148 AbstractFunction SetStreamSource(StreamNumber As DWord, pStreamData As *IDirect3DVertexBuffer9, OffsetInBytes As DWord, Stride As DWord) As DWord149 AbstractFunction GetStreamSource(StreamNumber As DWord, ppStreamData As **IDirect3DVertexBuffer9, pOffsetInBytes As DWordPtr, pStride As DWordPtr) As DWord150 AbstractFunction SetStreamSourceFreq(StreamNumber As DWord, Setting As DWord) As DWord151 AbstractFunction GetStreamSourceFreq(StreamNumber As DWord, pSetting As DWordPtr) As DWord152 AbstractFunction SetIndices(pIndexData As *IDirect3DIndexBuffer9) As DWord153 AbstractFunction GetIndices(ppIndexData As **IDirect3DIndexBuffer9) As DWord154 AbstractFunction CreatePixelShader(pFunction As DWordPtr, ppShader As **IDirect3DPixelShader9) As DWord155 AbstractFunction SetPixelShader(pShader As *IDirect3DPixelShader9) As DWord156 AbstractFunction GetPixelShader(ppShader As **IDirect3DPixelShader9) As DWord157 AbstractFunction SetPixelShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord158 AbstractFunction GetPixelShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord159 AbstractFunction SetPixelShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord160 AbstractFunction GetPixelShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord161 AbstractFunction SetPixelShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord162 AbstractFunction GetPixelShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord163 AbstractFunction DrawRectPatch(Handle As DWord, pNumSegs As SinglePtr, pRectPatchInfo As *D3DRECTPATCH_INFO) As DWord164 AbstractFunction DrawTriPatch(Handle As DWord, pNumSegs As SinglePtr, pTriPatchInfo As *D3DTRIPATCH_INFO) As DWord165 AbstractFunction DeletePatch(Handle As DWord) As DWord166 AbstractFunction CreateQuery(QueryType As D3DQUERYTYPE, ppQuery As **IDirect3DQuery9) As DWord167 End Class51 Function TestCooperativeLevel() As DWord 52 Function GetAvailableTextureMem() As DWord 53 Function EvictManagedResources() As DWord 54 Function GetDirect3D(ppD3D9 As *LPDIRECT3D9) As DWord 55 Function GetDeviceCaps(pCaps As *D3DCAPS9) As DWord 56 Function GetDisplayMode(iSwapChain As DWord, pMode As DWordPtr) As DWord 57 Function GetCreationParameters(pParameters As *D3DDEVICE_CREATION_PARAMETERS) As DWord 58 Function SetCursorProperties(XHotSpot As DWord, YHotSpot As DWord,pCursorBitmap As *IDirect3DSurface9) As DWord 59 Sub SetCursorPosition(X As Long, Y As Long, Flags As DWord) 60 Function ShowCursor(bShow As Long) As Long 61 Function CreateAdditionalSwapChain(pPresentationParameters As *D3DPRESENT_PARAMETERS, ppSwapChain As **IDirect3DSwapChain9) As DWord 62 Function GetSwapChain(iSwapChain As DWord, ppSwapChain As **IDirect3DSwapChain9) As DWord 63 Function GetNumberOfSwapChains() As DWord 64 Function Reset(pPresentationParameters As *D3DPRESENT_PARAMETERS) As DWord 65 Function Present(pSourceRect As *RECT, pDestRect As *RECT, hDestWindowOverride As DWord, pDirtyRegion As *RGNDATA) As DWord 66 Function GetBackBuffer(iSwapChain As DWord, iBackBuffer As DWord, bufType As D3DBACKBUFFER_TYPE, ppBackBuffer As **IDirect3DSurface9) As DWord 67 Function GetRasterStatus(iSwapChain As DWord, pRasterStatus As *D3DRASTER_STATUS) As DWord 68 Function SetDialogBoxMode(bEnableDialogs As Long) As DWord 69 Sub SetGammaRamp(iSwapChain As DWord, Flags As DWord, pRamp As *D3DGAMMARAMP) 70 Sub GetGammaRamp(iSwapChain As DWord, pRamp As *D3DGAMMARAMP) 71 Function CreateTexture(Width As DWord, Height As DWord, Levels As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppTexture As **IDirect3DTexture9, pSharedHandle As DWordPtr) As DWord 72 Function CreateVolumeTexture(Width As DWord, Height As DWord, Depth As DWord, Levels As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppVolumeTexture As **IDirect3DVolumeTexture9, pSharedHandle As DWordPtr) As DWord 73 Function CreateCubeTexture(EdgeLength As DWord, Levels As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppCubeTexture As **IDirect3DCubeTexture9, pSharedHandle As DWordPtr) As DWord 74 Function CreateVertexBuffer(Length As DWord, Usage As DWord, FVF As DWord, Pool As D3DPOOL, ppVertexBuffer As **IDirect3DVertexBuffer9, pSharedHandle As DWordPtr) As DWord 75 Function CreateIndexBuffer(Length As DWord, Usage As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppIndexBuffer As **IDirect3DIndexBuffer9, pSharedHandle As DWordPtr) As DWord 76 Function CreateRenderTarget(Width As DWord, Height As DWord, Format As D3DFORMAT, MultiSample As D3DMULTISAMPLE_TYPE, MultisampleQuality As DWord, Lockable As Long, ppSurface As **IDirect3DSurface9, pSharedHandle As DWordPtr) As DWord 77 Function CreateDepthStencilSurface(Width As DWord, Height As DWord, Format As D3DFORMAT, MultiSample As D3DMULTISAMPLE_TYPE, MultisampleQuality As DWord, Discard As Long, ppSurface As **IDirect3DSurface9, pSharedHandle As DWordPtr) As DWord 78 Function UpdateSurface(pSourceSurface As *IDirect3DSurface9, pSourceRect As *RECT, pDestinationSurface As *IDirect3DSurface9, pDestPoint As *POINTAPI) As DWord 79 Function UpdateTexture(pSourceTexture As *IDirect3DBaseTexture9, pDestinationTexture As *IDirect3DBaseTexture9) As DWord 80 Function GetRenderTargetData(pRenderTarget As *IDirect3DSurface9, pDestSurface As *IDirect3DSurface9) As DWord 81 Function GetFrontBufferData(iSwapChain As DWord, pDestSurface As *IDirect3DSurface9) As DWord 82 Function StretchRect(pSourceSurface As *IDirect3DSurface9, pSourceRect As *RECT, pDestSurface As *IDirect3DSurface9, pDestRect As *RECT, Filter As D3DTEXTUREFILTERTYPE) As DWord 83 Function ColorFill(pSurface As *IDirect3DSurface9, pRect As *RECT,dwColor As DWord) As DWord 84 Function CreateOffscreenPlainSurface(Width As DWord, Height As DWord, Format As D3DFORMAT, Pool As D3DPOOL, ppSurface As **IDirect3DSurface9, pSharedHandle As DWordPtr) As DWord 85 Function SetRenderTarget(RenderTargetIndex As DWord, pRenderTarget As *IDirect3DSurface9) As DWord 86 Function GetRenderTarget(RenderTargetIndex As DWord, ppRenderTarget As **IDirect3DSurface9) As DWord 87 Function SetDepthStencilSurface(pNewZStencil As *IDirect3DSurface9) As DWord 88 Function GetDepthStencilSurface(ppZStencilSurface As **IDirect3DSurface9) As DWord 89 Function BeginScene() As DWord 90 Function EndScene() As DWord 91 Function Clear(Count As DWord, pRects As *D3DRECT, Flags As DWord, dwColor As DWord, Z As Single, Stencil As DWord) As DWord 92 Function SetTransform(State As D3DTRANSFORMSTATETYPE, pMatrix As *D3DMATRIX) As DWord 93 Function GetTransform(State As D3DTRANSFORMSTATETYPE, pMatrix As *D3DMATRIX) As DWord 94 Function MultiplyTransform(State As D3DTRANSFORMSTATETYPE, pMatrix As *D3DMATRIX) As DWord 95 Function SetViewport(pViewport As *D3DVIEWPORT9) As DWord 96 Function GetViewport(pViewport As *D3DVIEWPORT9) As DWord 97 Function SetMaterial(pMaterial As *D3DMATERIAL9) As DWord 98 Function GetMaterial(pMaterial As *D3DMATERIAL9) As DWord 99 Function SetLight(Index As DWord, pLight As *D3DLIGHT9) As DWord 100 Function GetLight(Index As DWord, pLight As *D3DLIGHT9) As DWord 101 Function LightEnable(Index As DWord, Enable As Long) As DWord 102 Function GetLightEnable(Index As DWord, pEnable As DWordPtr) As DWord 103 Function SetClipPlane(Index As DWord, pPlane As SinglePtr) As DWord 104 Function GetClipPlane(Index As DWord, pPlane As SinglePtr) As DWord 105 Function SetRenderState(State As D3DRENDERSTATETYPE, Value As DWord) As DWord 106 Function GetRenderState(State As D3DRENDERSTATETYPE, pValue As DWordPtr) As DWord 107 Function CreateStateBlock(BlockType As D3DSTATEBLOCKTYPE, ppSB As **IDirect3DStateBlock9) As DWord 108 Function BeginStateBlock() As DWord 109 Function EndStateBlock(ppSB As **IDirect3DStateBlock9) As DWord 110 Function SetClipStatus(pClipStatus As *D3DCLIPSTATUS9) As DWord 111 Function GetClipStatus(pClipStatus As *D3DCLIPSTATUS9) As DWord 112 Function GetTexture(Stage As DWord, ppTexture As **IDirect3DBaseTexture9) As DWord 113 Function SetTexture(Stage As DWord, pTexture As *IDirect3DBaseTexture9) As DWord 114 Function GetTextureStageState(Stage As DWord, StateType As D3DTEXTURESTAGESTATETYPE, pValue As DWordPtr) As DWord 115 Function SetTextureStageState(Stage As DWord, StateType As D3DTEXTURESTAGESTATETYPE, Value As DWord) As DWord 116 Function GetSamplerState(Sampler As DWord, SamplerStateType As D3DSAMPLERSTATETYPE, pValue As DWordPtr) As DWord 117 Function SetSamplerState(Sampler As DWord, SamplerStateType As D3DSAMPLERSTATETYPE, Value As DWord) As DWord 118 Function ValidateDevice(pNumPasses As DWordPtr) As DWord 119 Function SetPaletteEntries(PaletteNumber As DWord, pEntries As *PALETTEENTRY) As DWord 120 Function GetPaletteEntries(PaletteNumber As DWord, pEntries As *PALETTEENTRY) As DWord 121 Function SetCurrentTexturePalette(PaletteNumber As DWord) As DWord 122 Function GetCurrentTexturePalette(pPaletteNumber As DWordPtr) As DWord 123 Function SetScissorRect(pRect As *RECT) As DWord 124 Function GetScissorRect(pRect As *RECT) As DWord 125 Function SetSoftwareVertexProcessing(bSoftware As Long) As DWord 126 Function GetSoftwareVertexProcessing() As Long 127 Function SetNPatchMode(nSegments As Single) As DWord 128 Function GetNPatchMode() As Single 129 Function DrawPrimitive(PrimitiveType As D3DPRIMITIVETYPE, StartVertex As DWord, PrimitiveCount As DWord) As DWord 130 Function DrawIndexedPrimitive(PrimitiveType As D3DPRIMITIVETYPE, BaseVertexIndex As Long, MinVertexIndex As DWord, NumVertices As DWord, startIndex As DWord, primCount As DWord) As DWord 131 Function DrawPrimitiveUP(PrimitiveType As D3DPRIMITIVETYPE, PrimitiveCount As DWord, pVertexStreamZeroData As VoidPtr, VertexStreamZeroStride As DWord) As DWord 132 Function DrawIndexedPrimitiveUP(PrimitiveType As D3DPRIMITIVETYPE, MinVertexIndex As DWord, NumVertices As DWord, PrimitiveCount As DWord, pIndexData As VoidPtr, IndexDataFormat As D3DFORMAT, pVertexStreamZeroData As VoidPtr, VertexStreamZeroStride As DWord) As DWord 133 Function ProcessVertices(SrcStartIndex As DWord, DestIndex As DWord, VertexCount As DWord, pDestBuffer As *IDirect3DVertexBuffer9, pVertexDecl As *IDirect3DVertexDeclaration9, Flags As DWord) As DWord 134 Function CreateVertexDeclaration(pVertexElements As *D3DVERTEXELEMENT9, ppDecl As **IDirect3DVertexDeclaration9) As DWord 135 Function SetVertexDeclaration(pDecl As *IDirect3DVertexDeclaration9) As DWord 136 Function GetVertexDeclaration(ppDecl As **IDirect3DVertexDeclaration9) As DWord 137 Function SetFVF(FVF As DWord) As DWord 138 Function GetFVF(pFVF As DWordPtr) As DWord 139 Function CreateVertexShader(pFunction As DWordPtr, ppShader As **IDirect3DVertexShader9) As DWord 140 Function SetVertexShader(pShader As *IDirect3DVertexShader9) As DWord 141 Function GetVertexShader(ppShader As **IDirect3DVertexShader9) As DWord 142 Function SetVertexShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord 143 Function GetVertexShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord 144 Function SetVertexShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord 145 Function GetVertexShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord 146 Function SetVertexShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord 147 Function GetVertexShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord 148 Function SetStreamSource(StreamNumber As DWord, pStreamData As *IDirect3DVertexBuffer9, OffsetInBytes As DWord, Stride As DWord) As DWord 149 Function GetStreamSource(StreamNumber As DWord, ppStreamData As **IDirect3DVertexBuffer9, pOffsetInBytes As DWordPtr, pStride As DWordPtr) As DWord 150 Function SetStreamSourceFreq(StreamNumber As DWord, Setting As DWord) As DWord 151 Function GetStreamSourceFreq(StreamNumber As DWord, pSetting As DWordPtr) As DWord 152 Function SetIndices(pIndexData As *IDirect3DIndexBuffer9) As DWord 153 Function GetIndices(ppIndexData As **IDirect3DIndexBuffer9) As DWord 154 Function CreatePixelShader(pFunction As DWordPtr, ppShader As **IDirect3DPixelShader9) As DWord 155 Function SetPixelShader(pShader As *IDirect3DPixelShader9) As DWord 156 Function GetPixelShader(ppShader As **IDirect3DPixelShader9) As DWord 157 Function SetPixelShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord 158 Function GetPixelShaderConstantF(StartRegister As DWord, pConstantData As SinglePtr, Vector4fCount As DWord) As DWord 159 Function SetPixelShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord 160 Function GetPixelShaderConstantI(StartRegister As DWord, pConstantData As WordPtr, Vector4iCount As DWord) As DWord 161 Function SetPixelShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord 162 Function GetPixelShaderConstantB(StartRegister As DWord, pConstantData As DWordPtr, BoolCount As DWord) As DWord 163 Function DrawRectPatch(Handle As DWord, pNumSegs As SinglePtr, pRectPatchInfo As *D3DRECTPATCH_INFO) As DWord 164 Function DrawTriPatch(Handle As DWord, pNumSegs As SinglePtr, pTriPatchInfo As *D3DTRIPATCH_INFO) As DWord 165 Function DeletePatch(Handle As DWord) As DWord 166 Function CreateQuery(QueryType As D3DQUERYTYPE, ppQuery As **IDirect3DQuery9) As DWord 167 End Interface 168 168 TypeDef LPDIRECT3DDEVICE9 = *IDirect3DDevice9 169 169 170 ClassIDirect3DStateBlock9170 Interface IDirect3DStateBlock9 171 171 Inherits IUnknown 172 172 Public 173 173 'IDirect3DStateBlock9 methods 174 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord175 AbstractFunction Capture() As DWord176 AbstractFunction Apply() As DWord177 End Class174 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 175 Function Capture() As DWord 176 Function Apply() As DWord 177 End Interface 178 178 TypeDef LPDIRECT3DSTATEBLOCK9 = *IDirect3DStateBlock9 179 179 180 ClassIDirect3DSwapChain9180 Interface IDirect3DSwapChain9 181 181 Inherits IUnknown 182 182 Public 183 183 'IDirect3DSwapChain9 methods 184 AbstractFunction Present(pSourceRect As *RECT, pDestRect As *RECT, hDestWindowOverride As DWord, pDirtyRegion As *RGNDATA, dwFlags As DWord) As DWord185 AbstractFunction GetFrontBufferData(pDestSurface As *IDirect3DSurface9) As DWord186 AbstractFunction GetBackBuffer(iBackBuffer As DWord, bbtype As D3DBACKBUFFER_TYPE, ppBackBuffer As **IDirect3DSurface9) As DWord187 AbstractFunction GetRasterStatus(pRasterStatus As *D3DRASTER_STATUS) As DWord188 AbstractFunction GetDisplayMode(pMode As *D3DDISPLAYMODE) As DWord189 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord190 AbstractFunction GetPresentParameters(pPresentationParameters As *D3DPRESENT_PARAMETERS) As DWord191 End Class184 Function Present(pSourceRect As *RECT, pDestRect As *RECT, hDestWindowOverride As DWord, pDirtyRegion As *RGNDATA, dwFlags As DWord) As DWord 185 Function GetFrontBufferData(pDestSurface As *IDirect3DSurface9) As DWord 186 Function GetBackBuffer(iBackBuffer As DWord, bbtype As D3DBACKBUFFER_TYPE, ppBackBuffer As **IDirect3DSurface9) As DWord 187 Function GetRasterStatus(pRasterStatus As *D3DRASTER_STATUS) As DWord 188 Function GetDisplayMode(pMode As *D3DDISPLAYMODE) As DWord 189 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 190 Function GetPresentParameters(pPresentationParameters As *D3DPRESENT_PARAMETERS) As DWord 191 End Interface 192 192 TypeDef LPDIRECT3DSWAPCHAIN9 = *IDirect3DSwapChain9 193 193 194 ClassIDirect3DResource9194 Interface IDirect3DResource9 195 195 Inherits IUnknown 196 196 Public 197 197 'IDirect3DResource9 methods 198 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord199 AbstractFunction SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord200 AbstractFunction GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord201 AbstractFunction FreePrivateData(ByRef refguid As GUID) As DWord202 AbstractFunction SetPriority(PriorityNew As DWord) As DWord203 AbstractFunction GetPriority() As DWord204 AbstractSub PreLoad()205 AbstractFunction GetType() As D3DRESOURCETYPE206 End Class198 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 199 Function SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord 200 Function GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 201 Function FreePrivateData(ByRef refguid As GUID) As DWord 202 Function SetPriority(PriorityNew As DWord) As DWord 203 Function GetPriority() As DWord 204 Sub PreLoad() 205 Function GetType() As D3DRESOURCETYPE 206 End Interface 207 207 TypeDef LPDIRECT3DRESOURCE9 = *IDirect3DResource9 208 208 209 ClassIDirect3DVertexDeclaration9209 Interface IDirect3DVertexDeclaration9 210 210 Inherits IUnknown 211 211 Public 212 212 'IDirect3DVertexDeclaration9 methods 213 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord214 AbstractFunction GetDeclaration(pElement As *D3DVERTEXELEMENT9, pNumElements As DWordPtr) As DWord215 End Class213 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 214 Function GetDeclaration(pElement As *D3DVERTEXELEMENT9, pNumElements As DWordPtr) As DWord 215 End Interface 216 216 TypeDef LPDIRECT3DVERTEXDECLARATION9 = *IDirect3DVertexDeclaration9 217 217 218 ClassIDirect3DVertexShader9218 Interface IDirect3DVertexShader9 219 219 Inherits IUnknown 220 220 Public 221 221 'IDirect3DVertexShader9 methods 222 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord223 AbstractFunction GetFunction(pData As VoidPtr, pSizeOfData As DWordPtr) As DWord224 End Class222 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 223 Function GetFunction(pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 224 End Interface 225 225 TypeDef LPDIRECT3DVERTEXSHADER9 = *IDirect3DVertexShader9 226 226 227 ClassIDirect3DPixelShader9227 Interface IDirect3DPixelShader9 228 228 Inherits IUnknown 229 229 Public 230 230 'IDirect3DPixelShader9 methods 231 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord232 AbstractFunction GetFunction(pData As VoidPtr, pSizeOfData As DWordPtr) As DWord233 End Class231 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 232 Function GetFunction(pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 233 End Interface 234 234 TypeDef LPDIRECT3DPIXELSHADER9 = *IDirect3DPixelShader9 235 235 236 ClassIDirect3DBaseTexture9236 Interface IDirect3DBaseTexture9 237 237 Inherits IUnknown 238 238 Public 239 239 'IDirect3DResource9 methods 240 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord241 AbstractFunction SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord242 AbstractFunction GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord243 AbstractFunction FreePrivateData(ByRef refguid As GUID) As DWord244 AbstractFunction SetPriority(PriorityNew As DWord) As DWord245 AbstractFunction GetPriority() As DWord246 AbstractSub PreLoad()247 AbstractFunction GetType() As D3DRESOURCETYPE248 AbstractFunction SetLOD(LODNew As DWord) As DWord249 AbstractFunction GetLOD() As DWord250 AbstractFunction GetLevelCount() As DWord251 AbstractFunction SetAutoGenFilterType(FilterType As D3DTEXTUREFILTERTYPE) As DWord252 AbstractFunction GetAutoGenFilterType() As D3DTEXTUREFILTERTYPE253 AbstractSub GenerateMipSubLevels()254 End Class240 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 241 Function SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord 242 Function GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 243 Function FreePrivateData(ByRef refguid As GUID) As DWord 244 Function SetPriority(PriorityNew As DWord) As DWord 245 Function GetPriority() As DWord 246 Sub PreLoad() 247 Function GetType() As D3DRESOURCETYPE 248 Function SetLOD(LODNew As DWord) As DWord 249 Function GetLOD() As DWord 250 Function GetLevelCount() As DWord 251 Function SetAutoGenFilterType(FilterType As D3DTEXTUREFILTERTYPE) As DWord 252 Function GetAutoGenFilterType() As D3DTEXTUREFILTERTYPE 253 Sub GenerateMipSubLevels() 254 End Interface 255 255 TypeDef LPDIRECT3DBASETEXTURE9 = *IDirect3DBaseTexture9 256 256 257 ClassIDirect3DTexture9257 Interface IDirect3DTexture9 258 258 Inherits IDirect3DBaseTexture9 259 259 Public 260 AbstractFunction GetLevelDesc(Level As DWord, pDesc As *D3DSURFACE_DESC) As DWord261 AbstractFunction GetSurfaceLevel(Level As DWord, ppSurfaceLevel As **IDirect3DSurface9) As DWord262 AbstractFunction LockRect(Level As DWord, pLockedRect As *D3DLOCKED_RECT, pRect As *RECT, Flags As DWord) As DWord263 AbstractFunction UnlockRect(Level As DWord) As DWord264 AbstractFunction AddDirtyRect(pDirtyRect As *RECT) As DWord265 End Class260 Function GetLevelDesc(Level As DWord, pDesc As *D3DSURFACE_DESC) As DWord 261 Function GetSurfaceLevel(Level As DWord, ppSurfaceLevel As **IDirect3DSurface9) As DWord 262 Function LockRect(Level As DWord, pLockedRect As *D3DLOCKED_RECT, pRect As *RECT, Flags As DWord) As DWord 263 Function UnlockRect(Level As DWord) As DWord 264 Function AddDirtyRect(pDirtyRect As *RECT) As DWord 265 End Interface 266 266 TypeDef LPDIRECT3DTEXTURE9 = *IDirect3DTexture9 267 267 268 ClassIDirect3DVolumeTexture9268 Interface IDirect3DVolumeTexture9 269 269 Inherits IDirect3DBaseTexture9 270 270 Public 271 AbstractFunction GetLevelDesc(Level As DWord, pDesc As *D3DSURFACE_DESC) As DWord272 AbstractFunction GetVolumeLevel(Level As DWord, ppVolumeLevel As **IDirect3DVolume9) As DWord273 AbstractFunction LockBox(Level As DWord, pLockedVolume As *D3DLOCKED_BOX, pBox As *D3DBOX, Flags As DWord) As DWord274 AbstractFunction UnlockBox(Level As DWord) As DWord275 AbstractFunction AddDirtyBox(pDirtyBox As *D3DBOX) As DWord276 End Class271 Function GetLevelDesc(Level As DWord, pDesc As *D3DSURFACE_DESC) As DWord 272 Function GetVolumeLevel(Level As DWord, ppVolumeLevel As **IDirect3DVolume9) As DWord 273 Function LockBox(Level As DWord, pLockedVolume As *D3DLOCKED_BOX, pBox As *D3DBOX, Flags As DWord) As DWord 274 Function UnlockBox(Level As DWord) As DWord 275 Function AddDirtyBox(pDirtyBox As *D3DBOX) As DWord 276 End Interface 277 277 TypeDef LPDIRECT3DVOLUMETEXTURE9 = *IDirect3DVolumeTexture9 278 278 279 ClassIDirect3DCubeTexture9279 Interface IDirect3DCubeTexture9 280 280 Inherits IDirect3DBaseTexture9 281 End Class281 End Interface 282 282 TypeDef LPDIRECT3DCUBETEXTURE9 = *IDirect3DCubeTexture9 283 283 284 ClassIDirect3DVertexBuffer9284 Interface IDirect3DVertexBuffer9 285 285 Inherits IUnknown 286 286 Public 287 287 'IDirect3DResource9 methods 288 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord289 AbstractFunction SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord290 AbstractFunction GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord291 AbstractFunction FreePrivateData(ByRef refguid As GUID) As DWord292 AbstractFunction SetPriority(PriorityNew As DWord) As DWord293 AbstractFunction GetPriority() As DWord294 AbstractSub PreLoad()295 AbstractFunction GetType() As D3DRESOURCETYPE296 AbstractFunction Lock(OffsetToLock As DWord, SizeToLock As DWord, ppbData As VoidPtr, Flags As DWord) As DWord297 AbstractFunction Unlock() As DWord298 AbstractFunction GetDesc(pDesc As *D3DVERTEXBUFFER_DESC) As DWord299 End Class288 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 289 Function SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord 290 Function GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 291 Function FreePrivateData(ByRef refguid As GUID) As DWord 292 Function SetPriority(PriorityNew As DWord) As DWord 293 Function GetPriority() As DWord 294 Sub PreLoad() 295 Function GetType() As D3DRESOURCETYPE 296 Function Lock(OffsetToLock As DWord, SizeToLock As DWord, ppbData As VoidPtr, Flags As DWord) As DWord 297 Function Unlock() As DWord 298 Function GetDesc(pDesc As *D3DVERTEXBUFFER_DESC) As DWord 299 End Interface 300 300 TypeDef LPDIRECT3DVERTEXBUFFER9 = *IDirect3DVertexBuffer9 301 301 302 ClassIDirect3DIndexBuffer9302 Interface IDirect3DIndexBuffer9 303 303 Inherits IUnknown 304 304 Public 305 305 'IDirect3DResource9 methods 306 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord307 AbstractFunction SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord308 AbstractFunction GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord309 AbstractFunction FreePrivateData(ByRef refguid As GUID) As DWord310 AbstractFunction SetPriority(PriorityNew As DWord) As DWord311 AbstractFunction GetPriority() As DWord312 AbstractSub PreLoad()313 AbstractFunction GetType() As D3DRESOURCETYPE314 AbstractFunction Lock(OffsetToLock As DWord, SizeToLock As DWord, ppbData As VoidPtr, Flags As DWord) As DWord315 AbstractFunction Unlock() As DWord316 AbstractFunction GetDesc(pDesc As *D3DINDEXBUFFER_DESC) As DWord317 End Class306 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 307 Function SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord 308 Function GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 309 Function FreePrivateData(ByRef refguid As GUID) As DWord 310 Function SetPriority(PriorityNew As DWord) As DWord 311 Function GetPriority() As DWord 312 Sub PreLoad() 313 Function GetType() As D3DRESOURCETYPE 314 Function Lock(OffsetToLock As DWord, SizeToLock As DWord, ppbData As VoidPtr, Flags As DWord) As DWord 315 Function Unlock() As DWord 316 Function GetDesc(pDesc As *D3DINDEXBUFFER_DESC) As DWord 317 End Interface 318 318 TypeDef LPDIRECT3DINDEXBUFFER9 = *IDirect3DIndexBuffer9 319 319 320 ClassIDirect3DSurface9320 Interface IDirect3DSurface9 321 321 Inherits IUnknown 322 322 Public 323 323 'IDirect3DResource9 methods 324 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord325 AbstractFunction SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord326 AbstractFunction GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord327 AbstractFunction FreePrivateData(ByRef refguid As GUID) As DWord328 AbstractFunction SetPriority(PriorityNew As DWord) As DWord329 AbstractFunction GetPriority() As DWord330 AbstractSub PreLoad()331 AbstractFunction GetType() As D3DRESOURCETYPE332 AbstractFunction GetContainer(ByRef riid As GUID, ppContainer As VoidPtr) As DWord333 AbstractFunction GetDesc(pDesc As *D3DSURFACE_DESC) As DWord334 AbstractFunction LockRect(pLockedRect As *D3DLOCKED_RECT, pRect As *RECT, Flags As DWord) As DWord335 AbstractFunction UnlockRect() As DWord336 AbstractFunction GetDC(phdc As DWordPtr) As DWord337 AbstractFunction ReleaseDC(hdc As DWord) As DWord338 End Class324 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 325 Function SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord 326 Function GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 327 Function FreePrivateData(ByRef refguid As GUID) As DWord 328 Function SetPriority(PriorityNew As DWord) As DWord 329 Function GetPriority() As DWord 330 Sub PreLoad() 331 Function GetType() As D3DRESOURCETYPE 332 Function GetContainer(ByRef riid As GUID, ppContainer As VoidPtr) As DWord 333 Function GetDesc(pDesc As *D3DSURFACE_DESC) As DWord 334 Function LockRect(pLockedRect As *D3DLOCKED_RECT, pRect As *RECT, Flags As DWord) As DWord 335 Function UnlockRect() As DWord 336 Function GetDC(phdc As DWordPtr) As DWord 337 Function ReleaseDC(hdc As DWord) As DWord 338 End Interface 339 339 TypeDef LPDIRECT3DSURFACE9 = *IDirect3DSurface9 340 340 341 ClassIDirect3DVolume9341 Interface IDirect3DVolume9 342 342 Inherits IUnknown 343 343 Public 344 344 'IDirect3DVolume9 methods 345 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord346 AbstractFunction SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord347 AbstractFunction GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord348 AbstractFunction FreePrivateData(ByRef refguid As GUID) As DWord349 AbstractFunction GetContainer(ByRef riid As GUID, ppContainer As DWordPtr) As DWord350 AbstractFunction GetDesc(pDesc As *D3DVOLUME_DESC) As DWord351 AbstractFunction LockBox(pLockedVolume As *D3DLOCKED_BOX, pBox As *D3DBOX, Flags As DWord) As DWord352 AbstractFunction UnlockBox() As DWord353 End Class345 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 346 Function SetPrivateData(ByRef refguid As GUID, pData As VoidPtr, SizeOfData As DWord, Flags As DWord) As DWord 347 Function GetPrivateData(ByRef refguid As GUID, pData As VoidPtr, pSizeOfData As DWordPtr) As DWord 348 Function FreePrivateData(ByRef refguid As GUID) As DWord 349 Function GetContainer(ByRef riid As GUID, ppContainer As DWordPtr) As DWord 350 Function GetDesc(pDesc As *D3DVOLUME_DESC) As DWord 351 Function LockBox(pLockedVolume As *D3DLOCKED_BOX, pBox As *D3DBOX, Flags As DWord) As DWord 352 Function UnlockBox() As DWord 353 End Interface 354 354 TypeDef LPDIRECT3DVOLUME9 = *IDirect3DVolume9 355 355 356 ClassIDirect3DQuery9356 Interface IDirect3DQuery9 357 357 Inherits IUnknown 358 358 Public 359 359 'IDirect3DQuery9 methods 360 AbstractFunction GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord361 AbstractFunction GetType() As D3DQUERYTYPE362 AbstractFunction GetDataSize() As DWord363 AbstractFunction Issue(dwIssueFlags As DWord) As DWord364 AbstractFunction GetData(pData As VoidPtr, dwSize As DWord, dwGetDataFlags As DWord) As DWord365 End Class360 Function GetDevice(ppDevice As *LPDIRECT3DDEVICE9) As DWord 361 Function GetType() As D3DQUERYTYPE 362 Function GetDataSize() As DWord 363 Function Issue(dwIssueFlags As DWord) As DWord 364 Function GetData(pData As VoidPtr, dwSize As DWord, dwGetDataFlags As DWord) As DWord 365 End Interface 366 366 TypeDef LPDIRECT3DQUERY9 = *IDirect3DQuery9 367 367 -
trunk/Include/objbase.sbp
r300 r303 107 107 Declare Function CoInitialize Lib "ole32" (pvReserved As VoidPtr) As HRESULT 108 108 Declare Sub CoUninitialize Lib "ole32" () 109 'Declare Sub CoGetMalloc Lib "ole32" (dwMemContext As DWord, ByRef pMalloc As IMalloc) As HRESULT109 'Declare Sub CoGetMalloc Lib "ole32" (dwMemContext As DWord, ByRef Malloc As IMalloc) As HRESULT 110 110 Declare Function CoGetCurrentProcess Lib "ole32" () As DWord 111 'Declare Function CoRegisterMallocSpy Lib "ole32" ( pMallocSpy As *IMallocSpy) As HRESULT111 'Declare Function CoRegisterMallocSpy Lib "ole32" (ByRef MallocSpy As IMallocSpy) As HRESULT 112 112 Declare Function CoRevokeMallocSpy Lib "ole32" () As HRESULT 113 'Declare Function CoCreateStandardMalloc Lib "ole32" (memctx As DWord, ByRef pMalloc As *IMalloc) As HRESULT113 'Declare Function CoCreateStandardMalloc Lib "ole32" (memctx As DWord, ByRef Malloc As IMalloc) As HRESULT 114 114 115 115 … … 129 129 '#if (_WIN32_WINNT >= &h0501) 130 130 ' 注意:このcokkieは本来ULARGE_INTEGER型 131 'Declare Function CoRegisterInitializeSpy Lib "ole32" ( pSpy As *IInitializeSpy, ByRef uliCokkie As QWord) As HRESULT131 'Declare Function CoRegisterInitializeSpy Lib "ole32" (Spy As IInitializeSpy, ByRef uliCokkie As QWord) As HRESULT 132 132 Declare Function CoRevokeInitializeSpy Lib "ole32" (uliCookie As QWord) As HRESULT 133 133 … … 179 179 180 180 /* Registering surrogate processes */ 181 'Declare Function CoRegisterSurrogate Lib "ole32" ( pSurrogate As *ISurrogate) As HRESULT181 'Declare Function CoRegisterSurrogate Lib "ole32" (Surrogate As ISurrogate) As HRESULT 182 182 183 183 /* marshaling interface pointers */ -
trunk/Include/objidl.sbp
r300 r303 13 13 /* interface IMarshal */ 14 14 /* [uuid][object][local] */ 15 16 TypeDef LPMARSHAL = /* [unique] */ *IMarshal17 15 18 16 Dim IID_IMarshal = [&h00000003, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID … … 51 49 End Interface 52 50 53 ' IMarshal2 51 /* interface IMarshal2 */ 52 /* [uuid][object][local] */ 53 54 Dim IID_IMarshal2 = [&h000001Cf, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 55 Interface IMarshal2 56 Inherits IMarshal 57 End Interface 58 59 /* interface IMalloc */ 60 /* [uuid][object][local] */ 54 61 55 62 Dim IID_IMalloc = [&h00000002, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID … … 69 76 End Interface 70 77 71 ' IMallocSpy 78 /* interface IMallocSpy */ 79 /* [uuid][object][local] */ 80 81 Dim IID_IMallocSpy = [&h0000001d, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 82 Interface IMallocSpy 83 Inherits IUnknown 84 85 Function PreAlloc( 86 /* [in] */ cbRequest As SIZE_T) As HRESULT 87 Function PostAlloc( 88 /* [in] */ pActual As VoidPtr) As VoidPtr 89 Function PreFree( 90 /* [in] */ pRequest As VoidPtr, 91 /* [in] */ fSpyed As BOOL) As VoidPtr 92 Sub PostFree( 93 /* [in] */ fSpyed As BOOL) 94 Function PreRealloc( 95 /* [in] */ pRequest As VoidPtr, 96 /* [in] */ cbRequestt As SIZE_T, 97 /* [out] */ ByRef ppNewRequest As VoidPtr, 98 /* [in] */ fSpyed As BOOL) As HRESULT 99 Function PostRealloc( 100 /* [in] */ pActual As VoidPtr, 101 /* [in] */ fSpyed As BOOL) As VoidPtr 102 Function PreGetSize( 103 /* [in] */ pRequest As VoidPtr, 104 /* [in] */ fSpyed As BOOL) As VoidPtr 105 Function PostGetSize( 106 /* [in] */ cbActual As SIZE_T, 107 /* [in] */ fSpyed As BOOL) As HRESULT 108 Function PreDidAlloc( 109 /* [in] */ pRequest As VoidPtr, 110 /* [in] */ fSpyed As BOOL) As VoidPtr 111 Function PostDidAlloc( 112 /* [in] */ pRequest As VoidPtr, 113 /* [in] */ fSpyed As BOOL, 114 /* [in] */ fActual As Long) As Long 115 Sub PreHeapMinimize() 116 Sub PostHeapMinimize() 117 End Interface 72 118 73 119 ' IStdMarshalInfo … … 77 123 Type MULTI_QI 78 124 pIID As * /*Const*/ IID 79 pItf As *IUnknown125 pItf As IUnknown 80 126 hr As HRESULT 81 127 End Type 82 128 83 129 Dim IID_IMultiQI = [&h00000020, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 84 85 130 Interface IMultiQI 86 131 Inherits IUnknown … … 95 140 ' IInternalUnknown 96 141 97 ' IEnumUnknown 142 /* interface IEnumUnknown */ 143 /* [unique][uuid][object] */ 144 145 Dim IID_IEnumUnknown = [&h00000100, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 146 Interface IEnumUnknown 147 Inherits IUnknown 148 149 /* [local] */ Function Next_( 150 /* [in] */ celt As DWord, 151 /* [out] */ rgelt As *IUnknown, 152 /* [out] */ ByRef celtFetched As DWord) As HRESULT 153 Function Skip( 154 /* [in] */ celt As DWord) As HRESULT 155 Function Reset() As HRESULT 156 Function Clone( 157 /* [out] */ ByRef enumUnk As IEnumUnknown) As HRESULT 158 End Interface 159 160 /* interface IBindCtx */ 161 /* [unique][uuid][object] */ 98 162 99 163 Type BIND_OPTS … … 146 210 /* [unique][in] */ punk As IUnknown) As HRESULT 147 211 Function ReleaseBoundObjects() As HRESULT 148 212 /* [local] */ Function SetBindOptions( 149 213 /* [in] */ ByRef bindopts As BIND_OPTS) As HRESULT 150 214 /* [local] */ Function GetBindOptions( 151 215 /* [out][in] */ ByRef bindopts As BIND_OPTS) As HRESULT 152 216 Function GetRunningObjectTable( … … 159 223 /* [out] */ ByRef unk As IUnknown) As HRESULT 160 224 Function EnumObjectParam( 161 225 /* [out] */ ByRef enumstr As IEnumString) As HRESULT 162 226 Function RevokeObjectParam( 163 227 /* [in] */ pszKey As LPOLESTR) As HRESULT 164 228 End Interface 165 229 166 ' IEnumMoniker 167 230 /* interface IEnumMoniker */ 231 /* [unique][uuid][object] */ 232 233 Dim IID_IEnumMoniker = [&h00000102, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 234 Interface IEnumMoniker 235 Inherits IUnknown 236 /* [local] */ Function Next_( 237 /* [in] */ celt As DWord, 238 /* [length_is][size_is][out] */ rgelt As *IMoniker, 239 /* [out] */ ByRef celtFetched As DWord) As HRESULT 240 Function Skip( 241 /* [in] */ celt As DWord) As HRESULT 242 Function Reset() As HRESULT 243 Function Clone( 244 /* [out] */ enumMon As IEnumMoniker) As HRESULT 245 End Interface 246 247 /* interface IRunningObjectTable */ 248 /* [uuid][object] */ 249 250 Dim IID_IRunningObjectTable = [&h00000010, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 168 251 Interface IRunningObjectTable 169 252 Inherits IUnknown 253 254 Function Register( 255 /* [in] */ grfFlags As DWord, 256 /* [unique][in] */ unkObject As IUnknown, 257 /* [unique][in] */ mkObjectName As IMoniker, 258 /* [out] */ ByRef dwRegister As DWord) As HRESULT 259 Function Revoke( 260 /* [in] */ dwRegister As DWord) As HRESULT 261 Function IsRunning( 262 /* [unique][in] */ mkObjectName As IMoniker) As HRESULT 263 Function GetObject( 264 /* [unique][in] */ mkObjectName As IMoniker, 265 /* [out] */ ByRef unkObject As IUnknown) As HRESULT 266 Function NoteChangeTime( 267 /* [in] */ dwRegister As DWord, 268 /* [in] */ ByRef filetime As FILETIME) As HRESULT 269 Function GetTimeOfLastChange( 270 /* [unique][in] */ mkObjectName As IMoniker, 271 /* [in] */ ByRef filetime As FILETIME) As HRESULT 272 Function EnumRunning( 273 /* [out] */ ByRef enumMoniker As IEnumMoniker) As HRESULT 170 274 End Interface 171 275 … … 186 290 Function Load( 187 291 /* [unique][in] */ Stm As IStream) As HRESULT 188 189 292 Function Save( 190 293 /* [unique][in] */ Stm As IStream, 191 294 /* [in] */ fClearDirty As BOOL) As HRESULT 192 193 295 Function GetSizeMax( 194 296 /* [out] */ ByRef cbSize As ULARGE_INTEGER) As HRESULT 195 297 End Interface 196 298 299 /* interface IMoniker */ 300 /* [unique][uuid][object] */ 301 302 Const Enum MKSYS 303 MKSYS_NONE = 0 304 MKSYS_GENERICCOMPOSITE = 1 305 MKSYS_FILEMONIKER = 2 306 MKSYS_ANTIMONIKER = 3 307 MKSYS_ITEMMONIKER = 4 308 MKSYS_POINTERMONIKER = 5 309 MKSYS_CLASSMONIKER = 7 310 MKSYS_OBJREFMONIKER = 8 311 MKSYS_SESSIONMONIKER = 9 312 MKSYS_LUAMONIKER = 10 313 End Enum 314 315 /* [v1_enum] */ Const Enum MKREDUCE 316 MKRREDUCE_ONE = (3 << 16) 317 MKRREDUCE_TOUSER = (2 << 16) 318 MKRREDUCE_THROUGHUSER = (1 << 16) 319 MKRREDUCE_ALL = 0 320 End Enum 321 322 Dim IID_IMoniker = [&h0000000f, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 197 323 Interface IMoniker 198 324 Inherits IPersistStream 199 End Interface 325 326 /* [local] */ Function BindToObject( 327 /* [unique][in] */ bc As IBindCtx, 328 /* [unique][in] */ mkToLeft As IMoniker, 329 /* [in] */ ByRef riidResult As IID, 330 /* [iid_is][out] */ ByRef Result As Any) As HRESULT 331 /* [local] */ Function BindToStorage( 332 /* [unique][in] */ bc As IBindCtx, 333 /* [unique][in] */ mkToLeft As IMoniker, 334 /* [in] */ ByRef riid As IID, 335 /* [iid_is][out] */ ByRef Obj As Any) As HRESULT 336 Function Reduce( 337 /* [unique][in] */ bc As IBindCtx, 338 /* [in] */ dwReduceHowFar As DWord, 339 /* [unique][out][in] */ ByRef mkToLeft As IMoniker, 340 /* [out] */ ByRef mkReduced As IMoniker) As HRESULT 341 Function ComposeWith( 342 /* [unique][in] */ ByRef mkRight As IMoniker, 343 /* [in] */ fOnlyIfNotGeneric As BOOL, 344 /* [out] */ ByRef mkComposite As IMoniker) As HRESULT 345 Function Enum_( 346 /* [in] */ fForward As BOOL, 347 /* [out] */ ByRef enumMoniker As IEnumMoniker) As HRESULT 348 Function IsEqual( 349 /* [unique][in] */ mkOtherMoniker As IMoniker) As HRESULT 350 Function Hash( 351 /* [out] */ ByRef dwHash As DWord) As HRESULT 352 Function IsRunning( 353 /* [unique][in] */ bc As IBindCtx, 354 /* [unique][in] */ mkToLeft As IMoniker, 355 /* [unique][in] */ mkNewlyRunning As IMoniker) As HRESULT 356 Function GetTimeOfLastChange( 357 /* [unique][in] */ bc As IBindCtx, 358 /* [unique][in] */ mkToLeft As IMoniker, 359 /* [out] */ ByRef FileTime As FILETIME) As HRESULT 360 Function Inverse( 361 /* [out] */ ByRef mk As IMoniker) As HRESULT 362 Function CommonPrefixWith( 363 /* [unique][in] */ mkOther As IMoniker, 364 /* [out] */ ByRef mkPrefix As IMoniker) As HRESULT 365 Function RelativePathTo( 366 /* [unique][in] */ mkOther As IMoniker, 367 /* [out] */ ByRef mkRelPath As IMoniker) As HRESULT 368 Function GetDisplayName( 369 /* [unique][in] */ bc As IBindCtx, 370 /* [unique][in] */ mkToLeft As IMoniker, 371 /* [out] */ ByRef pszDisplayName As LPOLESTR) As HRESULT 372 Function ParseDisplayName( 373 /* [unique][in] */ bc As IBindCtx, 374 /* [unique][in] */ mkToLeft As IMoniker, 375 /* [in] */ pszDisplayName As LPOLESTR, 376 /* [out] */ ByRef chEaten As DWord, 377 /* [out] */ ByRef mkOut As IMoniker) As HRESULT 378 Function IsSystemMoniker( 379 /* [out] */ ByRef dwMksys As DWord) As HRESULT 380 End Interface 381 382 /* interface IEnumString */ 383 /* [unique][uuid][object] */ 200 384 201 385 Dim IID_IEnumString = [&h00000101, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID … … 214 398 End Interface 215 399 400 /* interface ISequentialStream */ 401 /* [unique][uuid][object] */ 402 216 403 Dim IID_ISequentialStream = [&h0c733a30, &h2a1c, &h11ce, [&had, &he5, &h00, &haa, &h00, &h44, &h77, &h3d]] As IID 217 404 Interface ISequentialStream 218 405 Inherits IUnknown 219 406 220 Function Read(pv As VoidPtr, cb As DWord, ByRef cbRead As DWord) As HRESULT 221 Function Write(pv As VoidPtr, cb As DWord, ByRef cbWritten As DWord) As HRESULT 222 End Interface 407 Function Read( 408 /* [length_is][size_is][out] */ pv As VoidPtr, 409 /* [in] */ cb As DWord, 410 /* [out] */ ByRef cbRead As DWord) As HRESULT 411 Function Write( 412 /* [size_is][in] */ pv As VoidPtr, 413 /* [in] */ cb As DWord, 414 /* [out] */ ByRef cbWritten As DWord) As HRESULT 415 End Interface 416 417 /* interface IStream */ 418 /* [unique][uuid][object] */ 223 419 224 420 Type STATSTG … … 259 455 Inherits ISequentialStream 260 456 261 Function Seek(dlibMove As LARGE_INTEGER, dwOrigin As DWord, plibNewPosition As *ULARGE_INTEGER) As HRESULT 262 Function SetSize(libNewSize As ULARGE_INTEGER) As HRESULT 263 Function CopyTo(pstm As *IStream, cb As ULARGE_INTEGER, pcbRead As *ULARGE_INTEGER, pcbWritten As *ULARGE_INTEGER) As HRESULT 264 Function Commit(grfCommitFlags As DWord) As HRESULT 457 /* [local] */ Function Seek( 458 /* [in] */ dlibMove As LARGE_INTEGER, 459 /* [in] */ dwOrigin As DWord, 460 /* [out] */ plibNewPosition As *ULARGE_INTEGER) As HRESULT 461 Function SetSize( 462 /* [in] */ libNewSize As ULARGE_INTEGER) As HRESULT 463 /* [local] */ Function CopyTo( 464 /* [unique][in] */ stm As IStream, 465 /* [in] */ cb As ULARGE_INTEGER, 466 /* [out] */ pcbRead As *ULARGE_INTEGER, 467 /* [out] */ pcbWritten As *ULARGE_INTEGER) As HRESULT 468 Function Commit( 469 /* [in] */ grfCommitFlags As DWord) As HRESULT 265 470 Function Revert() As HRESULT 266 Function LockRegion(libOffset As ULARGE_INTEGER, cb As ULARGE_INTEGER, dwLockType As DWord) As HRESULT 267 Function UnlockRegion(libOffset As ULARGE_INTEGER, cb As ULARGE_INTEGER, dwLockType As DWord) As HRESULT 268 Function Stat(pstatstg As *STATSTG, grfStatFlag As DWord) As HRESULT 269 Function Clone(ByRef stm As IStream) As HRESULT 270 End Interface 471 Function LockRegion( 472 /* [in] */ libOffset As ULARGE_INTEGER, 473 /* [in] */ cb As ULARGE_INTEGER, 474 /* [in] */ dwLockType As DWord) As HRESULT 475 Function UnlockRegion( 476 /* [in] */ libOffset As ULARGE_INTEGER, 477 /* [in] */ cb As ULARGE_INTEGER, 478 /* [in] */ dwLockType As DWord) As HRESULT 479 Function Stat( 480 /* [out] */ pstatstg As *STATSTG, 481 /* [in] */ grfStatFlag As DWord) As HRESULT 482 Function Clone( 483 /* [out] */ ByRef stm As IStream) As HRESULT 484 End Interface 485 271 486 TypeDef LPSTREAM = *IStream 272 487 488 /* interface IEnumSTATSTG */ 489 /* [unique][uuid][object] */ 490 491 Dim IID_IEnumSTATSTG = [&h0000000d, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 273 492 Interface IEnumSTATSTG 274 493 Inherits IUnknown 275 End Interface 276 277 #ifndef __IStorage_INTERFACE_DEFINED__ 278 #define __IStorage_INTERFACE_DEFINED__ 494 495 /* [local] */ Function Next_( 496 /* [in] */ celt As DWord, 497 /* [length_is][size_is][out] */ rgelt As *STATSTG, 498 /* [out] */ ByRef celtFetched As DWord) As HRESULT 499 Function Skip( 500 /* [in] */ celt As DWord) As HRESULT 501 Function Reset() As HRESULT 502 Function Clone( 503 /* [out] */ ByRef enumStat As IEnumSTATSTG) As HRESULT 504 End Interface 279 505 280 506 /* interface IStorage */ … … 294 520 295 521 Dim IID_IStorage = [&h0000000b, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 296 297 522 Interface IStorage 298 523 Inherits IUnknown … … 361 586 End Interface 362 587 363 #endif /* __IStorage_INTERFACE_DEFINED__ */ 364 588 /* interface IPersistFile */ 589 /* [unique][uuid][object] */ 590 591 Dim IID_IPersistFile = [&h0000010b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 365 592 Interface IPersistFile 366 593 Inherits IPersist … … 379 606 End Interface 380 607 381 382 ' IPersistStrage 383 608 /* interface IPersistStorage */ 609 /* [unique][uuid][object] */ 610 611 Dim IID_IPersistStorage = [&h0000010a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 612 Interface IPersistStorage 613 Inherits IPersist 614 615 Function IsDirty() As HRESULT 616 Function InitNew( 617 /* [unique][in] */ Stg As IStorage) As HRESULT 618 Function Load( 619 /* [unique][in] */ Stg As IStorage) As HRESULT 620 Function Save( 621 /* [unique][in] */ StgSave As IStorage, 622 /* [in] */ fSameAsLoad As BOOL) As HRESULT 623 Function SaveCompleted( 624 /* [unique][in] */ StgNew As IStorage) As HRESULT 625 Function HandsOffStorage() As HRESULT 626 End Interface 627 628 /* interface ILockBytes */ 629 /* [unique][uuid][object] */ 630 631 Dim IID_ILockBytes = [&h0000000a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 384 632 Interface ILockBytes 385 633 Inherits IUnknown 634 635 /* [local] */ Function ReadAt( 636 /* [in] */ ulOffset As ULARGE_INTEGER, 637 /* [length_is][size_is][out] */ pv As VoidPtr, 638 /* [in] */ cb As DWord, 639 /* [out] */ ByRef cbRead As DWord) As HRESULT 640 /* [local] */ Function WriteAt( 641 /* [in] */ ulOffset As ULARGE_INTEGER, 642 /* [size_is][in] */ pv As VoidPtr, 643 /* [in] */ cb As DWord, 644 /* [out] */ ByRef cbWritten As DWord) As HRESULT 645 Function Flush() As HRESULT 646 Function SetSize( 647 /* [in] */ cb As ULARGE_INTEGER) As HRESULT 648 Function LockRegion( 649 /* [in] */ libOffset As ULARGE_INTEGER, 650 /* [in] */ cb As ULARGE_INTEGER, 651 /* [in] */ dwLockType As DWord) As HRESULT 652 Function UnlockRegion( 653 /* [in] */ libOffset As ULARGE_INTEGER, 654 /* [in] */ cb As ULARGE_INTEGER, 655 /* [in] */ dwLockType As DWord) As HRESULT 656 Function Stat( 657 /* [out] */ ByRef statstg As STATSTG, 658 /* [in] */ grfStatFlag As DWord) As HRESULT 386 659 End Interface 387 660 … … 415 688 End Interface 416 689 417 ' IRootStorage 690 /* interface IRootStorage */ 691 /* [unique][uuid][object] */ 692 693 Dim IID_IRootStorage = [&h00000012, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 694 Interface IRootStorage 695 Inherits IUnknown 696 697 Function SwitchToFile( 698 /* [in] */ pszFile As LPOLESTR) As HRESULT 699 End Interface 700 701 /* interface IAdviseSink */ 702 /* [unique][async_uuid][uuid][object] */ 418 703 419 704 Enum /*[transmit_as(long)]*/ TYMED … … 428 713 End Enum 429 714 430 Type STGMEDIUM 715 Type RemSTGMEDIUM 716 tymed As DWord 717 dwHandleType As DWord 718 pData As DWord 719 pUnkForRelease As DWord 720 cbData As DWord 721 data[ELM(1)] As Byte 722 End Type 723 724 /* [wire_marshal] */ Type STGMEDIUM 431 725 tymed As DWord 432 726 data As VoidPtr … … 445 739 End Type 446 740 741 Type GDI_OBJECT 742 ' ObjectType As DWord 743 ' /* [switch_type] */ u As Union 744 ' hBitmap As wireHBITMAP 745 ' hPalette As wireHPALETTE 746 ' hGeneric As wireHGLOBAL 747 ' End Union 748 End Type 749 750 Type userSTGMEDIUM 751 ' tymed As DWord 752 ' /* [switch_type] */ u As Union 753 ' /* Empty union arm */ 754 ' hMetaFilePict As wireHMETAFILEPICT 755 ' hHEnhMetaFile As wireHENHMETAFILE 756 ' hGdiHandle As *GDI_OBJECT 757 ' hGlobal As wireHGLOBAL 758 ' lpszFileName As LPOLESTR 759 ' pstm As *BYTE_BLOB 760 ' pstg As BYTE_BLOB 761 ' End Union 762 ' pUnkForRelease As IUnknown 763 End Type 764 765 TypeDef wireSTGMEDIUM = /* [unique] */ *userSTGMEDIUM 766 TypeDef ASYNC_STGMEDIUM = /* [unique] */ *userSTGMEDIUM 767 TypeDef wireSTGMEDIUM = /* [wire_marshal] */ STGMEDIUM 768 769 Type userFLAG_STGMEDIUM 770 ' ContextFlags As Long 771 ' fPassOwnership As Long 772 ' Stgmed As userSTGMEDIUM 773 End Type 774 775 TypeDef wireFLAG_STGMEDIUM = /* [unique] */ *userFLAG_STGMEDIUM 776 777 Type /* [wire_marshal] */ FLAG_STGMEDIUM 778 ContextFlags As Long 779 fPassOwnership As Long 780 Stgmed As STGMEDIUM 781 End Type 782 783 Dim IID_IAdviseSink = [&h0000010f, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 447 784 Interface IAdviseSink 448 785 Inherits IUnknown 786 787 /* [local] */ Sub OnDataChange( 788 /* [unique][in] */ ByRef Formatetc As FORMATETC, 789 /* [unique][in] */ ByRef Stgmed As STGMEDIUM) 790 /* [local] */ Sub OnViewChange( 791 /* [in] */ dwAspect As DWord, 792 /* [in] */ lindex As Long) 793 /* [local] */ Sub OnRename( 794 /* [in] */ mk As IMoniker) 795 /* [local] */ Sub OnSave() 796 /* [local] */ Sub OnClose() 449 797 End Interface 450 798 … … 455 803 ' AsyncIAdviseSink2 456 804 805 Dim IID_IDataObject = [&h0000010e, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 457 806 Interface IDataObject 458 807 Inherits IUnknown … … 524 873 525 874 Dim IID_IMessageFilter = [&h00000016, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 526 527 875 Interface IMessageFilter 528 876 Inherits IUnknown … … 533 881 /* [in] */ dwTickCount As DWord, 534 882 /* [in] */ lpInterfaceInfo As LPINTERFACEINFO) As DWord 535 536 883 Function RetryRejectedCall( 537 884 /* [in] */ htaskCallee As HTASK, 538 885 /* [in] */ dwTickCount As DWord, 539 886 /* [in] */ dwRejectType As DWord) As DWord 540 541 887 Function MessagePending( 542 888 /* [in] */ htaskCallee As HTASK, … … 653 999 ' IInitializeSpy 654 1000 655 #endif '_INC_OBJIDL1001 #endif '_INC_OBJIDL -
trunk/Include/ole2.ab
r300 r303 3 3 4 4 ' 暫定措置 5 6 Interface IPersistStorage7 Inherits IUnknown8 End Interface9 10 Interface IDropTarget11 Inherits IUnknown12 End Interface13 14 Interface IDropSource15 Inherits IUnknown16 End Interface17 18 Interface IOleInPlaceFrame19 Inherits IUnknown20 End Interface21 22 Interface IOleInPlaceActiveObject23 Inherits IUnknown24 End Interface25 26 Interface IOleAdviseHolder27 Inherits IUnknown28 End Interface29 30 Interface IEnumOLEVERB31 Inherits IUnknown32 End Interface33 5 34 6 #require <api_winerror.sbp> -
trunk/Include/oleidl.ab
r300 r303 1 1 'oleidl.ab 2 2 3 Const Enum OLERENDER 3 #require <objidl.sbp> 4 5 Dim IID_IOleAdviseHolder = [&h00000111, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 6 Interface IOleAdviseHolder 7 Inherits IUnknown 8 9 Function Advise( 10 /* [unique][in] */ Advise As IAdviseSink, 11 /* [out] */ ByRef dwConnection As DWord) As HRESULT 12 Function Unadvise( 13 /* [in] */ dwConnection As DWord) As HRESULT 14 Function EnumAdvise( 15 /* [out] */ ByRef enumAdvise As IEnumSTATDATA) As HRESULT 16 Function SendOnRename( 17 /* [unique][in] */ pmk As IMoniker) As HRESULT 18 Function SendOnSave() As HRESULT 19 Function SendOnClose() As HRESULT 20 End Interface 21 22 'IOleCache 23 'IOleCache2 24 'IOleCacheControl 25 26 /* interface IParseDisplayName */ 27 /* [unique][uuid][object] */ 28 29 Dim IID_IParseDisplayName = [&h0000011a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 30 31 Interface IParseDisplayName 32 Inherits IUnknown 33 34 Function ParseDisplayName( 35 /* [unique][in] */ bc As IBindCtx, 36 /* [in] */ pszDisplayName As LPOLESTR, 37 /* [out] */ ByRef chEaten As DWord, 38 /* [out] */ ByRef mkOut As IMoniker) As HRESULT 39 End Interface 40 41 /* interface IOleContainer */ 42 /* [unique][uuid][object] */ 43 44 Dim IID_IOleContainer = [&h0000011b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 45 Interface IOleContainer 46 Inherits IParseDisplayName 47 48 Function EnumObjects( 49 /* [in] */ grfFlags As DWord, 50 /* [out] */ ByRef enumUnk As IEnumUnknown) As HRESULT 51 Function LockContainer( 52 /* [in] */ fLock As BOOL) As HRESULT 53 End Interface 54 55 Const Enum OLERENDER 4 56 OLERENDER_NONE = 0 5 57 OLERENDER_DRAW = 1 6 58 OLERENDER_FORMAT = 2 7 OLERENDER_ASIS = 3 59 OLERENDER_ASIS = 3 8 60 End Enum 9 61 10 62 Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 11 Interface IOleClientSite 63 Interface IOleClientSite 12 64 Inherits IUnknown 13 65 … … 16 68 /* [in] */ dwAssign As DWord, 17 69 /* [in] */ dwWhichMoniker As DWord, 18 /* [out] */ ByRef pmk As *IMoniker) As HRESULT70 /* [out] */ ByRef mk As IMoniker) As HRESULT 19 71 Function GetContainer( 20 /* [out] */ ByRef pContainer As VoidPtr /* *IOleContainer*/) As HRESULT72 /* [out] */ ByRef Container As IOleContainer) As HRESULT 21 73 Function ShowObject() As HRESULT 22 74 Function OnShowWindow( … … 25 77 End Interface 26 78 79 /* interface IOleObject */ 80 /* [unique][uuid][object] */ 81 82 Const Enum OLEGETMONIKER 83 OLEGETMONIKER_ONLYIFTHERE = 1 84 OLEGETMONIKER_FORCEASSIGN = 2 85 OLEGETMONIKER_UNASSIGN = 3 86 OLEGETMONIKER_TEMPFORUSER = 4 87 End Enum 88 89 Const Enum OLEWHICHMK 90 OLEWHICHMK_CONTAINER = 1 91 OLEWHICHMK_OBJREL = 2 92 OLEWHICHMK_OBJFULL = 3 93 End Enum 94 95 Const Enum USERCLASSTYPE 96 USERCLASSTYPE_FULL = 1 97 USERCLASSTYPE_SHORT = 2 98 USERCLASSTYPE_APPNAME = 3 99 End Enum 100 101 Const Enum OLEMISC 102 OLEMISC_RECOMPOSEONRESIZE = &h1 103 OLEMISC_ONLYICONIC = &h2 104 OLEMISC_INSERTNOTREPLACE = &h4 105 OLEMISC_STATIC = &h8 106 OLEMISC_CANTLINKINSIDE = &h10 107 OLEMISC_CANLINKBYOLE1 = &h20 108 OLEMISC_ISLINKOBJECT = &h40 109 OLEMISC_INSIDEOUT = &h80 110 OLEMISC_ACTIVATEWHENVISIBLE = &h100 111 OLEMISC_RENDERINGISDEVICEINDEPENDENT = &h200 112 OLEMISC_INVISIBLEATRUNTIME = &h400 113 OLEMISC_ALWAYSRUN = &h800 114 OLEMISC_ACTSLIKEBUTTON = &h1000 115 OLEMISC_ACTSLIKELABEL = &h2000 116 OLEMISC_NOUIACTIVATE = &h4000 117 OLEMISC_ALIGNABLE = &h8000 118 OLEMISC_SIMPLEFRAME = &h10000 119 OLEMISC_SETCLIENTSITEFIRST = &h20000 120 OLEMISC_IMEMODE = &h40000 121 OLEMISC_IGNOREACTIVATEWHENVISIBLE = &h80000 122 OLEMISC_WANTSTOMENUMERGE = &h100000 123 OLEMISC_SUPPORTSMULTILEVELUNDO = &h200000 124 End Enum 125 126 Const Enum OLECLOSE 127 OLECLOSE_SAVEIFDIRTY = 0 128 OLECLOSE_NOSAVE = 1 129 OLECLOSE_PROMPTSAVE = 2 130 End Enum 131 27 132 Dim IID_IOleObject = [&h00000112, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 28 133 Interface IOleObject … … 30 135 31 136 Function SetClientSite( 32 /* [unique][in] */ pClientSite As IOleClientSite) As HRESULT137 /* [unique][in] */ ClientSite As IOleClientSite) As HRESULT 33 138 Function GetClientSite( 34 /* [out] */ ByRef pClientSite As *IOleClientSite) As HRESULT139 /* [out] */ ByRef ClientSite As IOleClientSite) As HRESULT 35 140 Function SetHostNames( 36 141 /* [in] */ szContainerApp As LPCOLESTR, 37 142 /* [unique][in] */ szContainerObj As LPCOLESTR) As HRESULT 38 143 Function Close( 39 /* [in] */ dwSaveOption As DWord) As HRESULT 144 /* [in] */ dwSaveOption As DWord) As HRESULT 40 145 Function SetMoniker( 41 146 /* [in] */ dwWhichMoniker As DWord, 42 /* [unique][in] */ pmk As *IMoniker) As HRESULT147 /* [unique][in] */ mk As IMoniker) As HRESULT 43 148 Function GetMoniker( 44 149 /* [in] */ dwAssign As DWord, 45 150 /* [in] */ dwWhichMoniker As DWord, 46 /* [out] */ ByRef pmk As *IMoniker) As HRESULT151 /* [out] */ ByRef mk As IMoniker) As HRESULT 47 152 Function InitFromData( 48 /* [unique][in] */ pDataObject As IDataObject,153 /* [unique][in] */ DataObject As IDataObject, 49 154 /* [in] */ fCreation As BOOL, 50 155 /* [in] */ dwReserved As DWord) As HRESULT 51 156 Function GetClipboardData( 52 157 /* [in] */ dwReserved As DWord, 53 /* [out] */ ByRef pDataObject As *IDataObject) As HRESULT158 /* [out] */ ByRef DataObject As IDataObject) As HRESULT 54 159 Function DoVerb( 55 160 /* [in] */ iVerb As Long, 56 161 /* [unique][in] */ lpmsg As *MSG, 57 /* [unique][in] */ pActiveSite As IOleClientSite,162 /* [unique][in] */ ActiveSite As IOleClientSite, 58 163 /* [in] */ lindex As Long, 59 164 /* [in] */ hwndParent As HWND, 60 165 /* [unique][in] */ lprcPosRect As *RECT /*LPCRECT*/) As HRESULT 61 166 Function EnumVerbs( 62 /* [out] */ ByRef pEnumOleVerb As *IUnknown /*IEnumOLEVERB*/) As HRESULT167 /* [out] */ ByRef EnumOleVerb As IUnknown /*IEnumOLEVERB*/) As HRESULT 63 168 Function Update() As HRESULT 64 169 Function IsUpToDate() As HRESULT … … 75 180 /* [out] */ ByRef sizel As SIZEL) As HRESULT 76 181 Function Advise( 77 /* [unique][in] */ pAdvSink As *IAdviseSink,182 /* [unique][in] */ AdvSink As IAdviseSink, 78 183 /* [out] */ ByRef dwConnection As DWord) As HRESULT 79 184 Function Unadvise( … … 87 192 /* [in] */ ByRef Logpal As LOGPALETTE) As HRESULT 88 193 End Interface 194 195 /* interface IOleWindow */ 196 /* [unique][uuid][object] */ 197 198 Dim IID_IOleWindow = [&h00000114, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 199 Interface IOleWindow 200 Inherits IUnknown 201 202 /* [input_sync] */ Function GetWindow( 203 /* [out] */ ByRef hwnd As HWND) As HRESULT 204 Function ContextSensitiveHelp( 205 /* [in] */ fEnterMode As BOOL) As HRESULT 206 End Interface 207 208 'IOleLink 209 'IOleItemContainer 210 'IOleInPlaceUIWindow 211 'IOleInPlaceActiveObject 212 Interface IOleInPlaceActiveObject 213 Inherits IOleWindow 214 End Interface 215 216 'IOleInPlaceFrame 217 Interface IOleInPlaceFrame 218 Inherits IOleWindow 219 End Interface 220 221 'IOleInPlaceObject 222 'IOleInPlaceSite 223 'IContinue 224 'IViewObject 225 'IViewObject2 226 227 /* interface IDropSource */ 228 /* [uuid][object][local] */ 229 230 Dim IID_IDropSource = [&h00000121, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 231 232 Interface IDropSource 233 Inherits IUnknown 234 235 Function QueryContinueDrag( 236 fEscapePressed As DWord, 237 grfKeyState As DWord) As HRESULT 238 Function GiveFeedback( 239 dwEffect As DWord) As HRESULT 240 End Interface 241 242 /* interface IDropTarget */ 243 /* [unique][uuid][object] */ 244 245 Const MK_ALT = &h20 246 247 Const DROPEFFECT_NONE = 0 248 Const DROPEFFECT_COPY = 1 249 Const DROPEFFECT_MOVE = 2 250 Const DROPEFFECT_LINK = 4 251 Const DROPEFFECT_SCROLL = &h80000000 252 253 Const DD_DEFSCROLLINSET = 11 254 Const DD_DEFSCROLLDELAY = 50 255 Const DD_DEFSCROLLINTERVAL = 50 256 Const DD_DEFDRAGDELAY = 200 257 Const DD_DEFDRAGMINDIST = 2 258 259 Dim IID_IDropTarget = [&h00000122, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 260 Interface IDropTarget 261 Inherits IUnknown 262 263 Function DragEnter( 264 /* [unique][in] */ DataObj As IDataObject, 265 /* [in] */ grfKeyState As DWord, 266 /* [in] */ x As Long, y As Long, 267 /* [out][in] */ ByRef effect As DWord) As HRESULT 268 Function DragOver( 269 /* [in] */ grfKeyState As DWord, 270 /* [in] */ x As Long, y As Long, 271 /* [out][in] */ ByRef effect As DWord) As HRESULT 272 Function DragLeave() As HRESULT 273 Function Drop( 274 /* [unique][in] */ DataObj As IDataObject, 275 /* [in] */ grfKeyState As DWord, 276 /* [in] */ x As Long, y As Long, 277 /* [out][in] */ ByRef effect As DWord) As HRESULT 278 End Interface 279 280 /* interface IDropSourceNotify */ 281 /* [unique][uuid][object][local] */ 282 283 Dim IID_IDropSourceNotify = [&h0000012B, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 284 Interface IDropSourceNotify 285 Inherits IUnknown 286 287 Function DragEnterTarget( 288 /* [in] */ hwndTarget As HWND) As HRESULT 289 Function DragLeaveTarget() As HRESULT 290 End Interface 291 292 /* interface IEnumOLEVERB */ 293 /* [unique][uuid][object] */ 294 295 Type OLEVERB 296 lVerb As Long 297 lpszVerbName As LPOLESTR 298 fuFlags As DWord 299 grfAttribs As DWord 300 End Type 301 302 /* [v1_enum] */ Const Enum OLEVERBATTRIB 303 OLEVERBATTRIB_NEVERDIRTIES = 1 304 OLEVERBATTRIB_ONCONTAINERMENU = 2 305 End Enum 306 307 Dim IID_IEnumOLEVERB = [&h00000104, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID 308 Interface IEnumOLEVERB 309 Inherits IUnknown 310 311 /* [local] */ Function Next_( 312 /* [in] */ celt As DWord, 313 /* [length_is][size_is][out] */ rgelt As *OLEVERB, 314 /* [out] */ ByRef celtFetched As DWord) As HRESULT 315 Function Skip( 316 /* [in] */ celt As DWord) As HRESULT 317 Function Reset() As HRESULT 318 Function Clone( 319 /* [out] */ ByRef enumOleVerb As IEnumOLEVERB) As HRESULT 320 End Interface -
trunk/Include/system/string.sbp
r272 r303 5 5 #define _INC_BASIC_STRING 6 6 7 #require <Classes/System/String.ab> 8 #require <Classes/System/Text/StringBuilder.ab> 9 7 10 Function StrPtr(s As String) As *StrChar 8 11 StrPtr = s.StrPtr 9 12 End Function 10 11 Function ZeroString(length As Long) As String 12 Return New String(0 As StrChar, length) 13 'StringBuilder版はClasses/System/Text/StringBuilder.abに定義されている 14 15 Function ZeroString(length As Long) As System.Text.StringBuilder 16 ZeroString = New System.Text.StringBuilder 17 ZeroString.Length = length 13 18 End Function 14 19 -
trunk/Include/windows.sbp
r300 r303 20 20 #require <api_system.sbp> 21 21 #require <api_window.sbp> 22 #require <api_commdlg.sbp>23 22 #require <api_gdi.sbp> 24 23 #require <api_shell.sbp> 25 #require <api_reg.sbp>26 24 #require <api_msg.sbp> 27 25 #require <api_windowstyles.sbp> … … 29 27 #require <api_console.sbp> 30 28 #require <winver.ab> 29 #require <api_reg.sbp> 30 31 #ifndef WIN32_LEAN_AND_MEAN 32 #require <api_mmsys.sbp> 33 #require <ole2.ab> 34 #require <api_commdlg.sbp> 35 #endif 36 37 #ifdef INC_OLE2 38 #require <ole2.ab> 39 #endif 40 41 #ifndef NOIME 42 #require <api_imm.sbp> 43 #endif 31 44 32 45 #endif '_INC_WINDOWS -
trunk/Include/wtypes.ab
r300 r303 451 451 452 452 TypeDef wireBSTR = /* [unique] */ *FLAGGED_WORD_BLOB 453 TypeDef BSTR = /* [wire_marshal] */ OLECHAR454 TypeDef LPBSTR = BSTR453 TypeDef BSTR = /* [wire_marshal] */ *OLECHAR 454 TypeDef LPBSTR = *BSTR 455 455 456 456 TypeDef VARIANT_BOOL = Integer
Note:
See TracChangeset
for help on using the changeset viewer.