Styles "mischen"?

1. offizieller Beitrag

    Hallo,

    wenn ich z.B. diese 2 Styles habe:

    Code
    with WPRichText1.ParStyles.AddStyle('Hintergrund') do
  begin
    ASetColor(WPAT_BGColor, clYellow);
    ASet(WPAT_ShadingValue, 60);
  end;
  with WPRichText1.ParStyles.AddStyle('Kursiv') do
  begin
    ASetAddCharStyle(WPSTY_ITALIC)
  end;

    und damit einige Zellen einer Tabelle gelb färben möchte

    Code
    cell := tbl.Rows[z].cols[s];
        cell.SetStyle(WPRichText1.ParStyles.FindStyle('Hintergrund'),
          false, false);

    dann funktioniert das.

    Wenn ich aber einer gelb hinterlegten Zelle noch kursiv setzen möchte

    Code
    cell.SetStyle(WPRichText1.ParStyles.FindStyle('Kursiv'),
          false, false);

    dann wird der Text kursiv aber der gelbe Hintergrund ist weg!

    Wie kann ich beides mischen?

    Ciao
    Stefan

    Danke für die Aufklärung!

    Das bedeutet ich muss vor Zuweisung des Kursiven Styles erst den vorhandenen Style lesen und diesen mit Kursiv erweitern?

    Zitat


    Man kann aber einen neuen Stil erstellen und die Attribute von diversen Absätzen hineinkopieren.

    Gibt es dafür 2 Zeilen Codebeispiel?

    Danke

    Ciao

    Stefan