Here ya go:
Graphics 800, 600, 16, 2
SetBuffer BackBuffer( )
HidePointer
Include "blitzui.bb"
;Load fonts and mouse cursors
;and collect information
Initialise( )
;Window
win001 = Window( 193, 79, 248, 232, "ColoRACK", "0", 1, 0, 1, 1 )
gn=CreateImage(32,32,1) ; creates the image to color
imgbox001 = ImageBox( 16, 28, 102, 114, gn, 1, 0, 1 )
lbl001 = Label( 13, 175, rval, 0 )
lbl002 = Label( 54, 175, gval, 0 )
lbl003 = Label( 94, 175, bval, 0 )
lbl004 = Label( 15, 160, "RED", 0 )
lbl005 = Label( 49, 160, "GREEN", 0 )
lbl006 = Label( 95, 160, "BLUE", 0 )
sld002 = Slider( 135, 32, 96, 29, 0.0, 0.0, 255.0, 0, 0, "4,1,0", "255,59,52" )
sld003 = Slider( 135, 103, 96, 29, 0.0, 0.0, 255.0, 0, 0, "0,1,4", "69,72,255" )
sld004 = Slider( 135, 68, 96, 29, 0.0, 0.0, 255.0, 0, 0, "1,4,3", "68,178,109" )
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
End Select
End Select
; ################################################################
; My problem initially is here... I just want to get teh value from the
; slider... NOPE
; IS IT JUST ME?
rval=SendMessage( sld002, "SM_GETVALUE" )
bval=SendMessage( sld003, "SM_GETVALUE" )
gval=SendMessage( sld004, "SM_GETVALUE" )
If SendMessage( lbl001, "LM_GETTEXT")<> rval
SendMessage( lbl001, "LM_SETTEXT", rval )
EndIf
SendMessage( lbl002, "LM_SETTEXT", gval )
SendMessage( lbl003, "LM_SETTEXT", bval )
Color rval,gval,bval
;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
|
