掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TRichEdit一部重複の装飾変更 (ID:42499)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります TRichEditにて 一部を選択→ボールド そのまた一部から始めて後ろに続く文字まで選択して→下線 したとき、重なった部分のボールドが解除されてしまいます 「太字で」の「太字」をボールド その後「字で」を下線に変換です var Style:TFontStyle; begin if (Sender as TComponent).Tag=0 then//B Style:=fsBold else Style:=fsUnderline; with RichEdit1 do begin if Style in SelAttributes.Style then begin SelAttributes.Style:=SelAttributes.Style - [Style]; end else begin SelAttributes.Style:=SelAttributes.Style + [Style]; end; end; end; 装飾の方法は全くの基礎通りだと思うのですがワードパッドでは出来るので 何か方法があるとは思うのですが、SelAttributes を一文字ずつ調べていくしかないのでしょうか 開発環境は Win7-64 Delphi2009 ですが D5 でも確認しています 以上、よろしくお願いいたしますm(_ _)m
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.