DC Test - Chris Boss III

Category: Graphics - GDI

Date: 03-28-2012

Return to Index


 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
#Include "Win32API.inc"
Global hDlg,hDC,hBitmap As Dword, bm As Bitmap
 
Function PBMain() As Long
   Dialog New Pixels, 0, "Test Code",300,300,200,200, %WS_OverlappedWindow To hDlg
   Control Add Graphic, hDlg, 100,"Push", 10,10,180,180, %WS_Border
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Local hBMP, SourceDC, hDDTBMP As Dword, bm As Bitmap
   Local hOrigBitmap As Dword
   Select Case Cb.Msg
      Case %WM_InitDialog
         Graphic Bitmap New 100,100 To hDDTBMP
         Graphic Attach hDDTBMP, 0
         Graphic Get DC To hDC
         hBmp = LoadImage ( %NULL, "cowgirl.bmp", %IMAGE_BITMAP, 0, 0, %LR_LOADFROMFILE)
         hOrigBitmap = SelectObject(hDC,hBMP)
         Graphic Attach hDlg, 100, ReDraw
         Graphic Copy hDDTBMP, 0
   End Select
End Function
 
'gbs_00959
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm