掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォントの属性を指定した文字検索 (ID:37309)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以前、フォントの属性を指定した文字検索の仕方を質問させていただいた者です。もう少し知恵をお貸しいただきたいです。 RichEditにBold体、Italic体混在した文書があります。 RadioGroupに指定した属性をチェックしてBottonを押すと、その属性を持った文字列を反転させて位置を示すようにしたいです。 RadioGroupに ○太文字 ○イタリック体 ○下線 ○打ち消し線 と指定して procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin with RichEdit1 do begin for i:=0 to Length(RichEdit1.Lines.Text)-2 do begin SelStart:=i; SelLength:=1; case RadioGroup1.ItemIndex of 0:if fsBold in SelAttributes.Style then Break; 1:if fsItalic in SelAttributes.Style then Break; 2:if fsUnderline in SelAttributes.Style then Break; 3:if fsStrikeout in SelAttributes.Style then Break; end; end; SelStart:=i; SelLength:=1; SetFocus; end; end; やりたいこと ①最初の一つ目で検索が終わってしまうのを、複数の文字ができるようにしたい。 ②SelLengthの取得（きちんと文字全体を反転表示させたい） ③SelAttributes.Sizeでフォントサイズ（整数型）を指定して同じように検索できるようにしたい。 自分で考えてやってみていますが、なかなか動いてくれません・・・よろしくお願いします。 環境は、Delphi6 Xpです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.