FatGUI

Blitz3D Forums/Blitz3D Programming/FatGUI

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Thanks Guys, and nice to see you on this thread Danjo.
Well, the zip file has been updated to let show you a Fat3DWindow demonstration:
http://www.kochonet.com/FatGUI/FatGUI-demo.zip

demo.bb:
Include "fatGUI.bb"
Graphics3D 800, 600, 16, 2
SetBuffer BackBuffer()

cam1 = CreateFatCamera() : PositionEntity cam1, 0, 2, -5 : RotateEntity cam1, 25, 0, 0
light = CreateLight(1) : PositionEntity light, -1, 10, - 4
cube = CreateCube()

FatInit()
win1 = CreateFatWindow("My first (modal) window", 10, 50, 320, 240)
SetFatStatusText(win1, "You'll need to close this one to access other Windows")
HideFatSizer(win1) : HideFatSysLock(win1) : HideFatSysMinimize(win1) : FatModal = win1
win2 = CreateFatWindow("My second (topmost) window", 60, 100, 320, 240)
SetFatTopmost(win2)
SetFatStatusText(win2, "This one will stay ontop of other windows")
win3 = CreateFatWindow("My third window", 110, 150, 320, 240)
SetFatWindowIcon(win3, 0)
SetFatStatusText(win3, "No system icon for this one")
win3d = CreateFat3DWindow("My 3D window", 160, 200, 320, 240, cam1)
SetFatStatusText(win3d, "Yes! a window capable of 3D displaying.")
ClsColorFat 64, 64, 64
fps_Init()
While Not KeyDown(1)
	Cls : TurnEntity cube, 0.5, 0.5, 0 : RenderWorld : FatUpdate() : fps_Update()
	Text 0, 0, "FPS: " + Str$(fps)
	Text 0, 15, "FatWidgetUnder: " + Str$(FatWidgetUnder) + " FatWidgetUnder_Class$: " + FatWidgetUnder_Class$
	Text 0, 30, "FatWidgetPushed: " + Str$(FatWidgetPushed) + " FatWidgetPushed_Class$: " + FatWidgetPushed_Class$
	Flip False
Wend


Now the windows can't go out of the screen when they are sized or draggeg.
You can verticaly resize windows by dragging Status Bars with the right button.

Thanks for feedback,
köchOn