Code archives/BlitzPlus Gui/Win 3.11 style window

This code has been declared by its author to be Public Domain code.

Download source code

Win 3.11 style window by Nebula
(Posted 19 years ago)
Empty Windows 3.11 style window with minimize close and titlebar movement and no resizing.

One function call deals with the window. 
Global mywin
Global wintitle$	= "My window"
Global winx			= 100
Global winy			= 100
Global winwidth 	= 320
Global winheight 	= 200
Global myox,myoy
Global buttonmin
Global buttonclose
Global mytbar
Global mylock

makemywin
While myExit = False
	we = WaitEvent()
	mywin we
Wend
End

Function makemywin()
	mywin		= CreateWindow	(wintitle$	,winx,winy,winwidth,winheight,Desktop(),0)
	buttonmin  	=	CreateButton("--"		,GadgetWidth(mywin)-64,+1,32,16-2,mywin)
	buttonclose = 	CreateButton("X"		,GadgetWidth(mywin)-32,+1,32,16-2,mywin)
	mytbar		=	CreateCanvas(			0,0,GadgetWidth(mywin),16,mywin)	
	SetBuffer CanvasBuffer(mytbar)
	ClsColor 0,0,200
	Cls
	Color 255,255,255
	Text 10,2,wintitle$
	FlipCanvas mytbar	
End Function

Function mywin(action)
	Select action
		Case $401 ; button
			If EventSource() = buttonmin Then MinimizeWindow(mywin)
			If EventSource() = buttonclose Then End
		Case $201 ; mousedown
			If EventSource() = mytbar
				mylock = True
				myox = EventX()
				myoy = EventY()
			End If
		Case $202 ; mouseup
			If EventSource() = mytbar
				mylock = False
			End If
		Case $203 ; mousemove
			If EventSource() = mytbar
				If mylock = True Then
					SetGadgetShape mywin,MouseX()-myox,MouseY()-myoy,ClientWidth(mywin),ClientHeight(mywin)
				End If
			End If
		Case $206;mouseleave
			If EventSource() = mytbar
				mylock=False
			End If
	End Select
End Function