Beiträge von Juan Santana

  • change the Uppercase of selected text in the WPRichText1

    hi, got the functions. For whatever it useful.
    inside the samples folder wp


    ..:uppercase text selected:..

    if WPRichText1 <> nil then
    begin
    with WPRichText1.TextCursor.CurrAttribute do
    begin
    BeginUpdate;
    ExcludeStyle(afsLowercaseStyle);
    IncludeStyle(afsUppercaseStyle);
    EndUpdate;
    end;
    WPRichText1.Refresh;
    end;

    ..:lowercase:..

    if WPRichText1 <> nil then
    begin
    with WPRichText1.TextCursor.CurrAttribute do
    begin
    BeginUpdate;
    ExcludeStyle(afsUppercaseStyle);
    IncludeStyle(afsLowercaseStyle);
    EndUpdate;
    end;
    WPRichText1.Refresh;
    end;