home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Basic / GridOne / setup.EXE / MODGDI.BAS < prev    next >
Encoding:
BASIC Source File  |  2001-09-09  |  1.2 KB  |  31 lines
  1. Attribute VB_Name = "modGDI"
  2. Option Explicit
  3.  
  4. Public Type RECT
  5.     Left As Long
  6.     Top As Long
  7.     Right As Long
  8.     Bottom As Long
  9. End Type
  10.  
  11. Public Const DT_CENTER = &H1
  12. Public Const DT_VCENTER = &H4
  13. Public Const DT_SINGLELINE = &H20
  14. Public Const OPAQUE = 2
  15. Public Const TRANSPARENT = 1
  16.  
  17.  
  18. Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
  19. Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  20. Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  21. Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  22. Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  23. Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
  24. Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, _
  25.                                                           ByVal nCount As Long, lpRect As RECT, _
  26.                                                           ByVal wFormat As Long) As Long
  27. Public Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  28.  
  29.  
  30.  
  31.