Styles...

Green_flyer

Hello again,

I was working with tables and was trying to create an "Odd" and "Even" style for each row defined as such:

Code

// Set Table Styles
  with FEditor.ParStyles.AddStyle('Even') do
  begin
    ASet(WPAT_IndentLeft, 32);
    ASet(WPAT_IndentRight, 32);


    ASet(WPAT_CharStyleON, WPSTY_ITALIC);
    ASet(WPAT_CharStyleMask, 1);


    ASetColor(WPAT_BGColor, clMoneyGreen);
    ASet(WPAT_ShadingValue, 30);
  end;


  with Feditor.ParStyles.AddStyle('Odd') do
  begin
    ASet(WPAT_IndentLeft, 32);
    ASet(WPAT_IndentRight, 32);


    ASet(WPAT_CharStyleON, WPSTY_BOLD);
    ASet(WPAT_CharStyleMask, 1);

    ASetColor(WPAT_BGColor, clCream);
    ASet(WPAT_ShadingValue, 90);
  end;

Alles anzeigen

Helas, I'm able to get the Odd rows text to be BOLD, but the Even rows are not in Italic in any way. I'm looking around trying to find if something was posted on this matter ... BTW, changing Italic to Bold in the Even style will work ....

Green_Flyer

Green_flyer

using this instead of original code produced the desired result:

Code

ASetCharStyle(true, WPSTY_ITALIC);
    ASetCharStyle(true, WPSTY_BOLD);

I would like to know however, if the other is possible or not ?

Green_Flyer

support

This is the code for the universal ASetCharStyle method:

Code

procedure TWPTextStyle.ASetCharStyle(Flag: TThreeState; WPSTY_Value: Integer);
begin
  case Flag of
    tsIgnore:
      begin
        ASetDel(WPAT_CharStyleMask, WPSTY_Value);
        ASetDel(WPAT_CharStyleON, WPSTY_Value);
      end;
    tsTrue:
      begin
        ASetAdd(WPAT_CharStyleMask, WPSTY_Value);
        ASetAdd(WPAT_CharStyleON, WPSTY_Value);
      end;
    tsFalse:
      begin
        ASetAdd(WPAT_CharStyleMask, WPSTY_Value);
        ASetDel(WPAT_CharStyleON, WPSTY_Value);
      end;
  end;
end;

Alles anzeigen

It is ment to be a shortcut.

The mistake in your original code the mistake was this: ASet(WPAT_CharStyleMask, 1); - here also use WPSTY_ITALIC.

Note:
WPAT_CharStyleMask selects the use of a flag, WPAT_CharStyleON changes the state of this flag to be true or false.

Julian

Styles...

Ähnliche Themen

WPBulletDlg1

Problem Load/Save

PNG Scrolls

WPTools 8 is available now

WPTOOLS Changelog