'===========================================================================
' Subject: About Menu Designer                Date: 06-18-01 (07:00)       
'  Author: Jordi Ramos                        Code: RapidQ                 
'  Origin: correodejordi@wanadoo.es         Packet: RAPIDQ.ABC
'===========================================================================
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