Attribute VB_Name = "ABOUT"
'----------------------------------------------------------------------------------------
'
'   File:       ABOUT.BAS
'
'   Author:     Roberto Raso
'   Date:       27th March 1995
'
'----------------------------------------------------------------------------------------
'
'   Purpose:    Module for About window for an application.
'
'----------------------------------------------------------------------------------------

'----------------------------------------------------------------------------------------
'
'  Constant/Global declarations.
'
'----------------------------------------------------------------------------------------
Option Explicit

'----------------------------------------------------------------------------------------
'
'   Data type declarations.
'
'----------------------------------------------------------------------------------------

'---
'--- AboutInfo ---
'---
Type AboutInfo
    bUseDefs As Integer
    strDesc As String
    strVersion As String
    strCopyright As String
    strAppName As String
    strCaption As String
    strDate As String
End Type

'----------------------------------------------------------------------------------------
'
'   Function declarations.
'
'----------------------------------------------------------------------------------------

'----------------------------------------------------------------------------------------
'
'   Variable declarations.
'
'----------------------------------------------------------------------------------------
Dim frm As Form

'----------------------------------------------------------------------------------------
'
'   Process:    About
'
'   Author:     Roberto Raso
'   Date:       29th March 1995
'
'   Purpose:    Displays the About window for an application.
'
'   Parameters: frm is the Form that will be used for positioning and icons.
'               sAboutInfo holds information about the application.
'
'   Return:     Void.
'
'----------------------------------------------------------------------------------------
Sub ABOUTT(frmApp As Form, sAboutInfo As AboutInfo)
    Set frm = frmApp

    If sAboutInfo.bUseDefs Then
        Call AboutInfoDef(sAboutInfo)
    End If

    frmAbout.picAppIcon.Picture = frm.Icon
    frmAbout.lblDescription.Caption = sAboutInfo.strDesc
    frmAbout.lblVersion.Caption = sAboutInfo.strVersion
    frmAbout.Caption = "About " + sAboutInfo.strAppName
    frmAbout.lblDate.Caption = sAboutInfo.strDate
    frmAbout.lblAppName.Caption = sAboutInfo.strAppName
    frmAbout.lblCopyright.Caption = sAboutInfo.strCopyright
    '---------------------------------------------------
    '
    '   Standard settings
    '
    '---------------------------------------------------
    frmAbout.picTelephone.BackColor = frmAbout.BackColor
    frmAbout.picAppIcon.BackColor = frmAbout.BackColor
    Call Form_AutoPos(frm, frmAbout)
    Call SetWindowPos(CLng(frmAbout.hWnd), -1, 0, 0, 0, 0, &H2 + &H1)
    frmAbout.Show 1
End Sub

'----------------------------------------------------------------------------------------
'
'   Process:    AboutEnd
'
'   Author:     Roberto Raso
'   Date:       29th March 1995
'
'   Purpose:    Unloads the about box.
'
'   Parameters: frm is the Form that will be used for positioning and icons.
'               sAboutInfo holds information about the application.
'
'   Return:     Void.
'
'----------------------------------------------------------------------------------------
Sub AboutEnd()
    Unload frmAbout
End Sub

'----------------------------------------------------------------------------------------
'
'   Process:    AboutInfoDef
'
'   Author:     Roberto Raso
'   Date:       29th March 1995
'
'   Purpose:    Fills the AboutInfo structure with
'               default values for the application.
'
'   Parameters: None.
'
'   Return:     Void.
'
'----------------------------------------------------------------------------------------
Sub AboutInfoDef(sAboutInfo As AboutInfo)
    sAboutInfo.strDesc = App.Title
    sAboutInfo.strVersion = "V3.3.0"
    sAboutInfo.strCopyright = Format$(Now, "yyyy") + " Micromass"
    sAboutInfo.strAppName = App.Title
    sAboutInfo.strDate = Format$(FileDateTime(App.Path + "\" + App.EXEName + ".EXE"), "Long Date")
End Sub