掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TRichEdit一部重複の装飾変更 (ID:42500)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
試してみました。 アンダーラインを設定する処理 var CFormat: CHARFORMAT2;//RichEditをusesにいれる begin FillChar(CFormat, SizeOf(CFormat), 0); CFormat.cbSize := SizeOf(CFormat); //アンダーライン CFormat.dwEffects := CFormat.dwEffects or CFE_UNDERLINE; CFormat.dwMask := CFM_UNDERLINE; RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@CFormat)); end; ボールドを設定する処理 var CFormat: CHARFORMAT2;//RichEditをusesにいれる begin FillChar(CFormat, SizeOf(CFormat), 0); CFormat.cbSize := SizeOf(CFormat); //ボールド CFormat.dwEffects := CFormat.dwEffects or CFE_BOLD; CFormat.dwMask := CFM_BOLD; RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@CFormat)); end; これで太字とアンダーラインが保持できました。 うまいこと解除も盛り込んで、 できたらサンプルも載せていただけると助かります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.