~katsuhiko メッセージボード

back 2601-2650

2651-2700

2701-2750


2700 Re^3: はじめまして コメント数:  0件
  本田勝彦 2003/12/04 (木) 22:54
わかりました。小林さんだったんですね。
情報ありがとうございます。



2699 Re: integer であって、integer でない?? コメント数:  3件
  本田勝彦 2003/12/04 (木) 22:53
> は問題なくコンパイルされるのですが、コメント行(肝心なところ)を
> 生かすと、「読み込みエラー」となってコンパイルされないのです。
> (Format の行ではなく、Ord の行がエラーになるのが不思議)
> C は integer であって、integer でない??

ウチでは、ちゃんと動きましたよ。



2698 Re^2: はじめまして コメント数:  1件
  をお 2003/12/04 (木) 10:16
> ようこそいらっしゃいませ。
>
> > TepaEditer を使っています〜
>
> これ、どこにあるのでしょう?よかったら教えて下さい。

申し訳ありません、TEditorと勘違いしてました。
使っているのはTepaEditorです、暫くアップデイトもしていませんでした。
作者の小林 哉はまだ若い方のようです。もしかしたらもうご存知の方では?
http://www.greenspace.info/

以下ヘルプにあった内容です

本ソフトの作成にあたり、下記のソフト・コンポーネント・ライブラリを使用させていただきました。

TEditor/TStringsPrinter (本田勝彦氏:)
GLDPNG (Tarquin氏:)
正規表現を使った文字列探索/操作コンポーネント集 (bmonkey)
jconvert.pas (EarthWave Soft/IKEDA Takahiro氏)
HelpWriter (どれんぷ氏)
MakeSet (ちくわ氏)

各作者の方に、この場を借りてお礼申し上げます。
また、多くの方にご意見やバグ報告をいただいてます。この場を借りてお礼申し上げます。

そして、TepaEditorをお使いのすべての方に感謝します。

--みなさま、ありがとうございました--




2697 integer であって、integer でない?? コメント数:  4件
  いくぼ 2003/12/03 (水) 23:29
にしの さん、コメントありがとうございます。

var
S : String;
C : Integer;
begin
...
S := Lines[RowToLines(Row)];
I := ColToChar(Row,Col) + 1;
C := Ord(S[I]);
// S := Format('%x',[C]);
StaticText.Caption := S;

は問題なくコンパイルされるのですが、コメント行(肝心なところ)を
生かすと、「読み込みエラー」となってコンパイルされないのです。
(Format の行ではなく、Ord の行がエラーになるのが不思議)
C は integer であって、integer でない??

こ、これがTEditorの、ではなく、Delphi の理解度の問題なのであります。



2696 Re^2: キャレット位置の文字コード コメント数:  5件
  にしの 2003/12/03 (水) 09:06
間違えました。
bの文字コード=98(10進数)=$62(16進数)です。



2695 Re: キャレット位置の文字コード コメント数:  6件
  にしの 2003/12/03 (水) 09:05
> うぅ、TEditorの、というより Delphi の理解度の問題ですが、
> String の特定位置から文字コードを取り出す方法がよくわから
> んのです。

Delphiでは、
str := 'abcd';
ch := Ord(str[2]);
とすればch=98となります。(62=bの文字コード)
C言語と違って、0ベースではありません。str[0]は、ShortStringでの文字数が入ります。AnsiString, WideStringでは0は使われません(私が知らないだけかも)。

C言語のような0ベースでしたら、
ch := Ord(PCHAR(str)[1]);
とすればch=98となります。(62=bの文字コード)



2694 キャレット位置の文字コード コメント数:  7件
  いくぼ 2003/12/03 (水) 04:45
キャレット位置の文字コードをプロパティで簡単に知る
ことができるとよいな〜なんて。

TEditor の token とはちがう独自の基準で、キャレット位置を
制御したいことがあります。

うぅ、TEditorの、というより Delphi の理解度の問題ですが、
String の特定位置から文字コードを取り出す方法がよくわから
んのです。



2693 Re^2: Photo Diary コメント数:  8件
  本田勝彦 2003/12/01 (月) 21:58
「さま」はやめてね。

命ある限り、サポートは投げ出すことはないと思います。好きだし。
むげな要望は、たいていの場合軽く却下されますので、
試して見て下さい。



2692 Re: Photo Diary コメント数:  9件
  いくぼ 2003/11/30 (日) 17:10
作者さまのお顔が見えると、TEditorは堅実にサポートして
いただけそうだなぁ〜とホッといたします。

むげな要望を出して困らせてはいけないぞ、と思ったり。



2691 Photo Diary コメント数:  10件
  本田勝彦 2003/11/29 (土) 00:04
も更新しました。10月の写真ですが・・・



2690 色々 コメント数:  0件
  本田勝彦 2003/11/28 (金) 23:44
TEditor ver 2.47
TEditor help ver 2.47
TStringsPrinter 3.0

公開しました。

公開直後でなんですが、TStringsPrinter はカラー・モノクロの
切替スイッチが無いのですが、あった方が良いのかなぁ?

TEditor では、crRightArrow, crDragSelCopy カーソルを固定数値に
してしまいました。
また、InternalList プロパティが追加されましたので、そのまま
TStringsPrinter に渡せば折り返し表示そのままに印刷されるハズです。
(印刷領域幅を越えた場合は不可)

TStringsPrinter の crOpenHand も固定数値にしました。

お試し下さいまし。



2689 Re: リンク変更願い コメント数:  0件
  本田勝彦 2003/11/28 (金) 23:40
リンクの件了解しました。
TStringsPrinter 3.0 公開しましたので、お試し下さい。



2688 Re: はじめまして コメント数:  2件
  本田勝彦 2003/11/28 (金) 23:40
ようこそいらっしゃいませ。

> TepaEditer を使っています〜

これ、どこにあるのでしょう?よかったら教えて下さい。



2687 はじめまして コメント数:  3件
  をお 2003/11/28 (金) 11:17
TepaEditer を使っています〜

いつからか使い始めたか覚えていません・・失礼

主にCOBOLのソースをガリガリ書き込んでいます

検索で思うような動きができないこと意外は快適です

この機会に久しぶりにバージョンアップします。

CとCOBOLがメインの生活です

Delphiに挑戦しました、敗北しました・・・性懲りもなくまだ未練があります

ご家族の写真拝見しました、ホンワカしていていいですね。

また来てみます。



2686 リンク変更願い コメント数:  1件
  十五夜るな  | jugoya@jcom.home.ne.jp 2003/11/27 (木) 21:27
 http://members.jcom.home.ne.jp/milkymoon/
こんにちは。

TEditorにはお世話になっております。
そろそろ印刷機能でも付けようかと思ってるところへ、
ナイスタイミングで良いお話が持ち上がってるようですね。
期待しております。

本題ですが、
契約しているプロバイダの都合により、ページのURLが変更されました。
お手数ではありますが、リンクの変更をお願いします。



2685 Re: TStringsPrinter ver 2.4 コメント数:  0件
  本田勝彦 2003/11/26 (水) 23:18
readme に書き忘れました。

> WordBreak がプロパティになり選択可能になりました。
> 折り返し処理で最後の一語が新しい行になるバグを修正しました。

プレビューフォームの手の形をしたマウスカーソル crOpenHand を
RegisterIntegerConsts しています。
TEditor と併用した場合、TEditor のマウスカーソル再設定が必要になる場合が
あります。

悪しからず。



2684 TStringsPrinter ver 2.4 コメント数:  1件
  本田勝彦 2003/11/26 (水) 22:42
取り敢えず、ver 3.0 の元になる ver 2.4 を公開しました。
WordBreak がプロパティになり選択可能になりました。
折り返し処理で最後の一語が新しい行になるバグを修正しました。

このバージョンは、ver 3.0 がリリースされても残して行きたいと思います。



2683 Re^5: TColorStringsPrinter コメント数:  0件
  Km 2003/11/26 (水) 21:25
本田さん、こんにちは。

> う〜ん・・・悩ましい。
>
> TStringsPrinter を version 3.0 としてカラー化してしまおう。
> TEditor に特化した TEditorStringsPrinter も作る。

複数のソース管理は辛くなりますよね。。。申し訳ないです。
単に折り返しの桁数を指定できるだけでも充分だと思うので
version 3.0の方をリリースしてしばらく反応みてはどうで
しょうか。なんか悩ませてしまってすみません。




2682 Re^4: TColorStringsPrinter コメント数:  1件
  本田勝彦 2003/11/26 (水) 20:42
う〜ん・・・悩ましい。

TStringsPrinter を version 3.0 としてカラー化してしまおう。
TEditor に特化した TEditorStringsPrinter も作る。

ということにしたいと思います。



2681 Re^3: TColorStringsPrinter コメント数:  2件
  本田勝彦 2003/11/26 (水) 15:58
> 機能的には、WrapByteの指定ができるとうれしいです。
> (TEditorと同じ折り返しで印字したくて)

なるほど。

WrapByte で折り返した文字列が印刷すべき領域内におさまるかどうかの判別
をやらなくて良いのであれば可能かな?

当初、TEditor と同じ描画方式にしようと考えましたが、タブ文字の展開数
や、WrapOption の扱いも絡んでくるので、パスしてしまいました。

将来的に、今開発中の TColorStringsPrinter とは別に TEditorStringsPrinter をこしらえる方式が良いかなと考えています。

同じようなコンポーネントエディタが幾つも Delphi に登録されるのも
いかがなモノかとは思いますが。



2680 Re^2: TColorStringsPrinter コメント数:  3件
  Km 2003/11/26 (水) 07:55
> ご意見ご希望などございましたら、よろしくお願い致します。

機能的には、WrapByteの指定ができるとうれしいです。
(TEditorと同じ折り返しで印字したくて)



2679 Re^2: TColorStringsPrinter コメント数:  0件
  sakazuki 2003/11/26 (水) 02:20
 http://homepage2.nifty.com/sakazuki/rde.html
> ご意見ご希望などございましたら、よろしくお願い致します。
うわぁ。ありがたやありがたや。
まさに、それが欲しかったのです。
自分でつくろうかと思ったことも、何回もあります。
拙作のRDEには、さっそくつかわせていただくつもりです。
楽しみ。楽しみ。



2678 Re^2: Lines.LoadFromFile 高速化技法 コメント数:  0件
  いくぼ 2003/11/26 (水) 00:57
本田さま、コメントありがとうございます。

速度関係の設定をいじったとき true にしてしまったようです。
お騒がせしました。

これからレジストさせていただきます。



2677 Re: TColorStringsPrinter コメント数:  0件
  Km   | CQE03114@nifty.ne.jp 2003/11/25 (火) 23:09
> ご意見ご希望などございましたら、よろしくお願い致します。

日記の更新希望。そじゃないって(^^;;;



2676 Re: TColorStringsPrinter コメント数:  0件
  Km   | CQE03114@nifty.ne.jp 2003/11/25 (火) 23:08
本田勝彦さん、こんにちは。

> TStringsPrinter のカラーバージョンが出来上がりつつあります。
> Fountain プロパティに TFountain コンポーネントを接続して
> トークンを色分けしながら印刷するべぇというコンポです。

しばらく日記や掲示板の頻度が落ちてると思ったら、
そんな有難いものを作っていたのですか。
出来上がるのが楽しみです。



2675 Re: TColorStringsPrinter コメント数:  6件
  本田勝彦 2003/11/25 (火) 22:29
ご意見ご希望などございましたら、よろしくお願い致します。



2674 TColorStringsPrinter コメント数:  8件
  本田勝彦 2003/11/25 (火) 22:28
TStringsPrinter のカラーバージョンが出来上がりつつあります。
Fountain プロパティに TFountain コンポーネントを接続して
トークンを色分けしながら印刷するべぇというコンポです。
TEditor 関連のユニットを必要としますので、TStringsPrinter の拡張コンポ
という形を取りました。TStringsPrinter は、拡張を考えて virtual メソッド
にしておこうという気配りが一切無かったので、virtual 化した TStringsPrinter
も一緒にリリースして、この最新版が無ければコンパイル出来ないという代物に
なりそうです。

お楽しみに。




2673 Re: Lines.LoadFromFile 高速化技法 コメント数:  1件
  本田勝彦 2003/11/25 (火) 03:05
InitBracketsFull プロパティが True になっていると、このような動作になります。False にすると読み込みから表示までは速くなりますが、先頭から最後に移動
する時に待たされます。

トレードオフ関係にあります。



2672 Lines.LoadFromFile 高速化技法 コメント数:  2件
  いくぼ 2003/11/24 (月) 20:57
拙作エディタだと、Lines.LoadFromFile が明らかに遅いのです。
大き目のファイルを読むと、表示されるまでに一拍(一泊ではない)
待たされます。

表示後、キー入力してファイルの先頭と最後を往復すると、一瞬で移動
しますので、もちろん TEditor のせいではないです。ほかの方が作成
されたエディタで試しても、読み込み→表示は高速です。

高速化するためのコツってあるのでしょうか。



2671 Re: Undo と Modified の疑問 コメント数:  0件
  Km   | CQE03114@nifty.ne.jp 2003/11/24 (月) 16:03
いくぼさん、Kanetoさん、こんにちは。

> なるほど Undo バッファが空だからといって、
> 編集されていないとは限らない、ということですね。
>
> 編集したテキストを知らずに失うことのほうが怖いので、
> 特殊なケース(Undoし切った状態)にこだわる必要は
> ない……。

そうですね。LoadFromFileやSaveToFileのことなんかも
考えるとUndoバッファやModifiedよりも独自に状態を
管理した方が良いかもしれません。




2670 Re^4: Undo と Modified の疑問 コメント数:  1件
  いくぼ 2003/11/24 (月) 01:18
Kaneto さん、コメントありがとうございます。

なるほど Undo バッファが空だからといって、
編集されていないとは限らない、ということですね。

編集したテキストを知らずに失うことのほうが怖いので、
特殊なケース(Undoし切った状態)にこだわる必要は
ない……。




2669 Re^3: Undo と Modified の疑問 コメント数:  2件
  Kaneto   | tkaneto@nifty.com 2003/11/23 (日) 23:04
TEditor/TEditorExにお世話になっているKanetoです。
横からちょっとだけ、コメントです。

> でも、おかげさまで解決しました。

TEditorのプロパティを編集途中で変更するとアンドゥバッファが
クリアされる仕様のはずです。
たとえば、WordWrapオンで、折り返し文字数を変更した場合など。

この場合を考えると、Modifiedプロパティはやっぱり別に扱うべきと思いますよ。
あるいは、上記アンドゥバッファがクリアされていないことをチェックしないと。

では。



2668 Re^2: Undo と Modified の疑問 コメント数:  3件
  いくぼ 2003/11/23 (日) 22:02
Kmさん、コメントありがとうございます。

ふむふむ。
論理NOTを含む論理積のNOTをとってANDをとる。
うあぁ、頭が混乱するぅ。

でも、おかげさまで解決しました。



2667 Re: Undo と Modified の疑問 コメント数:  4件
  Km 2003/11/23 (日) 05:59
いくぼさん、こんにちは。

> テキストを3回編集して、3回 Undo すると元に戻りますよね。
> その時点で Modified が false になることを期待するのですが、
> true のままです。
>
> これは仕様なのでしょうか。回避する方法はあるのでしょうか。

こんな感じでどうでしょうか。
function TForm1.GetModified: Boolean;
var
modified, canundo, canredo: Boolean;
begin
modified := Editor1.Modified;
canundo := Editor1.CanUndo;
canredo := Editor1.CanRedo;
Result := (modified and not (modified and not canundo and canredo));
end;

ちなみにBCB用。
bool __fastcall TForm1::GetModified()
{
bool modified = Editor1->Modified;
bool canundo = Editor1->CanUndo();
bool canredo = Editor1->CanRedo();
return (modified && !(modified && !canundo && canredo));
}



2666 Undo と Modified の疑問 コメント数:  5件
  いくぼ 2003/11/22 (土) 21:05
最近 TEditor をさわりはじめたばかりなのですが、
Undo と Modified であれ? と思ったことがありました。

テキストを3回編集して、3回 Undo すると元に戻りますよね。
その時点で Modified が false になることを期待するのですが、
true のままです。

すると、ファイルをクローズするときに Modified を調べて保存す
るかどうか問い合わせる箇所で引っかかってしまいます。

TEditor を元に作成されたエディタの(たぶん)全てが、これが原
因と思われる動作をします。

これは仕様なのでしょうか。回避する方法はあるのでしょうか。
既出の問題でしたらすみません。



2665 Re^2: [要望:低]カーソル行の背景色指定 コメント数:  0件
  にしの 2003/11/12 (水) 09:12
> この実装を、キャレットの移動や、アンダーラインの描画と消去にも適用して
> 行けば可能かもしれませんが、あまり気が進みません。今のマシンなら問題
> 無いでしょうけれどもね。
>
> 「こういう拡張も可能だよ」という一例ということにさせて下さい。

了解です。



2664 Re: [要望:低]カーソル行の背景色指定 コメント数:  1件
  本田勝彦 2003/11/11 (火) 23:39
見せていただきました。

この実装を、キャレットの移動や、アンダーラインの描画と消去にも適用して
行けば可能かもしれませんが、あまり気が進みません。今のマシンなら問題
無いでしょうけれどもね。

「こういう拡張も可能だよ」という一例ということにさせて下さい。



2663 Re^2: ライセンスについて コメント数:  0件
  平野  | hirano@valuenet.co.jp 2003/11/10 (月) 15:25
 http://www.valuenet.co.jp/
ありがとうございました。安心しました。

今後ともよろしくお願い致します。



2662 [要望:低]カーソル行の背景色指定 コメント数:  2件
  にしの 2003/11/07 (金) 09:26
にしのです。

Q&Aの「カーソル行を別の色・フォントで表示する」ではなく、強調された文をそのままに、カーソル行の背景色を描画する機能があったらよいのですが、実装できますか?

一応、PaintLineを修正すればできたのですが。
http://www.overs.jp/software/download/delphi/HEditorWithDrawCurrentLine.lzh
nishinoで検索すると、修正箇所が出ます。
本田さんから返事が来次第、このファイルは削除します。

# もしかしたら、描画上問題があるかもしれません。
# プロパティは単純に変数と直結ですので、変更時に更新するようにしたほうがよいです。

以上、よろしくお願いします。



2661 Re: ライセンスについて コメント数:  1件
  本田勝彦 2003/11/06 (木) 19:16
ご登録ありがとうございます。ライセンスについては、すべてのバージョンにおいて

> (*2) ライセンスについて
> ver 1.60 より利用形態(個人・商用)にかかわらず、
> 3,000円でライセンスフリーと致しました。

こちらを適用して下さいませ。



2660 ライセンスについて コメント数:  2件
  平野  | hirano@valuenet.co.jp 2003/11/05 (水) 11:03
 http://valuenet.co.jp/
ライセンスについて教えてください。

hedit169.lzhについているreadme.txtには以下の記述、

(*2) ライセンスについて
ver 1.60 より利用形態(個人・商用)にかかわらず、
3,000円でライセンスフリーと致しました。

Vectorのダウンロードを見ると以下の記述(こちらはバージョンが古いようですが)

利用条件・試用期間中の制限など
 商用でのご利用は、1ライセンスに付き、3,000円。
 個人でのご利用は、3,000円で、ライセンスフリーです。

--
商用で使用(私一人で開発)しており、ライセンス登録をさせていただいているのですが、hedit169.lzhを使用したアプリの配布に関して、そのエンドユーザーはライセンス料を支払う義務があるのでしょうか?

フリーソフトを開発中なので、肝を冷やしています。



2659 UnicodeのSave/Load コメント数:  0件
  にしの 2003/10/23 (木) 20:05
Unicodeの話題がかなり前に出ましたが、作ってみました。
SaveToFile/SaveToStream/LoadFromFile/LoadFromStream
の4つだけ、単なる補助関数です。
Memo.LinesでもTEditor.Linesでも使用可能です。

http://www.overs.jp/software/download/delphi/strings_uni.lzh
# IKEDA氏のjconvert.pasを使用しています。

今更な気もしますが。



2658 Re^3: バージョンアップス コメント数:  0件
  Km 2003/10/07 (火) 22:50
> 色々読んでみましたが、明確な答えは見つからないようです。
> 動いてはいるが、気持ち悪いので
>
> > 実作業的にはワード単位の置換一発だし、頻繁に更新
> > されているわけではないので困る事ではないのですが。。。
>
> の対応でお願い致します。

わっかりました。私的にはOKです。
調べていただいてありがとうございました。m(_ _)m



2657 Re^2: バージョンアップス コメント数:  1件
  本田勝彦 2003/10/07 (火) 18:48
色々読んでみましたが、明確な答えは見つからないようです。
動いてはいるが、気持ち悪いので

> 実作業的にはワード単位の置換一発だし、頻繁に更新
> されているわけではないので困る事ではないのですが。。。

の対応でお願い致します。



2656 Re: バージョンアップス コメント数:  2件
  Km   | CQE03114@nifty.ne.jp 2003/10/04 (土) 04:16
本田勝彦さん、こんにちは。

> って、ActiveX.pas の IEnumFormatEtc の宣言部は
>
> function Clone(out Enum: IEnumFormatEtc): HResult; stdcall;
>
> になってますが、良いのかしらん?動くことは動きますが・・・

気になってSDKを調べてみると、
HRESULT Next(ULONG celt, FORMATETC * rgelt, ULONG * pceltFetched)
HRESULT Skip(ULONG celt)
HRESULT Reset(void)
HRESULT Clone(IEnumFORMATETC ** ppenum)

となってるんで、ppenumが良いのかも知れませんが、
すみません、自信なしです。
実作業的にはワード単位の置換一発だし、頻繁に更新
されているわけではないので困る事ではないのですが。。。




2655 Re^3: バージョンアップス コメント数:  3件
  本田勝彦 2003/10/03 (金) 21:46
> 了解しました。

って、ActiveX.pas の IEnumFormatEtc の宣言部は

function Clone(out Enum: IEnumFormatEtc): HResult; stdcall;

になってますが、良いのかしらん?動くことは動きますが・・・



2654 Re^2: バージョンアップス コメント数:  4件
  本田勝彦 2003/10/03 (金) 12:22
> function Clone(out enum: IEnumFormatEtc): HResult; stdcall;
>
> とかで使っているenum (4個所)をenumetcとかに換えてもらえませんか?
> enumはC++の予約語のため、BCBだとエラーになってしまいます。
> これを変えてもらえるとBCBで動くんです。
> ご検討よろしくお願いします。

了解しました。



2653 Re: バージョンアップス コメント数:  5件
  Km 2003/10/03 (金) 08:10
> お待たせ致しました。

お待ちしておりました(^^;

> TOleddEditor ver 1.40
> バージョンアップ致しました。

しまった。お願いしておくの忘れました。できたら
function Clone(out enum: IEnumFormatEtc): HResult; stdcall;

とかで使っているenum (4個所)をenumetcとかに換えてもらえませんか?
enumはC++の予約語のため、BCBだとエラーになってしまいます。
これを変えてもらえるとBCBで動くんです。
ご検討よろしくお願いします。



2652 バージョンアップス コメント数:  6件
  本田勝彦 2003/10/03 (金) 01:42
お待たせ致しました。

TEditor ver 2.46
TEditor での OLE Drag & Drop 実装サンプル ver 1.5
TOleddEditor ver 1.40
TStringsPrinter ver 2.3

バージョンアップ致しました。



2651 Re^7: OS機能呼び出し失敗 コメント数:  0件
  本田勝彦 2003/10/01 (水) 21:14
そうか、そうだったんですね。CreateWindowHandle を override することの
意味がやっとわかりました。ありがとうございました。

バージョンアップしますです。