SftOptions.ModifiedFont Property	Softel vdm, Inc.

Defines the font for modified entries.

Syntax       

	Get
		VB.NET	refFontObj = object.ModifiedFont  As System.Drawing.Font refFontObj = object.ModifiedFont  As stdole.IFontDisp  Note
		VB	Set refFontObj = object.ModifiedFont  As IFontDisp
		C#.NET	System.Drawing.Font refFontObj = object.ModifiedFont; stdole.IFontDisp refFontObj = object.ModifiedFont;  Note
		VC++	IFontDisp* refFontObj = object->GetModifiedFont();
		C	HRESULT object->get_ModifiedFont(IFontDisp** refFontObj);
		Delphi	refFontObj := object.ModifiedFont  : TFont; refFontObj := object.ModifiedFont  : IFontDisp;  Note
	Put
		VB.NET	object.let_ModifiedFont(ByVal refFontObj As stdole.IFontDisp)  Note
		VB	object.ModifiedFont = refFontObj  As IFontDisp
		C#.NET	void object.let_ModifiedFont(stdole.IFontDisp refFontObj);  Note
		VC++	void object->PutModifiedFont(IFontDisp* refFontObj);
		C	HRESULT object->put_ModifiedFont(IFontDisp* refFontObj);
		Delphi	procedure object._Set_ModifiedFont(refFontObj : IFontDisp);  Note
	PutRef
		VB.NET	object.ModifiedFont = refFontObj  As System.Drawing.Font object.ModifiedFont = refFontObj  As stdole.IFontDisp  Note
		VB	Set object.ModifiedFont = refFontObj  As IFontDisp
		C#.NET	System.Drawing.Font object.ModifiedFont = refFontObj; stdole.IFontDisp object.ModifiedFont = refFontObj;  Note
		VC++	void object->PutRefModifiedFont(IFontDisp* refFontObj);
		C	HRESULT object->putref_ModifiedFont(IFontDisp* refFontObj);
		Delphi	object.ModifiedFont := refFontObj  : TFont; object.ModifiedFont := refFontObj  : IFontDisp;  Note

object

A SftOptions object.

refFontObj

Defines the font for modified entries.

Comments

The ModifiedFont property defines the font for modified entries.

If an entry has been modified by the end-user and the new settings have not yet been saved (using SftOptions.Save), the entry uses the ModifiedFont property instead of the default Font property.

Dim NormalFont As New Font("Times New Roman", 10, FontStyle.Regular)
AxSftOptions1.Font = NormalFont
Dim ModifiedFont As New Font(NormalFont, FontStyle.Bold)
AxSftOptions1.ModifiedFont = ModifiedFont
AxSftOptions1.Add("", "Topic1", "Sample Topic", SftOptionsEntryConstants.entrySftOptionsTopic, "", "", Nothing, "", "", "", "")
AxSftOptions1.Add("Topic1", "Cb1", "Check Box 1", SftOptionsEntryConstants.entrySftOptionsCheckBox, "", "", Nothing, "", "", "", "")
AxSftOptions1.Add("Topic1", "Cb2", "Check Box 2", SftOptionsEntryConstants.entrySftOptionsCheckBox, "", "", Nothing, "", "", "", "")
AxSftOptions1.Add("Topic1", "Cb3", "Check Box 3", SftOptionsEntryConstants.entrySftOptionsCheckBox, "", "", Nothing, "", "", "", "")
AxSftOptions1.InitializationComplete()

SftOptions1.Font.Name = "Times New Roman"
SftOptions1.Font.Size = 10
SftOptions1.ModifiedFont = SftOptions1.Font  ' make a copy of the font (don't use Set)
SftOptions1.ModifiedFont.Bold = True
SftOptions1.Add "", "Topic1", "Sample Topic", entrySftOptionsTopic, "", "", Nothing, "", "", "", ""
SftOptions1.Add "Topic1", "Cb1", "Check Box 1", entrySftOptionsCheckBox, "", "", Nothing, "", "", "", ""
SftOptions1.Add "Topic1", "Cb2", "Check Box 2", entrySftOptionsCheckBox, "", "", Nothing, "", "", "", ""
SftOptions1.Add "Topic1", "Cb3", "Check Box 3", entrySftOptionsCheckBox, "", "", Nothing, "", "", "", ""
SftOptions1.InitializationComplete

Font NormalFont = new Font("Times New Roman", 10, FontStyle.Regular);
axSftOptions1.Font = NormalFont;
Font ModifiedFont = new Font(NormalFont, FontStyle.Bold);
axSftOptions1.ModifiedFont = ModifiedFont;
axSftOptions1.Add("", "Topic1", "Sample Topic", SftOptionsEntryConstants.entrySftOptionsTopic, "", "", null, "", "", "", "");
axSftOptions1.Add("Topic1", "Cb1", "Check Box 1", SftOptionsEntryConstants.entrySftOptionsCheckBox, "", "", null, "", "", "", "");
axSftOptions1.Add("Topic1", "Cb2", "Check Box 2", SftOptionsEntryConstants.entrySftOptionsCheckBox, "", "", null, "", "", "", "");
axSftOptions1.Add("Topic1", "Cb3", "Check Box 3", SftOptionsEntryConstants.entrySftOptionsCheckBox, "", "", null, "", "", "", "");
axSftOptions1.InitializationComplete();

ISftOptionsPtr vOptions1 = m_Options1.GetControlUnknown();
vOptions1->Add(_bstr_t(""), _bstr_t("Topic1"), _bstr_t("Sample Topic"), 
    entrySftOptionsTopic, _bstr_t(""), _bstr_t(""), NULL,
    _bstr_t(""), _bstr_t(""), _bstr_t(""), _bstr_t(""));
IFontDispPtr pFontDisp = vOptions1->GetFont();
IFontPtr pFont = pFontDisp;
pFont->put_Name(L"Times New Roman");
pFont->put_Italic(TRUE);
CY size;
size.int64 = 12*10000L; //12 point font
pFont->put_Size(size);
vOptions1->InitializationComplete();

SftOptions1.Font.Name := 'Times New Roman';
SftOptions1.Font.Size := 10;
SftOptions1.ModifiedFont.Name := 'Times New Roman';
SftOptions1.ModifiedFont.Size := 10;
SftOptions1.ModifiedFont.Style := [ fsBold ];
SftOptions1.Add('', 'Topic1', 'Sample Topic', entrySftOptionsTopic, '', '', nil, '', '', '', '');
SftOptions1.Add('Topic1', 'Cb1', 'Check Box 1', entrySftOptionsCheckBox, '', '', nil, '', '', '', '');
SftOptions1.Add('Topic1', 'Cb2', 'Check Box 2', entrySftOptionsCheckBox, '', '', nil, '', '', '', '');
SftOptions1.Add('Topic1', 'Cb3', 'Check Box 3', entrySftOptionsCheckBox, '', '', nil, '', '', '', '');
SftOptions1.InitializationComplete();

See Also  SftOptions Object | Object Hierarchy