How i can know what item is selected, i have read the doc ! but ....
Graphics 640, 480, 16, 2
SetBuffer BackBuffer( )
HidePointer
Include "blitzui.bb"
;Load fonts and mouse cursors
;and collect information
Initialise( )
;Window
win001 = Window( 131, 104, 362, 242, "Configuration graphique", "0", 1, 0, 1, 1 )
btn001 = Button( 6, 188, 113, 21, "Appliquer", "0", 1, 0, 0 )
btn002 = Button( 236, 188, 113, 21, "Annuler", "0", 1, 0, 0 )
chk001 = CheckBox( 15, 35, "Plein ecran", 0 )
chk001_copy_copy = CheckBox( 15, 14, "Mode fenetre", 0 )
chk001_copy = CheckBox( 15, 61, "Activation du WBuffer (ATI)", 0 )
chk001_copy_copy = CheckBox( 15, 82, "Activation de l'antialiasing", 0 )
lst001 = ListBox( 184, 11, 165, 170, 20, 20, 10, 0 )
AddListBoxItem( lst001, 0, "640/480 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "640/480 en 32 bits", "" )
AddListBoxItem( lst001, 0, "800/600 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "800/600 en 32 Bits", "" )
AddListBoxItem( lst001, 0, "1024/768 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "1024/768 en 32 Bits", "" )
AddListBoxItem( lst001, 0, "1600/1200 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "1600/1200 en 32 Bits", "" )
Repeat
;Draw the GUI and update the mouse
UpdateGUI( )
;Event Handling
Select app\Event
Case EVENT_WINDOW
Select app\WindowEvent
End Select
Case EVENT_MENU
Select app\MenuEvent
End Select
Case EVENT_GADGET
Select app\GadgetEvent
Case btn002
Exit
Case lst001
End Select
End Select
;Draw the mouse
DrawMouse( )
;Reset all GUI events
ResetEvents( )
Flip
Cls
Until KeyHit( 1 ) Or app\Quit = True
;Free all images and controls created by BlitzUI
Destroy( )
End
Graphics 640, 480, 16, 2
SetBuffer BackBuffer( )
HidePointer
Include "blitzui.bb"
;Load fonts and mouse cursors
;and collect information
Initialise( )
;Window
win001 = Window( 131, 104, 362, 242, "Configuration graphique", "0", 1, 0, 1, 1 )
btn001 = Button( 6, 188, 113, 21, "Appliquer", "0", 1, 0, 0 )
btn002 = Button( 236, 188, 113, 21, "Annuler", "0", 1, 0, 0 )
chk001 = CheckBox( 15, 35, "Plein ecran", 0 )
chk001_copy_copy = CheckBox( 15, 14, "Mode fenetre", 0 )
chk001_copy = CheckBox( 15, 61, "Activation du WBuffer (ATI)", 0 )
chk001_copy_copy = CheckBox( 15, 82, "Activation de l'antialiasing", 0 )
lst001 = ListBox( 184, 11, 165, 170, 20, 20, 10, 0 )
AddListBoxItem( lst001, 0, "640/480 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "640/480 en 32 bits", "" )
AddListBoxItem( lst001, 0, "800/600 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "800/600 en 32 Bits", "" )
AddListBoxItem( lst001, 0, "1024/768 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "1024/768 en 32 Bits", "" )
AddListBoxItem( lst001, 0, "1600/1200 en 16 Bits", "" )
AddListBoxItem( lst001, 0, "1600/1200 en 32 Bits", "" )
Repeat
;Draw the GUI and update the mouse
UpdateGUI( )
;Event Handling
Select app\Event
Case EVENT_WINDOW
Select app\WindowEvent
End Select
Case EVENT_MENU
Select app\MenuEvent
End Select
Case EVENT_GADGET
Select app\GadgetEvent
Case btn002
Exit
Case lst001
End Select
End Select
;Draw the mouse
DrawMouse( )
;Reset all GUI events
ResetEvents( )
Flip
Cls
Until KeyHit( 1 ) Or app\Quit = True
;Free all images and controls created by BlitzUI
Destroy( )
End