FullScr: Visual Basic Version


'*****************************************************************************
'                                                                            *
'  FullScr.frm                                                               *
'                                                                            *
'  This is a version of the first Fastgraph for Windows example program      *
'  modified for use as a DirectDraw full screen application.                 *
'                                                                            *
'*****************************************************************************
Const vbWidth = 640
Const vbHeight = 480
Dim hPal As Long
Dim hVB As Long
Private Sub Form_Activate()
   Call fg_realize(hPal)
   Refresh
End Sub
Private Sub Form_Load()
   ScaleMode = 3
   Call fg_ddsetup(vbWidth, vbHeight, 8, FG_DX_BLIT)
   Call fg_setdc(hDC)
   hPal = fg_defpal()
   Call fg_realize(hPal)
   Visible = True
   Call fg_vbinit
   hVB = fg_vballoc(vbWidth, vbHeight)
   Call fg_vbopen(hVB)
   Call fg_vbcolors
   Call fg_setcolor(19)
   Call fg_fillpage
   Call fg_mouseini
   Call fg_mousevis(0)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyEscape Or KeyCode = vbKeyF12 Then Unload Me
End Sub
Private Sub Form_Paint()
   Call fg_vbpaste(0, vbWidth - 1, 0, vbHeight - 1, 0, vbHeight - 1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
   Call fg_mousevis(1)
   Call fg_vbclose
   Call fg_vbfree(hVB)
   Call fg_vbfin
End Sub

<< Prev

Next >>

Contents
Fastgraph Home Page

 

copyright 2001 Ted Gruber Software, Inc.