ISProfileForm.ParentFont

Description

This property is True if the form uses the application default font.

Syntax

object.ParentFont

Part	Attribute	Type	Description
`object`	Required	ISProfileForm	The `object` always implements the ISProfileForm interface

Return Value

bool

Example

Display ParentFont for the form.

Dim aForm
Dim aFormInfo
Dim aFont

Set aForm = Profile.Form
set aFont = aForm.Font
aFormInfo =_
  "Short Name: " & aForm.ShortName & vbNewLine &_
  "TypeName: " & aForm.TypeName & vbNewLine &_   
  "Font Name: " & aFont.Name & vbNewLine &_
  "Font Size: " & aFont.Size & vbNewLine &_
  "Parent Font: " & aForm.ParentFont
    
Profile.MsgBox(aFormInfo)

Note: This macro should be executed in any event handler of the form control.

In Profile Client v8 on User Interface Parent Font cannot be found.

Version information

Added in v7.8.0