' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Nascondi_nella_statusbar

''hint into statusbar



$include "rapidq.inc"

$typecheck on

declare sub showhint(hint as string)

Create form as qform

                onhint=showhint

                create Button1 as QButton

                               Caption="Button1"

                               Hint="hint Button1"

                               Left=6

                               Top=6

                end create

                create Button2 as QButton

                               Caption="Button2"

                               Hint="hint button2" Left=6 Top=36 end create

                create Button3 as QButton

                               Caption="Button3"

                               Hint="hint button3"

                               Left=6

                               Top=66

                end create

                create Statusbar as QStatusbar

                               simplepanel=True

                end create

end create



form.showmodal



sub showhint(hint as string)

                statusbar.simpletext=hint

end sub



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb