2010-11-14 18:07

     DECLARE SUB cmdOK_Click (sender AS QBUTTON)
     DECLARE SUB lblmail_Click (sender AS QLABEL)
     DIM lblmailfont AS QFONT
     lblmailfont.COLOR = &Hff0000
     lblmailfont.AddStyles(0,2)

     CREATE frmAbout AS QFORM
      CAPTION = "About Menu Designer"
      Width = 391
      Height = 265
      DelBorderIcons = biMinimize
      DelBorderIcons = biMaximize
      BorderStyle = bsSingle
      Center
      CREATE imgIcon AS QIMAGE
       ICOHandle = MenuDesigner_ico
       Left = 16
       Top = 16
       Width = 32
       Height = 32
      END CREATE
      CREATE LblTitle AS QLABEL
       Top = 16
       Left = 70
       Width = 272
       Height = 32
       CAPTION = "Menu Designer for RapidQ in RapidQ" + CHR$(10) + "by Jordi Ramos 06/24/2k (First Version)"
      END CREATE
      CREATE LblVersion AS QLABEL
       Top = 52
       Left = 70
       Width = 272
       Height = 15
       CAPTION = "Version 1.5.0"
      END CREATE
      CREATE LblDescription AS QLABEL
       Top = 75
       Left = 70
       Width = 272
       Height = 78
       CAPTION = "This program is one tool for made your live more easy"
      END CREATE
      CREATE LblDescription1 AS QLABEL
       Top = 120
       Left = 17
       Width = 272
       Height = 78
       CAPTION = "I want to thank to all the people of the mail list," + cr +_
        "since this east program incorporates pieces_
                  the code of many of them." + cr +_
        "And in special to William Yu," + cr +_
        "without the program he would not exist"
      END CREATE
      CREATE lblDisclaimer AS QLABEL
       Top = 180
       Left = 17
       Width = 258
       Height = 55
       CAPTION = "This program is Freeware, you can use and abuse"+ CHR$(10) + CHR$(10) + "e-mail me:"
      END CREATE
      CREATE lblmail AS QLABEL
       Top = 206
       Left = 70
       Width = 258
       Height = 55
       Font = lblmailFont
       CAPTION = "correodejordi@wanadoo.es"
       onclick = lblmail_click
      END CREATE
      CREATE cmdOK AS QBUTTON
       Top = 200
       Left = 283
       Width = 97
       Height = 23
       CAPTION = "&OK"
       onClick = cmdOK_Click
      END CREATE

     END CREATE


     SUB cmdOK_Click (Sender AS QBUTTON)
      frmAbout.CLOSE
     END SUB

     SUB lblmail_Click (Sender AS QLABEL)
      sendemail
     END SUB

2010-11-14 18:07