//---------------------------------------------------------------------------
void SetNewPageFromDLL(AnsiString DLLName)
{
if (!FileExists(DLLName)) return;
TPageControl *myPages=FormSelected->PageControlSelected;
if (!Pages) CountPagesBefore=myPages->PageCount;
TForm *Form;
dllInstance = LoadLibrary(DLLName.c_str());
if (!Pages) Pages = new TList();
if (!dllInstances) dllInstances=new TList();
dllInstances->Add(dllInstance);
CreatePage = NULL;
CreatePage = (TCreate *)GetProcAddress(dllInstance, "_CreatePage");
GetTitlePage = (TGetTitle *)GetProcAddress(dllInstance, "_GetTitlePage");
if (CreatePage)
{
Form = CreatePage(myPages->PageCount,FormSelected);
Pages->Add(Form);
Form->ManualDock(myPages, NULL, alClient);
Form->Visible = true;
// myPages->ActivePageIndex = myPages->PageCount - 1;
}
if (GetTitlePage)
myPages->Pages[myPages->PageCount-1]->Caption=AnsiString(GetTitlePage());
}
ERTFToken PageInformation::Write (CRtfWriter* fp)
{
CRtfWriter_NestingCheck _cfp(fp);
//fp->fprintf( "\n" );
if( m_iWidth != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("pgwsxn", m_iWidth );
if( m_iHeight != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("pghsxn", m_iHeight );
if( m_iMarginLeft != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("marglsxn", m_iMarginLeft );
if( m_iMarginRight != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("margrsxn", m_iMarginRight );
if( m_iMarginTop != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("margtsxn", m_iMarginTop );
if( m_iMarginBottom != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("margbsxn", m_iMarginBottom );
if( m_iGutter != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("guttersxn", m_iGutter );
if( m_iHeaderY != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("headery", m_iHeaderY );
if( m_iFooterY != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("footery", m_iFooterY );
if (m_bPageNumberingSeen)
{
if( m_bContinuousNumbering ) fp->WriteTag("pgncont" ); else fp->WriteTag("pgnrestart" );
}
if( m_iFirstPageNumber > -1 ) fp->WriteTag("pgnstarts", m_iFirstPageNumber );
if( m_iPageNumberXOffset != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("pgnx", m_iPageNumberXOffset );
if( m_iPageNumberYOffset != UNSPECIFIED_SHORT_VALUE ) fp->WriteTag("pgny", m_iPageNumberYOffset );
if( m_iHeadingToShowWithPageNo > -1 ) fp->WriteTag("pgnhn", m_iHeadingToShowWithPageNo );
if( m_iTextFlow > -1 ) fp->WriteTag("stextflow", m_iTextFlow );
if( m_bSwitchMarginDefs ) fp->WriteTag("margmirsxn" );
if( m_bLandscape ) fp->WriteTag("lndscpsxn" );
if( GetTitlePage().IsTrue())
fp->WriteTag("titlepg" );
if (m_iSectLinePitch != UNSPECIFIED_SHORT_VALUE) fp->WriteTag("sectlinegrid", m_iSectLinePitch );
if( m_bLeftToRightCols ) fp->WriteTag("ltrsect" ); else fp->WriteTag("rtlsect" );
switch( m_Format )
{
case decimal:
fp->WriteTag("pgndec" );
break;
case uRoman:
fp->WriteTag("pgnucrm" );
break;
case lRoman:
fp->WriteTag("pgnlcrm" );
break;
case uAlpha:
fp->WriteTag("pgnucltr" );
break;
case lAlpha:
fp->WriteTag("pgnlcltr" );
break;
default:
;
}
switch( m_HeadingAndPageSeparator )
{
case hyphen:
fp->WriteTag("pgnhnsh" );
break;
case period:
fp->WriteTag("pgnhnsp" );
break;
case colon:
fp->WriteTag("pgnhnsc" );
break;
case emdash:
fp->WriteTag("pgnhnsm" );
break;
case endash:
fp->WriteTag("pgnhnsn" );
break;
default:
;
}
switch( m_Alignment )
{
case vTop:
fp->WriteTag("vertalt" );
break;
case vCentre:
fp->WriteTag("vertalc" );
break;
case vBottom:
fp->WriteTag("vertalb" );
break;
case vJustify:
fp->WriteTag("vertalj" );
break;
default:
;
}
the_PageBorders.Write( fp );
// fp->EndGroup();
return rtferr_OK;
}
