リッチテキスト対応テキストエディタでテキストファイルを開くと箇条書きのままになる？

解決

RTF対応エディタに挑戦 2004-04-25 04:35:34 No: 8604 IP: [192.*.*.*]

超初心者のくせにリッチテキスト形式対応のテキストエディタの作成に挑戦しています。

標準アクションのTRichEditBullets[箇条書き]を追加し、メインメニューとツールボタンに割り当てています。
リッチテキスト形式の編集中に[箇条書き]を選択した状態でテキストファイルを開くと、開いたテキストファイルが箇条書きになってしまいます。
箇条書きを解除するにはどうすればよいでしょうか？

テキストファイル読み込み時は[箇条書き]のEnabledとVisibleをFalseにしています。

宜しくお願い致します。

編集削除

るるとん＠Ｋ 2004-04-25 06:02:49 No: 8605 IP: [192.*.*.*]

開く時に、解除したら？

編集削除

… 2004-04-26 04:49:50 No: 8606 IP: [192.*.*.*]

解除のしかたがわからないから投稿されたのでは？

編集削除

ふぐちゃん 2004-04-26 05:53:24 No: 8607 IP: [192.*.*.*]

テキストファイルを開く前に、

if RichEdit1.Paragraph.Numbering = nsBullet then
RichEdit1.Paragraph.Numbering := nsNone;

こうしてはどうでしょう？

編集削除

るるとん＠Ｋ 2004-04-26 05:57:04 No: 8608 IP: [192.*.*.*]

>テキストファイル読み込み時は[箇条書き]のEnabledとVisibleをFalseにしています。
非表示にするなら、Enabledはどうでもいいのでは？

編集削除

ふぐちゃん 2004-04-26 06:29:39 No: 8609 IP: [192.*.*.*]

この方法でもOKでした。

if RichEditBullets1.Checked then
RichEditBullets1.ExecuteTarget(RichEdit1);

編集削除

RTF対応エディタに挑戦 2004-04-26 07:37:47 No: 8610 IP: [192.*.*.*]

るるとん＠Ｋさん、…さん、ふぐちゃんさんありがとうございます。

ふぐちゃんさんに書いて頂いたコードで出来ました。

if OpenDialog1.Execute then
  begin
    if LowerCase(ExtractFileExt(OpenDialog1.FileName)) = '.txt' then
      if RichEditBullets1.Checked then
        RichEditBullets1.ExecuteTarget(RichEdit1);

    RichEdit1.Lines.Clear;

    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;

で出来ました。

>if RichEdit1.Paragraph.Numbering = nsBullet then
>  RichEdit1.Paragraph.Numbering := nsNone;
も出来ました。
ふぐちゃんさんありがとうございます。

お手数をおかけ致しました。どうも有り難う御座いました。

編集削除

RTF対応エディタに挑戦 2004-04-26 07:51:54 No: 8611 IP: [192.*.*.*]

間違えました。

if OpenDialog1.Execute then
  begin
    RichEdit1.Lines.Clear;

    if LowerCase(ExtractFileExt(OpenDialog1.FileName)) = '.txt' then
      if RichEditBullets1.Checked then
        RichEditBullets1.ExecuteTarget(RichEdit1);

    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;

RichEdit1.Lines.Clearが先でした。

編集削除