掲示板katsuhiko2
９０日間書き込みが無いと削除される運命です。
新規記事の投稿
グリー?f652
[TEditor]Delphi2009用 改造版2.48
- Mae
- 2009/02/11 03:52
お世話になります。Maeと申します。
Delphi2009に対応したTEditorを作成しました。描画速度はとりあえず置いておいて、見た目正しく動作することを主眼に作成しています。TEditorが使用できないという理由でDelphi2009を使うのをためらっている方の手助けになれれば幸いです。
おそらく、このままでは実用に不向きですが、まったくコンパイルが出来ない状況よりは手をつけやすくなるかと思います。
※私の修正分のライセンスは主張しません。TEditor本体のライセンスにしたがって扱っていただくことを希望します。
http://homepage3.nifty.com/escargot/temp/hedit248U.lzh
そのまま配布してよいものかどうかわかりませんでしたので、問題あるようでしたら指摘ください。
大体、以下のような改造が施されています。(v2.48ベース)
1. 有る程度バランスよくプロポーショナルフォントを表示する
＊左端の文字先頭が切れて表示される欠点あり
2.HitTextプロパティ追加。このプロパティに一致している部分を全てハイライト表示(サクラエディタ風)
3.MBCSフォントとANSIフォントを別指定できるようにする
4.Unicode対応 (Delphi2009でコンパイルする必要あり)
＊MethodTableとTokenMethodTableを関数化しているため、〜Fountain.pasの互換性がなくなっています。
それぞれ、SetMethodTable()、SetTokenMethodTable()関数を呼び出す形に置き換える必要があります。
5.Unicode対応版の場合、LoadFromFile()はVCL本体のものをInherited呼び出しする形にしています。
1〜3は個人的趣味で実装していたもので、本来ならUnicode対応部分と分離して配布すべきと思いますが、これらの機能を実装するために行った改造を流用してUnicode対応を行ったため分離せずに配布します。 これらの改造を先に行っていたおかげでUnicode対応は比較的スムーズに進みました。ただし、2の改造で、文字を1文字ずつ描画するようにしたせいか、Unicode版にすると、すこぶる表示速度が遅くなりますので改善が必要と考えています。
※Unicodeサポートにあたり、DEKOさんの記事とMECSユーティリティー関数群のお世話になりました。
今回UPしたファイルに含まれるMECSUtilsには結合文字の判定関数を追加しています。
TStringsPrinterについて
- 依田尚武
- 2011/05/26 11:41
[エラー] SRmain.pas(4712): 'StrPrint.TStringsPrinter' と 'StringsPrinter.TStringsPrinter' には互換性がありません
WindowsXPでは正常でしたが windouw7(64)Delphi7の環境に移したところコンパイル時点で 上記のエラーがだます。
どのように対処すべきか教えてください。
rosa@silver.ocn.ne.jp
すみませんがメールで受信したいと思います。
-
- 1.ほんだ
- 2011/06/09 22:21
TStringsPrinter は、バージョン 2.5 まで、ユニットファイル名が StrPrint.pas でした。バージョン 3.0 からは、
StringsPrinter.pas になっています。
お使いのプロジェクトファイルに使われている TStringsPrinter コンポが古いバージョンのモノであるか、
uses 節に StrPrint が残っているか、が考えられます。
一度ご確認下さい。 -
- 2.依田尚武
- 2011/06/19 22:03
>>1
> TStringsPrinter は、バージョン 2.5 まで、ユニットファイル名が StrPrint.pas でした。バージョン 3.0 からは、
> StringsPrinter.pas になっています。
>
> お使いのプロジェクトファイルに使われている TStringsPrinter コンポが古いバージョンのモノであるか、
> uses 節に StrPrint が残っているか、が考えられます。
> 一度ご確認下さい。
古いのは削除し、新しいStringsPrinterをインストールしました。
結果、問題は解決し以前のように快適に使わせてもらっています。
ありがとうございました。
タブ付きの場合のUndoについて
- ROC
- 2010/07/23 23:58
現在TEditorにてタブ機能付きのテキストエディターを作っているのですが、
タブ機能とオートコンプリートを両立させるために、タブにTTabControlを使用し、タブを切り替えるとEditor1の内容を書き換える方法にしました。
しかし、その副作用としてタブを切り替えると、
Undoのリストが完全に消去されるようになってしまいました。
何か良い方法はございませんでしょうか？
-
- 6.ほんだ
- 2010/08/04 15:16
http://homepage3.nifty.com/~katsuhiko/vcl/test/AssignUndoEditor.zip
文字列を Assign するとき UndoObj もコピーされる
TUEditor を作って見ました。サンプルアプリも
同梱されています。
試して見て下さい。 -
- 7.ROC
- 2010/08/05 17:42
>>6
本当にありがとうございます。
しかし私の技術力不足で未だに解決することができませんでした。
私の目的は
�．織峙’宿佞�のエディタ
�△気蕕縫�ートコンプリート機能を
��Undoのタブ機能対応可
現在��ができない状況です。
http://eidwinds.com/hidi/tab01.shtml
このサイトを参考にしてやってみたこともありますが、
なぜかコンパイルすら出来なかったです。。。 -
- 8.ROC
- 2010/08/05 17:44
ってそれはここで報告することではないですねｗ
本当にわがままばかりで申し訳ございません。
いつかできたら嬉しい限りです・・・ -
- 9.ROC
- 2010/08/07 18:05
ごめんなさい自己解決しました。
詳しい方法は近いうちにブログに載せるつもりなので
載せたときにまた報告しに来ます。
ご迷惑をおかけしました。
どうもありがとうございました。 -
- 10.ROC
- 2010/08/19 12:28
http://seelog.blog103.fc2.com/blog-entry-27.html
このとおりです。
ご迷惑をおかけしました。
今後も頑張ってください！
Undoについて
- kuze
- 2010/04/19 00:19
やりたいこと
1. Editorに所定の文字列郡を追加
2. ユーザーがUndoを選択すれば、1の内容を一気にすべて消去
現在、下記のようにしていますが、上手くいきません。Lines.Addを直接使用しているため、Undoバッファが更新されていないからだと思うのですが、上記1の内容を書き出す前の状態にUndoで戻るようにするためには、どのようにUndoバッファを操作すればよいか分かりません。教えてください。
(Ed: TEditor です。)
1の処理
Ed.Lines.Add('');
Ed.Lines.Add('test');
Ed.Lines.Add(' abcde');
Ed.Lines.Add(' 1234');
Ed.Lines.Add(' abcde');
Ed.Lines.Add(' 1234');
Ed.Lines.Add('');
Ed.Lines.Add('');
・・・
2の処理
Ed.Undo();
-
- 6.kuze
- 2010/04/22 00:57
>>5
bon worldさん、いろいろアイデアありがとうございます。
対象は、自分を含めて不特定多数を想定しています。
ご提案いただいた方法だと、Undo 1回分につき、TEditorを1個準備しないといけないため、たとえば10回分のUndoを対応使用と思うと、10個TEditorが必要となってしまい、大変なことになります。
そもそも、Undo, Redo用の機能がTEditorにあるのでこちらを有効的に利用したいと思っています。 -
- 7.bon world
- 2010/04/22 13:46
>>6
■もう少し、質問させて下さい。
ボタンを操作する毎に、 1回のLines.Add.('???') 実行するのでしょうか。
それともボタンを操作する毎に、大量のLines.Add.('???') 実行するのでしょうか。
■Undoの回数の上限を変更する事は可能です。
TEditor.pas の54行目（バージョンにより異なるかもしれませんので検索して下さい）の
UndoListMin = 64;
を
UndoListMin = 2048;
に変更すると、64回から2048回に変更になります。ソースを見たところ回数を変更しても問題になりそうな感じはしませんでしたので、もっと大きな数字でもOKだと思います。私の環境では、2048回に変更してもOKでした。
■データを保存する場合は、配列型のStrlingListを作成すれば、TEditorを追加する必要はありません。
private
iHistory: Integer;
UndoHistoryList : array[0..1024] of TStringList;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
iHistory := 0;
for i := 0 to High(UndoHistoryList) do
begin
UndoHistoryList[i] := TStringList.Create;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
for i := 0 to High(UndoHistoryList) do
begin
UndoHistoryList[i].Free;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
UndoHistoryList[iHistory].Assign(Editor1.Lines);
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Editor1.Lines.Assign(UndoHistoryList[iHistory]);
end; -
- 8.kuze
- 2010/04/25 16:13
>>7
Line.Add('****')
は、数十行一揆に追加されるパターンや、1行のみのパターンもあります。
通常のUndoの仕組みを有効的に活用したいと思っているのですが、Undoのソースをじっくり見たほうがいいのかもしれませんね。
TStringListにEditorの内容を全部保存する方法だと、メモリの消費量が多すぎると考えています。 -
- 9.あ
- 2010/04/29 22:18
そんなに複雑にしなくても、単純に文字列をStringに代入しておいて、
Editor1.SelSelText := 〜;
で一度に挿入すればよいのでは？履歴はEditor1が管理してくれる。 -
- 10.kuze
- 2010/05/01 21:59
>>9
そうですね。
手っ取り早くするには、複数行まとめて一気にEditor1に設定するのが確かによさそうです。
コメント
>>47
ありがとうございます。
[TEditor 2.52 for "Unicode 版 Delphi"]
の話題は、こちらでいいのでしょうか。
DelphiXEで動かしているのですが、
付属のサンプル
…hedit252U\sample\Project1.exe
は、Drawingタブが文字が重なって表示されていたり
…hedit252U\unicode_demo\Project.dprj
は、Editor1.MBCSFont
が、未定義の識別子となってコンパイルが通りません。
機知の誤動作になるのでしょうか。
私の環境だけかもしれないと、前からあきらめていたのですが、どうなのでしょう。
>>49
おそらくDEKOさん版を使用されているんだと思いますが、
Sampleプロジェクトは私が作成したver用の物なので
互換性がなくなっているだけだと思います。
もしそうならばSampleプロジェクトは無いものとして
扱ってください。
了解しました。
ありがとうございます。
>>47
Delphi xe を購入し、拙作ChezEdit-NTを全面的に書き直すこととしました。TEditorが肝心要な部分なのですが、maeさん、dekoさんの改造改良版のお蔭でとても助かりました。xeでうまく動いています。TEditorが使えないことにはどうにもならないと焦っていたのですが、なんとかなりそうです。お二人のご尽力に深く感謝いたします。