; BLITZSYS DLL V1.05 - EXAMPLE #026
; Written by Rob Hutchinson 2002.
;
; This example shows you how to use the region commands along with the client
; area commands to cut out exactly the size of the drawable area in the window (client area).
; Apparently there is no way to change window styles once the window has been
; created, so if you wish to chop out the buttons and such, this is, probably,
; the only possible way.
;

; Include the DLL wrapper include..
Include "blitzsys.bb"

; This just checks to see if the DLL is available and correct version... (probably makes it resident too).
If DLLBlitzSysInitialise() < 105 Then RuntimeError("blitzsys.dll not found or incorrect version! You suck! :)")

Global hWnd = DLLFindBlitzRuntimeHwnd("BlitzSys Example #026")
DLLSetWindowZOrder(hWnd,HWND_NOTOPMOST)

Graphics 400,200,0,2
SetBuffer BackBuffer()

iMainRegion = DLLCreateRectRgn(DLLGetClientAreaX(hWnd),DLLGetClientAreaY(hWnd),DLLGetClientAreaWidth(hWnd),DLLGetClientAreaHeight(hWnd))
DLLSetWindowRgn(hWnd,iMainRegion,True)

txt$ = "DRAG ME AROUND... ESC TO QUIT"

Repeat
   Cls

   ; Cause a window drag when you hit the mouse button in the client area.
   If MouseHit(1) Then DLLSystemMoveWindow(hWnd)
   If MouseHit(2) Then DLLMessageBox("ARGH","Look at all that spinny crap... ")

   For a = 0 To 100
      Color Rnd(255),Rnd(255),Rnd(255)
      Line Rnd(GraphicsWidth()),Rnd(GraphicsHeight()),Rnd(GraphicsWidth()),Rnd(GraphicsHeight())
   Next
   
   Color 0,0,0
   Rect 0,0,StringWidth(txt$),StringHeight(txt$)
   Color Rnd(255),0,0
   Text 0,0,txt$
   Flip
Until KeyDown(1)

DLLDeleteObject(iMainRegion)                             ; Free the GDI region.
End

;
; BLITZSYS DLL V1.05 - EXAMPLE #026
; Written by Rob Hutchinson 2002.
;
; This example shows you how to use the region commands along with the client
; area commands to cut out exactly the size of the drawable area in the window (client area).
; Apparently there is no way to change window styles once the window has been
; created, so if you wish to chop out the buttons and such, this is, probably,
; the only possible way.
;

; Include the DLL wrapper include..
Include "blitzsys.bb"

; This just checks to see if the DLL is available and correct version... (probably makes it resident too).
If DLLBlitzSysInitialise() < 105 Then RuntimeError("blitzsys.dll not found or incorrect version! You suck! :)")

Global hWnd = DLLFindBlitzRuntimeHwnd("")
DLLSetWindowZOrder(hWnd,HWND_TOPMOST)

Graphics DLLDesktopWidth()+5,100,32,2
;Graphics3D 1280,1024,32,2
SetBuffer BackBuffer()

iMainRegion = DLLCreateRectRgn(DLLGetClientAreaX(hWnd),DLLGetClientAreaY(hWnd),DLLGetClientAreaWidth(hWnd),DLLGetClientAreaHeight(hWnd))
DLLSetWindowRgn(hWnd,iMainRegion,True)
x = DLLGetWindowX(hWnd)
y = DLLGetWindowY(hWnd)
w = DLLGetWindowWidth(hWnd)
h = DLLGetWindowHeight(hWnd)
DLLSetWindowPos(hWnd,HWND_TOPMOST,-5,-30,w,h)


Schrift = LoadImage("LOGO.bmp")
MidHandle Schrift


xx = (DLLDesktopWidth()+5)/2

Repeat
Cls
DrawImage Schrift,xx,40
Flip
Delay 100
Until KeyDown(1)

DLLDeleteObject(iMainRegion)                             ; Free the GDI region.
End