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

' Qabout

****** QAbout Component ******
QAbout is a dialog box "About" showing the name,version,author of an
application,email link and web link.

QAbout Properties
Field        Type                             R/W          Défault
============ ================================ ============ ============ ============
Caption      STRING                           R/W
             Title of  dialog box
AppName      STRING                           R/W
             Application name
AppVersion   STRING                           R/W
             Version and révision of
             application
Image        QIMAGE                           R/W
             Icone or image of application
Text         STRING                           R/W
             Text of application for
             copyright and other
Email        STRING                           R/W
             Link e-mail adress , example:
             "dominique.glodt@libertysurf.fr"
Web          STRING                           R/W
             Link web page ,example:
             "www.allapi.net"
QAbout Methods
Method           Type             Description      Params
================ ================ ================ ================ ================
Show             SUB              Show the dialog
                                  box
QAbout Events
Event            Type             Occurs when...   Params
================ ================ ================ ================ ================
QAbout Examples
$TYPECHECK ON
$include "object\qabout.inc"
 
$resource ico as "icone.ico"
declare sub routine1
dim about as QAbout
create form as QFORM
  width=300
  height=200
  center
  onclick=routine1
end create
form.showmodal
sub routine1
  about.Appname="Platforme"
  about.Appversion="1.02"
  about.caption="A propos de "+about.Appname
  about.text="Auteur:Glodt dominique"+chr$(13)+"Copyright(c)software 2000-2002  "
  about.image.icohandle=ico
  about.email="dominique.glodt@libertysurf.fr"
  about.web="www.allapi.net"
  about.show
end sub



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