ISBevel.ParentFont

Description

This property is True if the specified bevel inherits the font from its parent control.

Syntax

object.ParentFont

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

Return Value

bool

Example

Display ParentFont for the specified bevel.

Dim aBevel
Dim aBevelInfo

Set aBevel = Form.Controls_("Bevel2")

set aFont = aBevel.Font
aBevelInfo =_
  "Caption: " & aBevel.Caption & vbNewLine &_
  "TypeName: " & aBevel.TypeName & vbNewLine &_   
  "Font Name: " & aFont.Name & vbNewLine &_
  "Font Size:" & aFont.Size & vbNewLine &_
  "Parent Font: " & aBevel.ParentFont
    
Profile.MsgBox(aBevelInfo)

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