Mergfield font and size

Stef Merlijn

Hi,

When I insert a mergefield the mergefield has font=Arial + fontsize=655, regardless of the current font+size under the cursor.

Is there a way to make sure the mergefield get the currently active font+size (where the cursor currently is placed in the document)?

Code

WPRichText.InputMergeField(lbVeldenLijst.Items[lbVeldenLijst.ItemIndex], lbVeldenLijst.Items[lbVeldenLijst.ItemIndex]);

In OnShow-event of the form:

Code

WPLocalizeLoadForms := TRUE;
  WPTools_LoadVCLStrings;
  WPTools_LoadActionStrings;
  mbLettertype.Items := Screen.Fonts;
  WPRichText.DefaultAttr.Clear;
  WPRichText.DefaultAttr.SetFontName('Arial');
  WPRichText.DefaultAttr.SetFontSize(10);
  WPRichText.WritingAttr.Clear;
  WPRichText.WriteObjectMode  := wobRTF;

support

Hi,

WPRichText.WritingAttr should be updated when *the user* moves the cursor.

If the cursor is moved by program code You can force the update using method GetCharAttr.

Julian

Stef Merlijn

Well the cursor isn't moved at the moment the mergefield is added.

Let's say that at the current cursor position the font=tahoma. Whenever a mergefield is added it is added as Arial with size 655.

Any idea what might influence this behaviour?

support

Hi,

I have never seen this behavior. But your WritingAttr is clear, You should set the size here, too.

Did you try InputString?

And please get V6.20 - its nice.

Julian

Stef Merlijn

Hi,

I've installed version 6.20, but the problem remains.
Below is my code I use to insert data into the editor. I seems everything is added with Arial 655.

What could cause this?

Code

procedure TFMailings.InvoegenVelden(Invoercode : Integer);
var TempInputString, TempImageFile : String;
    par          : TParagraph;
    txtplain     : Cardinal;
    txtobj       : TWPTextObj;
    ImageObject  : TWPObject;
begin
  MailingEditor.WritingAttr.Clear;
  MailingEditor.WritingAttr.SetFontName('Arial');
  MailingEditor.WritingAttr.SetFontSize(1000);  // 10pt
  txtplain := MailingEditor.WritingAttr.CharAttr;
  Case Invoercode of
    0 : begin
          if lbVeldenLijst.ItemIndex < 0 then
            MyMessageDlg(Format(wzzMessageInformatie
                               , [ConstantP])
                        , wzzMailingsGeenSamenvoegveld
                        , dkInformatie, NMV)
          else
            SamenvoegveldInvoegen;
        end;
    1 : begin  // Bedrijfslogo in koptekst plaatsen
          // Do Only if a JPeg available
          if (DM.QEigenBedrijf.FieldByName('Logo').IsBlob) and (not(DM.QEigenBedrijf.FieldByName('Logo').IsNull)) then
          begin
            try
              // Prepare Streams
              TempImageFile := ExtractFilePath(Application.ExeName)+'TempImage.jpg';
              DM.QEigenBedrijfLogo.SaveToFile(TempImageFile);
              try
                // Probeer oude header te verwijderen.
                MailingEditor.ActiveText := MailingEditor.BodyText;
                MailingEditor.HeaderFooter.DeleteText(wpIsHeader, wpraOnAllPages, 0);
                MailingEditor.ReformatAll(false, true);
              except
              end;
              with MailingEditor.HeaderFooter.Get(wpIsHeader, wpraOnAllPages, '') do
              begin
                WorkOnText := true;
                if (gbMailingKopLogoRechts.ItemIndex = 1) then
                  FirstPar.ASet(WPAT_Alignment, Integer(paralRight))
                else
                  FirstPar.ASet(WPAT_Alignment, Integer(paralLeft));
              end;
              MailingEditor.WorkOnText := wpIsHeader;
              // Om afmetingen van de afbeelding te kunnen bepalen.
              ImageObject := WPLoadObjectFromFile(MailingEditor.Memo.RTFData,TempImageFile);
              txtobj := MailingEditor.Memo.RTFData.TextObjects.Insert(ImageObject, ImageObject.ContentsWidth, ImageObject.ContentsHeight);
            finally
              if FileExists(TempImageFile) then
                DeleteFile(TempImageFile);
            end;
          end;
        end;
    2 : begin
          // Plaats horizontale lijn aan onderzijde van de koptekst
          par := MailingEditor.HeaderFooter.Get(wpHeader,wpraOnAllPages).FirstPar;
          par.ASet(WPAT_SpaceBefore, WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_SpaceAfter,  WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_IndentLeft,  WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_IndentRight, WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_BorderFlags, WPBRD_DRAW_Bottom);
          par.ASet(WPAT_BorderWidth, WPCentimeterToTwips(0.02)); // 0,5 mm
          par.ASetColor(WPAT_BorderColorB, clBlack); // Top
        end;
    3 : begin
          GaNaarEindeBookmarkVeld;
          GaNaarEindeMergeVeld;
          MailingEditor.WorkOnText := wpIsBody;
          If BookmarkAanmaken('TekstAfzender') then
          begin
            TempInputString := DM.QEigenBedrijf.FieldByName('Naam').AsString + #10
                             + DM.QEigenBedrijf.FieldByName('Adres').AsString + #10
                             + DM.QEigenBedrijf.FieldByName('Postcode').AsString + ' ' + DM.QEigenBedrijf.FieldByName('Plaats').AsString + #10
                             + DM.QEigenBedrijf.FieldByName('Land').AsString;
            MailingEditor.InputString(TempInputString);
            MailingEditor.CPMoveNext; // Plaats de cursor buiten de bookmark
          end;
        end;
    4 : begin
          GaNaarEindeBookmarkVeld;
          GaNaarEindeMergeVeld;
          MailingEditor.WorkOnText := wpIsBody;
          If BookmarkAanmaken('TekstPlaatsDatum') then
          begin
            TempInputString := DM.QEigenBedrijf.FieldByName('Plaats').AsString + FormatDateTime(', d mmmm yyyy',Date);
            if (gbMailingTekstPlaatsRechts.ItemIndex = 1) then
              MailingEditor.WritingAttr.ASet(WPAT_Alignment, Integer(paralRight))
            else
              MailingEditor.WritingAttr.ASet(WPAT_Alignment, Integer(paralLeft));
            MailingEditor.WritingAttr.ASet(WPAT_SpaceBefore, 20);
            MailingEditor.WritingAttr.ASet(WPAT_SpaceAfter, 20);
            MailingEditor.InputString(TempInputString);
            MailingEditor.CPMoveNext; // Plaats de cursor buiten de bookmark
//            MailingEditor.CPMoveNext; // Plaats de cursor buiten de aangemaakte paragraaf
          end;
        end;
    5 : begin
          GaNaarEindeBookmarkVeld;
          GaNaarEindeMergeVeld;
          MailingEditor.WorkOnText := wpIsBody;
          If BookmarkAanmaken('TekstHandtekening') then
          begin
            if cbTekstHandtekeningFormeel.Checked then
              TempInputString := DM.QMedewerkers.FieldByName('Voorletters').AsString
            else
              TempInputString := DM.QMedewerkers.FieldByName('Voornaam').AsString;
            TempInputString := TempInputString + ' '
                             + DM.QMedewerkers.FieldByName('Tussenvoegsels').AsString + ' '
                             + DM.QMedewerkers.FieldByName('Naam').AsString;
            MailingEditor.InputString(wzzGroetenFormeel + #10 + #10 + #10 + #10 + #10 + OpmaakTekst(TempInputString, soNormaal));
            MailingEditor.CPMoveNext; // Plaats de cursor buiten de bookmark
          end;
        end;
    6 : begin
          // Plaats horizontale lijn in tekstdeel
          GaNaarEindeBookmarkVeld;
          GaNaarEindeMergeVeld;
          MailingEditor.WorkOnText := wpIsBody;
          with MailingEditor.TextObjects.InsertNewObject(wpobjHorizontalLine, false, false) do
          begin
            width  := WPCentimeterToTwips(16);
            Height := 1;
            iParam := clBlack;
          end;
        end;
    7 : begin
          // Plaats horizontale lijn aan bovenzijde van de voettekst
          par:=MailingEditor.HeaderFooter.Get(wpFooter,wpraOnAllPages).FirstPar;
          par.ASet(WPAT_SpaceBefore, WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_SpaceAfter,  WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_IndentLeft,  WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_IndentRight, WPCentimeterToTwips(0.1)); // 1 mm  padding
          par.ASet(WPAT_BorderFlags, WPBRD_DRAW_Top);
          par.ASet(WPAT_BorderWidth, WPCentimeterToTwips(0.02)); // 0,5 mm
          par.ASetColor(WPAT_BorderColorT, clBlack); // Top
        end;
    8 : begin
          par:=MailingEditor.HeaderFooter.Get(wpFooter,wpraOnAllPages).FirstPar;
          MailingEditor.HeaderFooter.Get(wpIsFooter, wpraOnAllPages, '').WorkOnText := true;
          MailingEditor.WorkOnText := wpIsFooter;
          TempInputString := '';
          if cbVoettekstAfzender.Checked then
            TempInputString := DM.QEigenBedrijf.FieldByName('Naam').AsString + '  '
                           + DM.QEigenBedrijf.FieldByName('Adres').AsString + '  '
                           + DM.QEigenBedrijf.FieldByName('Postcode').AsString + ' ' + DM.QEigenBedrijf.FieldByName('Plaats').AsString + '  '
                           + DM.QEigenBedrijf.FieldByName('Land').AsString;
          if cbTelefoonMobielFax.Checked then
          begin
            If TempInputString <> '' then
              TempInputString := TempInputString + #10;
            TempInputString := TempInputString + wzzTelefoon + ': '+ DM.QEigenBedrijf.FieldByName('Telefoon').AsString
                              + '  ' + wzzMobiel + ': ' + DM.QEigenBedrijf.FieldByName('Mobiel').AsString
                              + '  ' + wzzFax + ': ' + DM.QEigenBedrijf.FieldByName('Fax').AsString;
          end;
          if cbEmailWebsite.Checked then
          begin
            If TempInputString <> '' then
              TempInputString := TempInputString + #10;
            TempInputString := TempInputString + wzzEmail + ': '+ DM.QEigenBedrijf.FieldByName('Email').AsString
                              + '  '+ wzzWebsite + ': ' + DM.QEigenBedrijf.FieldByName('Website').AsString;
          end;
          if cbKvkBTWBank.Checked then
          begin
            If TempInputString <> '' then
              TempInputString := TempInputString + #10;
            TempInputString   := TempInputString + wzzKvK + ': '+ DM.QEigenBedrijf.FieldByName('KvKnr').AsString
                              + '  ' + wzzBTWnr + ': ' + DM.QEigenBedrijf.FieldByName('BTWnr').AsString +  '  '
                              + DM.QEigenBedrijf.FieldByName('Bank').AsString + ' ' + wzzRekeningnr + ': ' + DM.QEigenBedrijf.FieldByName('Bankrekening').AsString;
          end;
          par.ASet(WPAT_Alignment, Integer(paralCenter));
          par.ASet(WPAT_SpaceBefore, 20);
          par.ASet(WPAT_SpaceAfter, 20);
          MailingEditor.InputString(TempInputString);
        end;
    9 : begin
          par:=MailingEditor.HeaderFooter.Get(wpFooter,wpraOnAllPages).FirstPar;
          MailingEditor.HeaderFooter.Get(wpIsFooter, wpraOnAllPages, '').WorkOnText := true;
          MailingEditor.WorkOnText := wpIsFooter;
          with MailingEditor.HeaderFooter.Get(wpIsFooter, wpraOnAllPages, '') do
          begin
            if not Empty then
            begin
              MailingEditor.CPPosition := 0;
              MailingEditor.InputString(#13);
              MailingEditor.CPMoveBack;       // Zet cursor een positie terug - voor de #13 (= Enter)
            end;
          end;
          MailingEditor.WritingAttr.ASet(WPAT_Alignment, Integer(paralRight));
          MailingEditor.InputString(wzzPagina + '  ');
          MailingEditor.InputTextField(wpoPageNumber);
          MailingEditor.InputString(' ' + wzzvan + ' ');
          MailingEditor.InputTextField(wpoSectionNumPages);
        end;
    10 : begin
          // Verwijder horizontale lijn aan onderzijde van de koptekst
          par := MailingEditor.HeaderFooter.Get(wpHeader,wpraOnAllPages).FirstPar;
          par.ADel(WPAT_BorderFlags);
        end;
    11 : begin
          // Verwijder horizontale lijn aan bovenzijde van de voettekst
          par:=MailingEditor.HeaderFooter.Get(wpFooter,wpraOnAllPages).FirstPar;
          par.ADel(WPAT_BorderFlags);
        end;
  end;
  if (Invoercode <> 0) then
  begin
    btInvoegenVelden.Caption := wzzMailingsSamenvoegveldInvoegen;
    btInvoegenVelden.Tag     := 0;
    MailingEditor.Refresh;
    MailingEditor.Changing;
    MailingEditor.ReformatAll(false,true);
  end;
  MailingEditor.WorkOnText := wpIsBody;
end;

Alles anzeigen

support

Hi,

I assume this happen in case 5:

did you try without

GaNaarEindeBookmarkVeld;
GaNaarEindeMergeVeld;
MailingEditor.WorkOnText := wpIsBody;
If BookmarkAanmaken('TekstHandtekening') then

Just an MailingEditor.InputString to try what happens.

Stef Merlijn

MailingEditor.InputString('My string',0);
Adds a correct string with default Arial 10.

Omiting the two procedures below didn't change the behaviour.
I don't understand why it doesn't work anymore as it worked previously.

I do use USEEXPRESSBARS;

Code

procedure TFMailings.GaNaarEindeMergeVeld;var MergeVeld : TWPTextObj;begin  // Naar het einde van een mergeveld gaan indien de cursor op een mergeveld staat.  MergeVeld := MailingEditor.FieldAtCP;  If (MergeVeld <> Nil) AND (MergeVeld.ParentPosInPar <> MailingEditor.ActivePosInPar) then  begin    MailingEditor.TextCursor.MoveTo(MergeVeld.EndTag);    MailingEditor.CPMoveNext;  end;end;procedure TFMailings.GaNaarEindeBookmarkVeld;var BookmarkVeld : TWPTextObj;begin  // Naar het einde van een bookmarkveld gaan indien de cursor op een bookmark staat.  BookmarkVeld := MailingEditor.BookmarkAtCP;  If (BookmarkVeld <> Nil) AND (BookmarkVeld.ParentPosInPar <> MailingEditor.ActivePosInPar) then  begin    MailingEditor.TextCursor.MoveTo(BookmarkVeld.EndTag);    MailingEditor.CPMoveNext;  end;end;

Code

function TFMailings.BookmarkAanmaken(BookmarkNaam : String) : Boolean;
begin
  HuidigeCursorPositie := MailingEditor.CPPosition;           // Opslaan huidige cursorpositie
  if (MailingEditor.BookmarkFind(BookmarkNaam) >= 0) then
  begin
    if MailingEditor.BookmarkSelect(BookmarkNaam,true) then   // Bookmark selecteren
    begin
      if MailingEditor.SelLength > 0 then                       // Controleren of er tekst in de bookmark staat (0 = leeg)
        Result := False
      else
      begin
        MailingEditor.BookmarkDelete(BookmarkNaam,true,true); // Oude bookmark verwijderen
        MailingEditor.CPPosition := HuidigeCursorPositie;       // Verplaats cursor naar opgeslagen positie
        MailingEditor.BookmarkInput(BookmarkNaam,true);       // Bookmark invoegen
        Result := True;
      end;
    end;
  end else
  begin
    MailingEditor.CPPosition := HuidigeCursorPositie;       // Verplaats cursor naar opgeslagen positie
    MailingEditor.BookmarkInput(BookmarkNaam,true);       // Bookmark invoegen
    Result := True;
  end;
end;

Alles anzeigen

support

Did you attach a OnCharAttrchange event or similar?

If yes, please temporarily disconnect it.