ISProfileForm.FontColor

Description

This property returns the font colour of the specified form encoded as 32 bit integer value, where the first byte contains Red channel, the second byte - Green channel and the third byte - Blue channel.

Syntax

object.FontColor

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

Return Value

uint

Example

Display some information about the specified form, including its font colour in HEX format.

Dim aForm
Dim aFont
Dim aFormInfo

Set aForm = Profile.Form
set aFont = aForm.Font 

aFont.Size = 10
aForm.FontColor = 255

aFormInfo =_
  "ShortName: " & aForm.ShortName & vbNewLine &_
  "TypeName: " & aForm.TypeName & vbNewLine &_
  "Font Color: " & Hex(aForm.FontColor) & vbNewLine &_ 
  "Font Name: " & aFont.Name & vbNewLine &_
  "Font Size: " & aFont.Size               
  
Profile.MsgBox(aFormInfo)

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

This property has an effect for some form child controls with ParentColor = True. In Profile Client v8 on User Interface Font Color cannot be found.

Version information

Added in v7.8.0