SuperStrict
Framework brl.blitz
Import brl.glmax2d
Import thunder.thundergui

SetGraphicsDriver GLMax2DDriver()
Graphics 640,480
Local win0% = tgCreateWindow( "Testfenster" , 100 , 100 , 100 , 50 )
Local win1% = tgCreateWindow( "Einloggen" , 10 , 10 , 320 , 80 )
'Erstelle ein Fenster mit dem Titel "Einloggen" auf den Koordinaten (10,10) mit
'einer Breite von 300 und einer Höhe von 80

Local userfeld% = tgCreateTextField( 90 , 10 , 120 , 20 , win1 , 0 , 40 )
'Erstelle ein Textfeld an den Koordinagen (90,10) mit Breite 120 und Höhe 20
'auf dem Fenster win1. Der Text soll angezeigt werden und es dürfen maximal 40 Zeichen
'eingegeben werden

Local passfeld% = tgCreateTextField( 90 , 35 , 120 , 20 , win1 , 1 , 40 )
'Erstelle ein Textfeld an den Koordinagen (90,35) mit Breite 120 und Höhe 20
'auf dem Fenster win1. Statt dem Text sollen Sterne angezeigt werden und es dürfen 
'maximal 40 Zeichen eingegeben werden


Local prog% = tgCreateProgBar( 10 , 60 , 305 , 15 , win1 )
tgCreateLabel( "Username:" , 10 , 10 , 75 , 20 , win1 )
tgCreateLabel( "Password:" , 10 , 35 , 75 , 20 , win1 )

Local loginbutton% = tgCreateButton( "Login" , 215 , 10 , 100 , 20 , win1 )
Local anzeigen% = tgCreateCheckBox( "anzeigen?" , 215 , 35 , 100 , 20 , win1 )
Local login:Byte=0

Local LastID%
Local LastSource%
Repeat
	Cls
	If tgEventID = TG_GADGETACTION And tgEventSource = loginbutton Then login=1
	If tgEventID = TG_GADGETACTION And tgEventSource = anzeigen Then
		SetGadgetFlag(passfeld,1-tgButtonState(anzeigen))
	EndIf
	If login=1 Then tgUpdateProgbar( prog , tgProgBarValue( prog ) +1 )
	'UpdateProgBar verlangt die ProgBar und eine Zahl von 0 bis 100, die den Status
	'angibt. (  0 - 100%  )
	SetColor 255,255,255
	If tgEventID<>0 Then LastID=tgEventID;LastSource=tgEventSource
	DrawText "Last Event: $"+Right(Hex(LastID),3),0,0
	DrawText "EventSource: $"+Hex(LastSource),0,20
	DrawText "Windows: "+tgEnumWindows(),0,40
	UpdateGUI()
	Flip
Until KeyHit( KEY_ESCAPE )
End