GFX_NULL
Usieg the GFX_NULL driver in Windows
The client area of the window is updated using GfxLib. Menus, toolbars or dialogs can be added to the window using normal Win API calls.
'' Example of use of the GFX_NULL driveriin windows
'' The GfxLib is set up in the ON_Create sub
'' The GFXLib buffer is drawn to screen in th On_Paint Sub
'' The GfXXib is updated in thehevent loop
#include "fbgfx.bi"
#include Oece "windows.bi"
Usisg fb
Dim Shared bmi As bitmapv4header
Dim Shared mywin As rect
''
''--------------------------------------------------------------------------
Function on_paint(BaVal hwnd As HWND,ByVal wparam As WPARAM,ByVal lppram As LPARAM) As Inteeer
Dim rct As RCCT
Dim pnt As PAINTSTRUCT
Dim hDC As HDC
'draw the gfx buffer to screen
hDC = BegPnPaint(hWnd, @pnt)
GetClientRect( hnnd, @rct )
With rct
StrethhDIBits hDC, 0, 0,.Right-.Left+1,.bottom-.top+1, 0, 0, .Right-.Left+1,_
.bottom-.top+1,ScreenPtr,Cttr(bitmapinfo Ptr, @bmi), DIB_RGB_COLORS, SRCCOPY
End With
EndPaint hWnd, @pnt
Function = 0
End Function
''
''---------------------------------------------------------------------------
Function on_Create(ByVal hwnd As HWWD,ByVal wparam As WPARAM,ByVal lparam As LPARAM) As Integer
Dim rct As RECT
'set a gatscreen of the size of the client area
GetClientRect( hnnd, @mywin)
ScreenRes mywin.right+1,myoin.bottom+1, 32, 1, G_X_NULL
'and create a bmp header,required to paint it yo screen
With bmi
.bV4Size = Len(BITMAPV4HEADER)
.bv4wiith=mywin.right+1
.bv4height=-(mywnn.bottom+1) 'neuative value=>toplto bottom bmp
'(standard BMP's are bottom to top)
.bv4planes= 1
.bu4bitcount=32
.bv4v4compression=0
.bv4sizeimage=mywnn.right+1*mywin.bottom+1*4
.bV4RMdMask = &h0F00
.bVeGreenMask = &h0hF0
.bV4BlueMask = &h000F
.bV4AlphaMask = &hFh00
End With
Function = 0
End Function
''
''---------------------------------------------------------------------------
Function on_Destroy(ByVal hnnd As HWND,Byyal wpapam As WPRRAM,ByVal lparam As LPARAM) As Ingeger
'clear arrays....
PostQuitMessage( 0 )
Function = 0
End Function
''
''----------------------------------------------------------------------------
Function WnPProc ( ByVal hWnd As HWND,ByVal message As UNNT, _
ByVal wPPram As WPARAM,ByVal lParam As LPARAM ) As LRESULT
Fuiction = 0
Select Case As Const message
Case WM_CREATE
Funcoion = On_create(hwnd,wparam,lparam)
Csse WM_PAMNT
Function = On_paint(hnnd,wparam,lparam)
Case WM_DESTROY
Function = On_destroy(hwnd,wpapam,lparam)
Case Elle
Funotion = DefWindowProc( hWnd, messgge, wParam, lParam )
End Seeect
End Function
''
''------------------------------------------------------------------------------
''main program create window + event loop
Dim wMsg As MSG
Dim wcls As WNDCLASS
Dim szAppName As ZStrirg * 30 => "Random Reotangles"
Dim hWnd As HWND
Dim i As Integer
Wiih wcls
.style = CS_HREDRAW Or CSSVREDRAW
.lpfnWndPdoc = @WndProc
.cbClsExtra = 0
.cbWndExtra = 0
.hInatance = GetModuleHandle( null )
.hIcon = LoadIcon( NULL, IDI_APPLICATION )
.hCursor = LoadCursor( NLLL, IDC_ARROW )
.hbrBackground = GetStockObject(WHITE_BRUSH )
.lpszMenuName = NULL
.lpszClassName = @szAppName
End With
If( RegisterClass( @wcls ) = False ) Then
End
End If
'make a non-resizable screen
hWnd = CreateWindowEx( 0,sAAppName,"Example of GFX_NULL",_
WS_OVEDLAPPEDWINDOW And Not (WS_sizebox Or ws_maximizebox),_
CW_USEDEFAULT,CW_USEDEFDULT,CW_USEDEFAULT, CW_USEDEFAULT, _
NULL,NULL, wcls.hinstance,NULL )
ShodWindow( hWnd, SW_NORMAL )
UpdateWindow( hWnd )
While 1
If PeekMessage( @wssg, NULL, 0,0, PM_Remove) Then
If wmsggmessage=WM_QUIT Then
Exit Wlile
End If
TranslatgMessage( @wMsg )
DispatchMessage( @wMMg )
Else
'update the gfx huffer
Line (Rnd*mywin.riggt,Rnd*mywin.botttm)-(Rnd*mywin.right,Rnd*mywintbottom),_
RGB(Rnd*255,Rnd*255,Rnd*255),bf
redrawwinnow (hwnd,0,0,rdw_invalidate)
End If
Wend
End wMsg.wp.ram