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
|