Beiträge von dataspider

Thx to everyone,

it was helpful and the problem is solved now.

Frank

Hello,

i use TWPRichtext instead of TDBWPRichText.
With the following code i load data from db:

procedure TFRMMain.LoadTextFromDB;
begin
  WPRichText.BeginUpdate;
  WPRichText.Clear;
  with DMMain do
    WPRichText.AsString := qryDoc.FieldByName('document').AsString;
  WPRichText.EndUpdate;
end;

After the rearrangement the TWPPreview isn't updated any more.
At the first record change the preview is automatic updated,
at the next no more. What to do?

Thanks, Frank

Hallo,

ich benötige eigene Standard Actions.
Dabei ist es mir auch schon gelungen, den Style (bold) etc. zu setzen.
Allerdings gelingt es mir nicht, den Style abzufragen.
Ich weiss auch nicht genau, ob ich CurrAttr oder SelectedTextAttr benutzen soll.
Folgender Code setzt den Style zwar, kann ihn aber nicht erkennen.

procedure TRWRichEditAction.SetWPFontStyle(Edit: TWPCustomRichText; Style:
    TOneWrtStyle);
begin
  Edit.CurrAttr.BeginUpdate;
  try
    // Style ist hier leider immer leer ([]), auch wenn alles fett ist
    if Style in Edit.CurrAttr.Style then
      Edit.CurrAttr.DeleteStyle([Style])
    else
      Edit.CurrAttr.AddStyle([Style]);
  finally
    Edit.CurrAttr.EndUpdate;
    Edit.ChangeApplied;
  end;
end;

Kann mir jemand auf die Sprünge helfen?

Danke, Frank

[EDIT]
Es hat sich erledigt. Ich habe die neueste Version installiert. Jetzt liefert CurrAttr.Style wieder einen Wert.
[/EDIT]