Create Text using code

We want to show all the wpa actions nicely formatted in the editor.

To the event handler of a newly created button we add this code to create a table in the editor.

   // Now clear the text

   WPDLLInt1.Clear();

   // We need these interfaces for text creation

 IWPMemo Memo = WPDLLInt1.Memo;

 IWPTextCursor TextCursor = Memo.TextCursor;

 IWPAttrInterface AttrHelper = WPDLLInt1.AttrHelper;

 IWPParInterface CurrPar = Memo.CurrPar;

   // set all margins, do not change page size

   Memo.PageSize.SetPageWH(-1,-1,360,360,360,360);

   // We want to use 2 different character styles

   AttrHelper.Clear();

   AttrHelper.SetFontface("Verdana");

   AttrHelper.SetFontSize(11);

   AttrHelper.IncludeStyles(1); // bold

   int headerchars = AttrHelper.CharAttrIndex;

      AttrHelper.Clear();

   AttrHelper.SetFontface("Verdana");

   AttrHelper.SetFontSize(8);

   int bodychars = AttrHelper.CharAttrIndex;

   // and add a one row table 

   TextCursor.AddTable("WPA",3,1,true,0,false,false);

   // Now add one row after the other

   string n = "",c ="",h ="";

   for(int i=0; i<1000;i++)

     {

       if (!WPDLLInt1.Memo.wpaGetCaption(i,ref n, ref c, ref h)) break;

       TextCursor.CPMoveNextRow(true); // down and create

       TextCursor.CPTableColNr = 0;

       CurrPar.SetText(n, bodychars);

       TextCursor.CPTableColNr = 1;

       CurrPar.SetText(c, bodychars);

       TextCursor.CPTableColNr = 2;

       CurrPar.SetText(h, bodychars);

   }

   // add text to the header row

   TextCursor.CPTableRowNr = 0;

   TextCursor.CPTableColNr = 0;

   CurrPar.SetText("Name", headerchars);

   CurrPar.Alignment = 1;

   CurrPar.ParShading = 30;

   TextCursor.CPTableColNr = 1;

   CurrPar.SetText("Caption", headerchars);

   CurrPar.Alignment = 1;

   CurrPar.ParShading = 30;

   TextCursor.CPTableColNr = 2;

   CurrPar.SetText("Hint", headerchars);

   CurrPar.Alignment = 1;

   CurrPar.ParShading = 30;

   // and reformat

   Memo.Reformat();

This is the created table: