ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室

　　　　　 　 　　　　∫　　　 ＿＿＿＿＿＿＿＿＿
　　　∧,,∧ 　　 　∬　　 ／DelphiやBorlandに関する
　　 ミ,,ﾟДﾟ彡っ━~　　＜　　雑談や質問しながら
＿と~,,　　~,,,ﾉ_. 　∀　　　＼　みなーで、くつろごうや
　　　 ﾐ,,,,/~), │　┷┳━ 　￣￣￣￣￣￣￣￣￣
￣￣￣ .じ'Ｊ￣￣|　┃
￣￣￣￣￣￣￣ 　┻

　　今だ！　2番ゲット！！
　 ￣￣￣￣￣∨￣￣￣￣￣￣￣￣
　　　　　　　.∩∧,,∧　　　　　　 　　　　(´´
　　　　　,,,,,,,,,,ミﾟДﾟ,,彡　　　　　　　 (´⌒(´
　　　ど,,,,　　 　 　,,,,,二⊃≡≡(´⌒;;;≡≡≡
　　　　　 ~''(,,,,,つﾞﾞﾞ　 (´⌒(´⌒;;
　　　　ｽﾞｻﾞｰｰｰｰｰｯ!!

関連スレ
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part4 (ある意味荒らしで逝ってしまっています)
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1002469894
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part3 (誤って削除されたようです)
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001039863
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室 (逝ってしまいました)
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=997348797

　続いてBorland無料版をゲットォォォォ！！！
　￣￣￣￣∨￣￣￣￣
　　　　　 ∧,,∧　　　　　　　　　　(´´
　　 ＼,,,,ミ,,ﾟДﾟ彡　　　　　　(´⌒(´
　　⊂,,,,,,,,,つつ.≡≡≡(´⌒;;;≡≡≡
　　　　　　　　　　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

Borland Delphi 6 Personal ダウンロード
http://www.borland.co.jp/delphi/personal/
Borland Kylix Open Edition ダウンロード
http://www.borland.co.jp/kylix/openedition/
JBuilder 5 Personal ダウンロード
http://www.borland.co.jp/jbuilder/jb5/download/
Borland C++ Compiler 5.5 無償ダウンロードサービス
http://www.borland.co.jp/cppbuilder/freecompiler/

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　;:･･．∴○;･.:∴　　　　　　　*　　　　　☆
|　　　　　　ﾟ　　　　　⊂⊃　　　。
|　　　　 　　　 ☆,,　∧ ∧　　　　　　*
|　　　ﾟ　　　 　　ヽ（ﾟДﾟ*）ﾍ
|　　　　 　*　 　　（□ノ）ﾉﾉ　ﾟ.・∴..*.☆＋
|　　　　　⌒⌒⌒∪∪⌒⌒⌒⌒
|　　　　　⌒　 ⌒　　　 　⌒　⌒
|
|　Delギコさんはお空の上で幸せに暮らしているだろうか
＼
　 ￣￣￣￣　Ο　￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　ο
♪　　 ∧,,∧ﾟ　♪
　　　 ミ,,ﾟДﾟ彡　　♪
　　 　ﾐつ[|lllll］).
　　 ～ﾐ　　ﾐ
　　　　Ｕ''Ｕ

Delphiお勉強リンクは過去スレをみてください。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538

1000

　　　♪　　　　　　　　／￣￣￣￣￣￣￣￣＼ 　　　　　　　♪
♪　　 ∧,,∧　♪　＜ 　 　話題募集中！　　　 ＞　♪ ∧,,∧　　♪
　　　 ミ,,ﾟДﾟ彡.　　♪＼＿＿＿＿＿＿＿＿／♪　　 ミﾟДﾟ,,彡
　　 　 ﾐつ[|lllll］). 　　　　　　　　　　　　　　　　　 　　 ([lllll|］とﾐ
　　 ～ﾐ　　ﾐ 　　　　　　　　　　　　　　　　　　　　　　　　ﾐ　　ﾐ～
　　　　Ｕ Ｕ　　　　　　　　　　　　　　　　　　　　　　　　　 Ｕ Ｕ

　　 ∧,,∧ 　　　 　／￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　　＜ 寒い季節になりました。
　　ﾐ つ且~~　　　＼＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,,,,,　,,ﾐ

[Delphi:61493..61505] 他のフォーム（フレーム）の表示イメージを別フォームに縮小表示したい

って、TCustomForm.GetFormImageだけで済む問題なのじゃなかったかな。

過去スレが過去スレがと言わずに、もう一度話題にしてあげればいいのに。

新スレ祝い
http://mentai.2ch.net/test/read.cgi/prog/1003035584/110-111

見苦しい

　　 　 ∧＿∧∩　／￣￣￣￣￣￣￣￣￣￣￣
　　　 （　´∀｀）/＜　先生！あいかわらずHELPのリンクミスが多いです！
　＿ / /　　 /　　　＼
＼⊂ノ￣￣￣￣＼ 　￣￣￣￣￣￣￣￣￣￣￣
　||＼　　　　　　　　＼
　||＼||￣￣￣￣￣||
　||　 ||￣￣￣￣￣||
　 　 .||　 　 　 　 　 ||

　　＿＿＿＿_
　/......　　..　.../
　||:::　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣
　|￣＼ ﾐ　ﾟДﾟﾐ＜　　ひええええ、Borconの恐ろしい情報だ
　|　　 |:￣U U￣:|＼＿＿＿＿＿＿＿＿＿

確かに、金取りすぎとは思っていたが...BorCon

１万円以下ならフサも逝ってもいいんだけどね。

>>10
多くて報告する気もなくなりますね。

ソース置き場にスレつくってHELPのバグを
積み重ねておきましょうか？

HELPといえば、一つの項目調べるのにVCLとCLXの項目が出てくるの嫌っす。
しかも、内容に差がなかったりするし。

某がやばくなったらMSに吸収される前にOpenにして
OpenKylixとかOpenDelphiなんてのが作られたら別にそれはそれでいいんだけど。
無理だろうな。。。

　　 　 ∧＿∧∩　／￣￣￣￣￣￣￣￣￣￣￣
　　　 （　´∀｀）/＜　先生！あいかわらずDELスレが多いです！
　＿ / /　　 /　　　＼
＼⊂ノ￣￣￣￣＼ 　￣￣￣￣￣￣￣￣￣￣￣
　||＼　　　　　　　　＼
　||＼||￣￣￣￣￣||
　||　 ||￣￣￣￣￣||
　 　 .||　 　 　 　 　 ||

　 　 　|￣￣￣￣￣￣|
　 　 　|よろしくフサ－|
　 　 　|＿＿＿＿＿＿|
　 　 　∧,,∧.. .||
　 　 ミ,,ﾟДﾟミ..|| 　　　Delphiが人気って事かしら？
　 　　ﾐ　 　づΦ 　　あれ、ちがう？
　　～ﾐ　　ﾐ
　 　　U''''.U

　　 　 ∧＿∧∩　／￣￣￣￣￣￣￣￣￣￣￣
　　　 （　´∀｀）/＜　人気ありますね！　2chツールもほとんどDel！
　＿ / /　　 /　　　＼
＼⊂ノ￣￣￣￣＼ 　￣￣￣￣￣￣￣￣￣￣￣
　||＼　　　　　　　　＼
　||＼||￣￣￣￣￣||
　||　 ||￣￣￣￣￣||
　 　 .||　 　 　 　 　 ||

Delばかりやっていて、.net や c# には手を出そうとせず、興味すらない私は
新技術にはついていけないダメプログラマですか。

>>16
ドントヲーリー

>>11
>一つの項目調べるのにVCLとCLXの項目が出てくるの嫌っす。
何とか.zip を展開すると VCL だけが出るようになるんだけど
試した？

試してません。どやるのですか？>>18

常にVCLだけでも困るかな
CLXつかっているときは出てもらわないと。

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　
　　ミ,,ﾟДﾟ彡∬
　　 〃　 つ旦O
　～ﾐ,,,ｎ,,ｎ［￣￣￣.］
　　　　　　　￣￣￣

　 ∧ ∧　／￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟ∀ﾟ)＜　ﾏﾀｰﾘしててｲｲでち
　＠＿）　＼＿＿＿＿＿＿＿＿

　　　　　　　　　＿＿＿＿＿＿＿＿
　　,ﾍ　ﾍ 　 ／
　 ﾐ,,ﾟДﾟﾐ＜　ﾏﾀｰﾘ、日曜洋画劇場を見ますか。
　　ﾐ,,,,,,,,ﾐノ ＼
　　　　　　　　　￣￣￣￣￣￣￣￣

(－＿－) セイントだっけ。。Orbital好きだよ。。

　　　 ／￣￣￣￣＼
　　／　　　　 ●　　●､　　　　　　＿＿＿＿＿
　　|Y　　Y　　　　　　　 ＼ 　　／
　　| |　　 | 　　　　　　 ▼ |　＜ 正直、フリーカーソルはどうにかして欲しい。
　　| ＼／　　　　　　＿人.|　　＼＿＿＿＿＿
　　|　　　　　　 ＿＿＿ノ
　　＼　　　 .／
　　　｜ ｜　|
　　　（_＿）＿） アドインでどうにかできるのは知ってるけど。。。

(-＿-) アドインって。。 http://homepage1.nifty.com/fuu/　これだね。。。

　　　　　　　　 　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ＿＿＿　 　／
　／´∀｀;:::＼＜　>>23 テレホマンはフリーカーソル好きょ
/　　　　/::::::::::| |
| ./|　　/:::::|::::::| ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
| |｜／::::::::|::::::|

　　∧,,∧　 　　／
　 ミ,,ﾟДﾟ彡　＜　フサはフリカソルエディタもノンフリカソルエディタも
　 ,;ﾞ　　ﾐ　 　 　＼普通に使います。慣れたのかな。
　ﾐ.　　ミ 　　　　　VSでCtrl+↑↓が効かないのや
／゛゛゛゛ 　　　　　ブックマークジャンプが、イマイチつかいにくかったり
　　　　　　　　　　　Ctrl+Shift+Rのキーマクロが出来ないのはどうにかして欲しかったり…

　AAの人増えたのかニャー

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／ VC/VBからの乗り換えを支援するのなら
　ミ,,ﾟДﾟ彡＜　 非フリーカーソルの実現はﾌﾟﾗｲｵﾘﾁｰ高め
　 ﾐつ　つ 　＼ じゃないのかニャ
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ

あのアドインは完璧に非ﾌﾘｶにはならないですし。
(D6に対応してくれたのは大変よいのですが)
VSﾕｰｻﾞｰがアドインをすぐに知ることが出来るとも思えない
VSﾕｰｻﾞｰに不便を強いるのはよくなーい。

ユーザーの意見を積極的に反映してもらうためにも
某日NGに匿名で投稿しておきましょうか？
って、匿名でNG投稿する方法わからないや・・・・・・誰か気が向いたらフリカ要望やってちょ。


そういえばJBは非ﾌﾘｶ選択できるのではなかったかな？
技術的には簡単なことじゃニャーか？

DelフサギコさんってDelphiX使うアルか？
堀信者のようにイタク無い事を願うアルよ。。

　　　　∧ ∧　　・・・・。
　　　 ミ ﾟДﾟ彡
　　～ﾐ,,,,uuミ

　痛くならないように気をつけます。
　でも、某に要望出すのは自由だと思うんだ。
　なるべく多くのﾕｰｻﾞｰの声が届きますよにっと。

しかし、堀信者って痛いのですか・・・・・

言語は宗教って、ヘジーも逝っておられるようですし(C#スレで見た)
原理主義みたいになってはいけないですよね。

信者は度を超すと対象が何であれ痛いもんだよ。
で堀信者って何？初めて聞いたんだが。

>>30
堀=DelphiXの作者

ただでさえDelphiスレが多いなか，あえてスレを立てた意図はいかに．＞ >>1

Delスレの乱立は他のスレを圧迫し，Delユーザーの情報収集を困難にします．
あえて立てるからには「面白いから許可！」「これはこれでいい」と思えないと．
（プレッシャーかけてごめんなさい）

あと，Delモナさんのスレへのリンクがないのですが…？

みんなー
モナースレもよろしく！
http://piza2.2ch.net/test/read.cgi/tech/1003113413/l50

　　　　　　∧,,∧l||l 　だから他Delｽﾚが下がっている時に立てたのに…
　　　　 　 ;ﾞ⌒ヽ彡　　ﾄﾎﾎ
　　 　 ～ﾐ＿__ﾐ
　　　 ''" ""''"" "''

>>32
他のDel板は技術的な話をしてるので、Del関係の話題でマターリできるこういう
板があってもいいんでない？

>>32
このｽﾚしか見てないから困難は無い(w

>>35
ばかぼんパパはこう申しております

￣￣∨￣￣￣
　 ∧,,∧
　ミ,,ﾟДﾟ彡
　 ﾐ つ[ |:3ミ ］). ＜ソレデイイノダー
～ﾐ ,,　ﾐ　
　 ∪∪　　

関係ないけど、大阪弁2ch、ﾌﾟﾛｸﾞﾗｰの息抜きにドゾ
http://www.yorosiku.net:8080/-_-http://www.2ch.net/2ch.html

C♯相談室 Part2
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1002468050

名無しさん#さんに感謝しつつ

の、258-261のXMLサンプルを移植したいのですが
簡単に同等機能を実装する方法ありますか？
どなたかご存知でしたら教えてください。

　　 ∧,,∧ 　　　 　／￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟ∀ﾟ彡　　＜ 素直にCﾁｬｰﾌﾟ使えってか。
　　ﾐ つ且~~　　　＼＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,,,,,　,,ﾐ

つまりXMLﾗｲﾌﾞﾗﾘが欲しいなって事かも。

内容見てないけど DelphiEntで無くてXMLなら
XML Parser
http://www.microsoft.com/japan/developer/workshop/xml/general/xmlparser.asp

Delphiへの導入方法
http://www.geocities.co.jp/SiliconValley-SanJose/9156/xml-memo.html
http://homepage2.nifty.com/boheme/delphi/techdoc/dad0080.html

>>38
OpenXMLでいいんじゃない？
MSXMLもある
あとIBMもDLL公開してたような
QuickRTTIで実行時型情報をXML形式で保存してくれるのがどっかにあった
どれも使ったこと無いので
だれか人URL調べてちょ

何で Delphi 関連のスレは平日に盛り上がるのだろうか。
ポイントをついた解答がすぐつくのも謎。
みんな学生じゃないよね？仕事中に質問するのはわかるけど
回答するひとはどんな立場なんだろう？

>何で Delphi 関連のスレは平日に盛り上がるのだろうか。
業務中の2chスレとDelphi-MLのチェックは
プロのDelphiユーザーの義務です(藁

確かに休日は閑古鳥状態だね

Delphi-ML はもっぱらネタの提供元になっているしねぇ。
こっちの方が生きが良いから好きだ。

休みの日ぐらい違うことしたい
今月のＣマガどうだった？
[Part2] Borland DelphiをOpen Tools APIで機能拡張する
買い？

>[Part2] Borland DelphiをOpen Tools APIで機能拡張する
面白そだね。最近Cマガチェックしてないので知らなかったよ。
誰かMLでdelphi media watchスレ立てて
特集記事・連載の解説してくれよ。

>>44
Wizman の記事だね。

(-＿-)　MSXML DOMのサンプルでいいなら。。
　　　　　http://homepage2.nifty.com/boheme/delphi/tips/tec1510.htm
　　　　　でも C# のサンプルは SAX っぽいね。。。

>>35
たしかにモナスレも技術的な話になりつつあるので
マターリスレとしての意味はあるかもしれません．了解しました．
>>34
というわけで泣かないで～(泣)．

>>41
ニフティのFDELPHIで相当お世話になったので，
（数時間後に回答というのも珍しくなかった）
困っている方の質問を見てしまうと
仕事そっちのけで（それはマズイけど）
カラダが勝手にレスを打ってしまうのです．
他人に親切にされると自分も他人に親切にしてしまいたくなるのは不思議．

塞ぎ込

マターリし

今度、ばぐでるわいとやらを使うのでよろしくー

ひくす in 「ＡＲＡＨＩＱＳ」 on Web
ってなくなっちゃったの？便利だったのに。

♪聞いてしぃちゃん　ちょっと言いにくいんだけど
♪あのねしぃちゃん

今日、初めて蒟蒻畑アロエリーナ喰ろうたら　(ﾟдﾟ)ｳﾏｰ
だったの。、アロエのCMがこれだったって初めて知ったの…

聞いてくれてあーりがと　しぃちゃん♪
＿＿＿＿＿　　＿＿
　　　　　　　＼／
　∧∧ 　　 ∧,,∧ ﾌﾞﾗｯｸｼﾞﾝﾁﾞｬ ﾊ ﾉﾝﾀﾞｺﾄ ﾅｲﾉ
　(*ﾟーﾟ)　ミﾟДﾟ,,彡
　ﾉつ旦)　ﾐ(旦⊂ﾐ
て　 ) )　　 ﾐ( ( 　ﾐ～
|￣∪ J￣￣ιし'￣| Ψ ｿｳ ｵﾚﾊ､ｼｮｸﾖｳ
|..　　 　 　 　 　　　 ｜□


XMLの情報サンクスコ、
今日は書泉グランデでいろいろ立ち読みしてきて
疲れたーYO

>>52
調査してみます。

七味唐辛子といい、BCB系はなんで閉鎖するのでしょう？
大変、便利で感謝しちえるユーザーがいるのに～～～

ちなみに七味は、一時期ファイル日付が完全に狂っていたので
ｱｯﾌﾟ時にファイル更新で作者さんがHomepageデータを誤って全削除した
可能性が高いかと思っているのニャガ....

CマガはWizmanさんの記事以外はDelに冷たいので
買ってやらないのーニャ

え！
Wizman てCマガの筆者だったの！？

C マガ筆者への差別反対！

　∩|
　ﾐ ﾞ''ﾞﾞﾞつ
　ﾐ∧,,∧　　　／￣￣￣￣￣￣￣￣
　ミ；ﾟДﾟ彡 ＜　>>55、いや、別に差別しているつもりは・・・
　Ｕ　Ｕ　　　　＼＿＿＿＿＿＿＿＿

OpenToolsAPIの情報はすごく有用なのですが...
もう一押し、前のように中村先生ﾀﾝの記事があれば買ったかも。

でも、考えてみるとCマガってVBには異常に冷酷っすね
VBの情報は他誌で出ているからCﾏｶﾞで扱う必要性がないと
踏まえて編集されているのでせうか。

http://www.google.com/search?q=cache:mGqkFgu_mUk:www.biwa.ne.jp/~shinya-/+ARAHIQS&hl=ja
移動中なだけかも。

　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣ミ,,ﾟДﾟミ￣|　　　＜　　おやすみなさいまー
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿|

>>56
ほら、一応 C (言語) マガジンだった過去を背負っているのよ。

　　　　∧ ∧　　 ／
　　　　（ ﾟДﾟ）＜　もちっとﾍﾟｰｽﾀﾞｳｿで夜露氏久
　　　　 |つ つ　 ＼
　　　～　　 |
　　　　∪ ∪

ｽﾚ傾向としてﾋｰﾄｱｯﾌﾟに向かうのはよろしくないと思う
願わくば肉・野菜・野菜・野菜・肉・野菜・野菜

＞肉・野菜・野菜・野菜・肉・野菜・野菜
ﾜﾗﾀ

　　 ∧　 ∧　にゃ　　。
　　/∂⌒∂　　　　｡ﾟ。｡°
　 （( ┃ ┃ )）　 ☆　°゜
　　彡　ｰ　ミ　／ 　　ご挨拶忘れてたにゃ
　Ｏ（ つ　　つ　　 　　　よろしくにゃ
　 　（ノ　(つ

　　 ∧　 ∧ 。o 0 〇
　　/∂⌒∂
　 （(　- - )）　　 Λ Λ
　　彡　ｰ　ミ　 　ミﾟДﾟ,彡　
　|~~~~~~~~~~~~~~~~~~~~~~~|　

ﾌｻｷﾞｺ ｯﾃ ﾌｻｷﾞｺﾝﾃﾞﾙ ｷﾞｺ ｶﾄ ｲｯｼｭﾝ ｵﾓｯﾀ

　 ∧,,∧　　　 ／　前々から山ほどお世話になっている気もしますが
　ミ,,ﾟДﾟ彡　＜
Π￣￣￣|　　＼あらためまして、コニャニャチワ
|つご挨拶()　　
| |＿＿＿.|
　　∪∪

あめ猫さんAA、マンセー

　　　　　　　　　　||￣￣￣￣￣￣￣￣￣￣||
　　　　　　　　　　||　　フサは　　 　｡　　　 Λ,,∧　いいですか？！
　　　　　　　　　　||フサフサのフサ　＼　ﾐﾟДﾟ,,ミ
　　　　　　　　　　||＿＿＿＿＿＿＿＿⊂　⊂ ,,ミ
　　∧,,∧　　　 ∧,,,∧　　　 ∧,,∧　　　 ...|￣￣￣￣|
　 ミ　　∧,,∧　ﾐ　　 ∧,,∧　ﾐ　　∧,,∧.　|教授　　.│
～（＿ﾐ　　∧,,∧ __ﾐ　　∧,,∧__ﾐ　　 ∧,,∧￣￣￣
　　～（＿ﾐ　　∧,,∧＿ﾐ　　∧,,∧＿ﾐ　∧,,∧ 　はい、教授。
　　　　～（ ,,ミ　 　,,ﾐ～（,,,,ﾐ 　,,ﾐ～（＿ﾐ　 　,,ﾐ
　　　　　　～（＿__ﾉ　　～（＿__ﾉ 　　～（＿__ﾉ

　　　　　　　　　　　∧,,∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　ミﾟДﾟ,,彡　＜　なんてこったい！
　　　　　　　　　　⊂　⊂ﾐ__　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣￣￣￣ ／|
　 　　∧＿∧　 　　　／／|
　 ／ (　　,,　）＿＿／／┌─────────
　||￣/　　 　）　　||／　＜　どうしたの？
　||　（_○_＿_)　　||　　　└─────────

　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 ∧,,∧　　＜ 　AAを１から収集しなおしなんだぞ！
　　　　　　　　 ミﾟДﾟ,,彡＿　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣∪　∪　／|
　　　／∧＿∧　 　　／／|
　 ／　（ ；´∀｀）＿／／┌─────────
　||￣（ 　　　 つ　||／　＜ 　ほっぺに"ミ"付けただけでしょ
　||　（_○_＿_)　　||　　　└─────────

　　　　　　　　　　||￣￣￣￣￣￣￣￣￣￣||
　　　　　　　　　　||　　ほっぺに　　 ｡　　　 Λ,,∧　テストにでますよ！
　　　　　　　　　　||　　「ミ」を付ける　＼　ミﾟДﾟ,,ミ
　　　　　　　　　　||＿＿＿＿＿＿＿＿⊂　⊂ ,,ミ
　　∧,,∧　　　 ∧,,,∧　　　 ∧,,∧　　　 ...|￣￣￣￣|
　 ミ　　∧,,∧　ﾐ　　 ∧,,∧　ﾐ　　∧,,∧.　|教授　　.│
～（＿ﾐ　　∧,,∧ __ﾐ　　∧,,∧__ﾐ　　 ∧,,∧￣￣￣
　　～（＿ﾐ　　∧,,∧＿ﾐ　　∧,,∧＿ﾐ　∧,,∧ 　はい、教授。
　　　　～（ ,,ミ　 　,,ﾐ～（,,,,ﾐ 　,,ﾐ～（＿ﾐ　 　,,ﾐ
　　　　　　～（＿__ﾉ　　～（＿__ﾉ 　　～（＿__ﾉ

　　 ,∧,,∧∩ 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ 彡＜　唐突ですが、ｼﾂﾓｿです。
＿_ミ ﾐ　　ﾐ 　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
＼,,∪ ￣￣￣＼
||ヽ||￣￣￣￣||"
　...||￣￣￣￣||

Delphi6Pro辺りでｲﾝﾀネット経由のIMのような
チャットシステムは簡単に出来ますでしょうか。
なんとなくデキそ　で　デキナサそ　なｱﾝﾆｭｲな感じがしています。

IndyのDemoみてもそういうの蜜からニャです。

\Demos\Internet\Chat
こちらは使い方がわかりません。

>>67
あのね。いわゆる IM は、実は Point To Point/ Peer to Peer ではなくて
サーバーを一回経由しているの。だから FireWall の内側同士で会話できるの。
やってることは Web 掲示板を使ったチャットと同じなの。
だから「チャットシステムは簡単に」できるんだけど、プロトコルを決定する必要が
あるの。または既存の IM とつなぐ場合にはプロトコルを解析する必要があるの。

だからプロトコル設計が肝でインターネットコンポは実現のための道具にしか
過ぎないのよ。

.. 探してみるとあるもんだ。

http://www.morphtek.com/
Instant Message Component
Indy を使った D5/D6/Kylix 用、P2P コンポーネント群

あげ

>>68情報ThanxCo。だけど
　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　さっぱりわからニャイ
　ミTДT彡＜　 何をインストールすればいいかすら…
　 ﾐつ　つ 　＼
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ 　ｲｷﾅﾘ ど挫折...


ﾅ･ﾅﾅｼﾞｳGet～

こんちは。ヽ(´ー｀)ノ

>>38
MSXMLを使えば「そこそこ」簡単にできると思われ。
書き込みはSAX、読み込みはDOMという感じで。

でも、C#でサンプル作ろうと思ったらあっさり挫折。（藁
（VB.NETの方がはるかに楽そう。）
DelphiのCOM interopの場合はどうなんだろう．．．？

>>名無しさん#さん
　　　　　　♪
　　♪ 　　　　　　　　　　お世話になって
♪ 　∩ ∧,,∧　　　♪
　　　ヾミ ﾟДﾟ彡　ﾌｯﾌﾌｻ　ﾌﾌｻ　ﾌﾌｻ
　　　　ヾ ⊂ ヾ　　ﾌｯﾌﾌｻ　ﾌﾌｻ　ﾌﾌｻ
　　　　 Ｏ-､　）～
　　　　　　　U

　　　　　　　　　　♪ 　おりまするー
　　　　　　　♪
　♪　 　 ∧,,∧　　　　　♪
　　　　 ミ ﾟДﾟ彡⊃　ﾌｯﾌﾌｻ　ﾌﾌｻ　ﾌﾌｻ
　　　ヽ⊂　　 ﾐ　　　　ﾌﾌｻ　ﾌﾌｻ　ﾌｯｻ～ﾙ
　　　 ⊂,,, 　 ﾐ
　　　 　　 し″

ﾌｻはいまいちわかってません。
どなたか、救いの手を...(他力本願ﾏﾝｾｰ)

>>Delふさぎ湖

おまえ実はDellギコそのものじゃないの？

>>73
そのことにふれちゃいけません。

>>73 まず違う。てかDellギコってだれ？

>>75
(ﾟДﾟ)ﾊｧ?

>>72
ソース置き場使わせてもらいました。
ということで、MSXMLのサンプル。（VB.NETだけど．．．。）

　http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049&res=2

Delphiスレがいっぱいあるんですが、それぞれ対象は何（誰）なのか教えてください。

■キャラ物■
　モナーの *やさしい* Delphi質問スレ
　http://piza2.2ch.net/test/read.cgi/tech/1003113413/
　簡単な質問にモナーが答える筈なんですが・・・
　質問が結構難しいようで・・・

　ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室
　http://piza2.2ch.net/test/read.cgi/tech/1003664165/
　フサギコとお話しましょうというスレです

■質問類■
　Borland Delphi初心者用お勉強スレ
　http://piza2.2ch.net/test/read.cgi/tech/1001035627/
　D6を落として初めて使う人の質問を主に扱います

　Delphi相談室その２
　http://piza2.2ch.net/test/read.cgi/tech/995950803/
　TIPSや技術的な相談室です。中級上級向

■夢と希望■
　★クライアントサイド最強の Delphi に物申す★
　http://piza2.2ch.net/test/read.cgi/tech/1001442200/
　Delphiにこんな機能があったらいいのに、とかの話題です

■廃■
　Delphi/Kylix Tech 2nd
　http://piza2.2ch.net/test/read.cgi/tech/993005709/
　DelphiMLというメーリングリストのウオッチになってしまいました

>>79
分かりました。質問は「質問類」のスレですればいいんですね。
ありがとうございました。

>>80
見ている人は全部見ているからあまり気にせんでよいよ。
規則が無いのが 2ch

MSXのMLってやっぱMSXMLなの？(w

　　 ∧,,∧ 　　　 　／￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　　＜ >>79　分類わけ、どもーありがと
　　ﾐ つ且~~　　　＼＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,,,,,　,,ﾐ
、近頃ネタ不足なので、息抜きにでもAAドゾ

　　　　　　　　　　　　 　 ∧ ∧
　　　　　　　　　　　 ソ￣(,,ﾟДﾟ)
　 　 ／|￣￣￣￣￣￣　ヽ) ヽ)￣￣￣|
　　　|　| |￣￣￣￣￣￣￣￣￣￣￣| |
　　　|　| |　GIKO　MANZAI　　　　　 .| |
　　　|　| |　　　∧ ∧ 　　 ∧,,∧ 　　／￣￣￣
　　　|　| |　　 （,,ﾟДﾟ）　　ミﾟДﾟ,,ミ ＜　逝ってヨシ
　　　|　| |　　　| つつ ¶　(ﾐ　　ﾐ）　　＼＿＿＿
　　　|　| |　 ～　　 |　 ||　 ﾐ　　ﾐ～　　| |
　　　|　| |＿　 ∪∪　 ||　 ∪∪__＿＿| |
　　　|　| 　　|￣￣￣￣￣￣￣| ・・ロ　|
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　こんばんちはー、ギコーズです。
＼
　 ￣￣￣|/￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 ∧ ∧　 　　∧,,∧
　 　 　（,ﾟДﾟ,） 目 ミﾟДﾟ#ミ
　 　 　 |つ つ ..||　(ﾐ　　ﾐ）
　 　 ～　　 |　 .||　 ﾐ　　ﾐ～
　 　 　 ∪ ∪ . ||　 ∪ ∪
　 ＿＿＿＿＿＿＿/|＿＿＿＿＿＿＿
／
|　どっちが[ギ]でどっちが[コーズ]だ　ｺﾞﾙｧ
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　 　 /|
／￣￣　￣￣￣￣￣￣￣￣￣￣￣￣
|　そんな分け方してません。
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　S　A　G　E　！！
＼＿＿＿＿＿＿＿＿　＿＿＿＿＿＿＿
　 　 　 　 　 　 　 　 　 |/
　 　 Σ∧ ∧　 　　∧,,∧
　 　 　（#ﾟДﾟ） 目 ミﾟДﾟ,,ミ
　 　 　 |つ つ ..||　(ﾐ　　ﾐ）
　 　 ～　　 |　 .||　 ﾐ　　ﾐ～
　 　 　 ∪ ∪ . ||　 ∪ ∪
　 　 　 /|
／￣￣　￣￣￣￣￣￣￣￣￣￣￣￣
|　思いっきりAGEとるがな！！
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　A　G　E　！！
＼＿＿＿＿＿＿＿＿　＿＿＿＿＿＿＿
　 　 　 　 　 　 　 　 　 |/
　　　　　　　　　　　　　 ∧,,∧
　　　　　　　　　　　　⊂ミ,,ﾟДﾟ彡つ
　 　 Σ∧ ∧　 　　∩∧＿∧∩
　 　 　（；ﾟДﾟ） 目　ヽ（　´∀｀）ﾉ　ﾀｶｲﾀｶｰｲ
　 　 　 |つ つ ..||　　 （　　　　）
　 　 ～　　 |　 .||　　 ｜ ｜　|
　 　 　 ∪ ∪ . || 　　（_＿）＿）
　 　 　 /|　　　
／￣￣　￣￣￣￣￣￣￣￣￣￣￣￣
|　ｱﾝﾀ誰！？、、Delモナさん？
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　別人だ
＼＿＿＿＿＿＿＿＿　＿＿＿＿＿＿＿
　 　 　 　 　 　 　 　 　 |/
　 　 　 ∧ ∧　 　　∧,,∧
　 　 　（ﾟДﾟ,,） 目 ミﾟДﾟ,,ミ
　 　 　 |つ つ ..||　(ﾐ　　ﾐ）
　 　 ～　　 |　 .||　 ﾐ　　ﾐ～
　 　 　 ∪ ∪ . ||　 ∪ ∪
　 　 　 /|
／￣￣　￣￣￣￣￣￣￣￣￣￣￣￣
|　本人はこう申しております。
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　「もどってきて！」って言ってくれた方々ありがとう
＼＿＿＿＿＿＿＿＿　＿＿＿＿＿＿＿
　 　 　 　 　 　 　 　 　 |/
　 　 　 ∧ ∧　 　　∧,,∧ ﾃﾚﾙｾﾞ
　 　 　（；ﾟДﾟ） 目 ミﾟДﾟ*ミ
　 　 　 |つ つ ..||　(ﾐ　　ﾐ）
　 　 ～　　 |　 .||　 ﾐ　　ﾐ～
　 　 　 ∪ ∪ . ||　 ∪ ∪
　 　 　 /|
／￣￣　￣￣￣￣￣￣￣￣￣￣￣￣
|　別人って言ったばかりでしょ・・・・
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　TVつまんねー。もう寝よう…
＼
　 ￣￣￣￣￣￣￣￣￣￣∨￣￣￣￣
　　　　　　　　　　　 　 　 ∧ ∧　Zzz...
　　　　　　　　　　　〃'￣(,,-Д-) 　　　　ﾓｯﾄ Delphi ﾈﾀ ﾃﾞﾅｷｬ
　 　 ／|￣￣￣￣￣￣￣￣￣￣￣￣.| "めも電卓"ｸﾗｲ ｻﾞﾝｼﾝﾅ ﾈﾀ ｶﾞ･･･
　　　|　| |￣￣￣￣￣￣￣￣￣￣￣| |
　　　|　| |　　　　　　　　　　　　　　　　| |
　　　|　| |　　　　　　　　　　　　　　　　| |
　　　|　| |　 　 放　 送　 終　 了 　 　| |
　　　|　| |　　　　　　　　　　　　　　　　| |
　　　|　| |　　 　 　　 JOGX-TV　　　 | |
　　　|　| |＿＿＿＿＿＿＿＿＿＿＿| |
　　　|　| 　　|　　　 　 　 　 　 　| ・・ロ　|
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

そんなに暇ならフリーで2wayなUMLモデリングツールでも作ってくれ

　　　 （○）
　　　 ヽ|〃
　 ＿|三三|＿　　／￣￣￣￣￣
　 ヽﾐ ´∀｀ﾐノ ＜　ガミワヅナツ、ミヤミヒユアネメーハ！
　　　彡ﾉﾉﾐ　　　 ＼＿＿＿＿＿
　　　丿　>

>>83-90
ﾜﾗﾀ。このスレはﾏﾀｰﾘ逝きたいですね。

　　　　∧,,,,∧／）　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 　 彡,,・ー・ミ/ 　＜　したらば～
　　　　(　　＠ ⌒ヽ 　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　丶_)　（ ⌒"
　　　　　　ヽ__）

　　　　∧,,,,∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　彡,・ー・,ミ　＜　よろしくにょら
　　　⊂　＠ つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　ヽ |　　 |
　　　　 ∪ ∪

　でる　　　　　　　　ふぁい　　　　まん　　　　　　　せー♪

　　　　　　　　　　　　∧,,∧　　　　 ∧,,∧　　　　　　 ∧,,∧
　 ∧,,∧　　　　　　∩・ー・ﾐ)　　　ﾐ・ー・彡　　　　　ミ・ー・ﾐ
　ミ・ー・ﾐ　　　　　　）　＠丿　　　⊂＠⊂ヽ　　　　　|つ＠つ
　 ( つ＠つ　　　 ～|　　 /　　　　　　ヽ⊂,,）～　　 ⊂,,　 丿
　 て　） ） 　　　　　（/''（/　　　　　　　　ヽJ　　　　　　　∪　

　　　∧,,∧　　　／￣
＠,,,ミ,,ﾟДﾟ彡　＜　したらば、かわイイd(･∀･)
⊂,,,,,,,,,つつ.　　＼＿

　　ｶﾜｲｰｽｷﾞ！

>>94
＠はカラータイマーですか？

ネタがないなら上げるなあほ。AA はネタと一緒に書けよ。ぼけ。
また煽られるぞ。

　　ﾁｺｳﾖﾚ　　
　　　∧,,∧∧∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ミ,,ﾟДﾟﾐ・ー・彡　　　　＜　しーちゃん、ゴメンネ
＿と~,,,　　ﾐ,＠⊂| 　∀ 　V 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　 .ﾐ,,,/~),(（ ﾉ～┷┳┷
￣￣￣ .し'J ∪￣|..　┃
￣￣￣￣￣￣￣ 　 .┻
　 ＿∧＿＿＿＿＿＿＿＿＿
／しーには内緒だぞ。。。




かわいくて作ってしまいました...ｽﾏｿ>>94-95
したらばが、♂か♀かも知らないのに…

いや、むしろ、かわいければ♂だって♂でも♂しか、むしろ♂の方が、、、

ところで、上沼恵美子似の歌手は
なぜ、つんく♂(ﾂﾝｸﾁﾝｺと読むのか？)という名前なの？

　　今だ！　100番ゲット！！
　￣￣￣￣∨￣￣￣￣
　　　　　 ∧,,∧ 　
　　　　　ミ,,ﾟДﾟ彡　　　　　　(´´
　　　　　ﾐ つ且~~　　　　(´⌒(´
　　　～ﾐ,,,,,,　,,ﾐ ≡≡(´⌒;;;≡≡≡
　　　　　　　　　　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

●芸能人の「つんく」はどうして「つんく」という名前なんですか？
また、最近つんくさんは語尾に「♂」がついてつんく♂になりましたがそれにはどう言う意味があるのでしょうか？
http://homepage2.nifty.com/yurai/name7a.htm#つんく

>>91
2wayじゃないけど、Delphiのダイアログページでやや満足かと・・・

　　|
　　|_∧　ｼﾀﾗﾊﾞ…
　　|－ﾟ)
　　⊂|
　　|　～
　　|∪
￣￣￣￣￣￣￣

よってたかってﾈﾀｽﾚか(w

じゃ、まともなネタでも。Delphi6 Only。Borland Community より

コード補完の失われた機能

「新しい IDE 機能」としてリストアップされている機能の一つが提供されていなかった。

Help より引用
ルーチンの本体内の空白行上でコード補完機能を手動（〔Ctrl〕+〔Space〕）で呼び出すと，
（現在のユニットで使用されていない場合でも）追加の RTL ユニットのシンボルがポップ
アップリストボックスに表示されるようになりました。

これはレジストリの定義ミスです。


[HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\Code Insight]
"ExtraUnits"="Classes;ComConst;ComObj;ComServ;Contnrs;ConvUtils;DateUtils;HelpIntfs;IniFiles;MaskUtils;
Masks;Math;MtsObj;RTLConsts;Registry;StdConvs;StdVCL;StrUtils;SyncObjs;TypInfo;VCLCom;VarCmplx;VarConv;
ShareMem;SysConst;SysUtils;Types;VarUtils;Variants"

（長すぎるんで途中で改行入れてあります。常識に従って編集してください）
これを D6Cmplt.reg として保存後、RegEdit に食わせるとここで定義したユニットに関しては
Uses 節に指定されていなくてもコード補完の対象となり、さらに追加した識別子を定義している
ユニットが Uses 節に無いときには勝手に挿入してくれる。

　／￣￣￣￣￣￣￣
　|　なんかネタにされているモナー >83-90
　＼＿＿　＿＿＿＿
　　　　∨　　　　＿＿＿
　　　∧＿∧　　|｜＼　　 ＼ ￣| ￣｜
　　（　 ´∀｀）　 |｜　｜￣￣｜｜： ｜
　┌（　　つ／￣|｜／　￣￣/ ｜＝｜
　｜　ヽ　|二二二」二二二二二二二二」
　　￣］|_＿）　　|　|　　　　　　　 |　|
　　／￣＼　 ／　 |　　　　　　／　 |
　 ◎　　◎ ［＿＿」　　　　　［＿＿」

自分の得意系の質問がないのでまともに答えられない日々・・・。
しかしDelフサギコさんは、かつてのDel〇コ師匠を思い起こさせてくれる良い存在だ。

Del6pro欲しい今日この頃。

program Project1;
uses Windows, ShellApi;
begin
　ShellExecute( 'OPEN', PChar(ParamStr(0)), '', '', SW_SHOW);
end.

>>105
ブラクラ

>>103　かっこいい！どこからそんな情報が・・・

　 ∧,,∧　　　 ／
　ミ,,ﾟДﾟ彡　＜　 ところで、便利なArrowコンポーネントはないですか？
Π￣￣￣|　　＼　上下左右しか矢印が書けないショボいのとか
|つｷﾎﾞﾝﾇ()　　　　斜めが書けても、TviArrowExくらいしか見つからない。
| |＿＿＿.| 　　　　もっとﾋﾞｸｰﾘするくらい矢印が書きやすいものがありそうかと
　　∪∪　　　　　　思うの・・・・ないのかな。

>>103
転載させてもらいました
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003919990

>>108
あっちにも書いたけど，RegEdit に渡せる形式でなかったことと
Enterprise 版にあるユニットが入っているため下位の版ではうまく動かん。

修正した Enterprise 版のファイルをあっちにアップしておきます。

直ﾘﾝです
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/file/1003919990_3/D6CmpltEnt.reg

>>107
どんな矢印を書きたい？
希望する機能を全て書いてみてよ。
つくってあげる…かも。

　 　|
電　|
　 　|∧,,∧
柱　ﾐ,,ﾟДﾟ彡　＜ちょっと無茶っぽいこと言っていいかしら>>111さん
　　⊂　ミ
　 　|,　,,ﾐ
　 　|∪
, '　,　;　'　;

最理想はD6ダイアグラムページの矢印なのだけど
捕まえグリッド(マウスでつかめる黒い点)の
実装がかなり手間ですのでそれはあきらめて

TShapeのようなクラスを３つ用意して

TArrowOrigin(始点)
TArrowLine(線)
TArrowEndPoint(終点)

これらがそれぞれをpropertyで関連づいて
任意の"角度"で三角形やらひし形やら丸やら四角を
枠と中身を任意の色やStyleで描画できるようにしておくと

RADのみで
かなり自由度の高い矢印がかけるのではないでしょうかと
思ったりしています.

TArrowContactPoint(接点)を用意して

始点-線-接点-線-接点-線-終点

と組み合わせたら折れ線も書けそう。

良く知りませんがベジェ曲線みたいな拡張も可能かも...

組み合わせ時にコンポーネント同士の位置関係に気配りが必要。
連動して動くといい感じですね。

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　それより、TImageを継承して
　ミ,,ﾟДﾟ彡＜　　設計時クリックした2点間に指定した形の始点終点で
　 ﾐつ　つ 　＼　矢印描画したほうがいいか。
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ
　　　　　　我ながらよい設計は思いつきませんが...

米国テロの影響で配送が滞っていたThe Delphi Magazine Vol.73がやっと届いたので
読んでいたら、こんなのが紹介されてた。
Bold for Delphi
http://www.boldsoft.com/products/bfd/index.html

ビジネスソフト開発用だけど、DelphiアプリをUMLでデザインできるみたい
試してないけど。

>>113
http://www.devexpress.com/products/vcl/exforlib1.asp
の
dxfConnector
は？

>>114
... 白い粉，まざってない？

>>116
フケとか？

>TShapeのようなクラスを３つ用意して

>TArrowOrigin(始点)
>TArrowLine(線)
>TArrowEndPoint(終点)

>これらがそれぞれをpropertyで関連づいて
>任意の"角度"で三角形やらひし形やら丸やら四角を
>枠と中身を任意の色やStyleで描画できるようにしておくと

？　コントロール矩形に内接するひし形、三角形、楕円、長方形、正方形、円を　任意の境界色、スタイル、塗りつぶし色、塗りつぶしスタイルで描画できるって事かな。

矢印は、矩形の辺に平行、対角線のどちらかを選ぶって事か。
でも気を付けないと矢印の”棒”は描けても、スペースが足りなくて”矢じり”が描画できないことってあるよね…

>>118
GrapihcControlは　親のDCハンドルを貰って描くから　ハミダシテも描けるよ
はみ出していいかどうかは別にして

しまった。　TGraphicControl でも　 IntersectClipRect　されて渡されるから外には描けないや

>107
もと
http://community.borland.com/article/0,1410,27913,00.html

ボブさんちはBorland系の最新情報をまとめてチェックできるから良いぞ。
http://www.drbob42.com/
kylix2の話もでてるな。

という事で、
TMyArrow = class(TGraphicControl)
private
　 Arrow :TGraphicControl;
　 FArrowSize: Integer;
　 procedure SetArrowSize(const Value: Integer);
public
　 constructor Create(AOwner:TComponent); override;
　 destructor Destroy;
　 procedure Paint;override;
published
　 property Anchors;
　 property ArrowSize:Integer read FArrowSize write SetArrowSize;
end;
　として、
type TMyArrowhead = class(TGraphicControl)
procedure Paint;override;
end;
矢尻だけのコンポをローカルに定義して

constructor TMyArrow.Create(AOwner: TComponent);
begin
inherited;
Arrow:=TMyArrowhead.Create(Self);
(AOwner as TWinControl).InsertControl(Arrow);
ArrowSize:=10;
end;

　と作成してオーナーに一緒に登録すればなんとかなるかも

質問です
procedure Tjotai_real.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
　文
end;
上の文をFormCreateで呼ぼうと思っImage1MouseDown(Sender,mbLeft,ssShift,0,0);
をしたのですが「TshiftStateとEnumerationには互換性がありません」って警告が
出ます。
どうしたら良いでしょうか？

TshiftStateとEnumerationには互換性がないんですよ。

>>123
あら？Delphi6 じゃないね？

>>123
TShiftStateは集合型。
ssShiftはTShiftStateの要素の列挙型。
集合型として書くには、 [ssShift] として ssShift要素だけが
ある集合にする必要がある。

言語ガイドで集合型あたりを読むこと。

列挙型じゃね？
[ssShift]

>>127
ssShift の方が列挙型
[ssShift] として集合型にする必要がある。

すいません。
Kylixです。

img1MouseDown(Sender,mbLeft,[ssShift],0,0);

これで解決しました。
ありがとう御座います。

　　,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,ミ,,ﾟДﾟ彡 ＜　サンクスコ。
　 UU""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

>>115
矢印のサンプルはないのですね。ぜひ見てみたい。
いいのがそろってますねー。

実行時マウスでコントロール移動可能コンポと
矢印を組み合わせたら,,,簡易UMLツールじゃないかな！

>>118
>？　コントロール矩形に内接するひし形、三角形、楕円、長方形、正方形、円を　任意の境界色、スタイル、塗りつぶし色、塗りつぶしスタイルで描画できるって事かな。
別に内接はしなくてもいいのですが、そういう事です。
任意角で描画可能なのが大切
矢印の線と始点終点の形が一致しなきゃいけませんよね。

でもコンポを組合すのはどうもだめっすね
┌─────┬─┐
│　　　　　　　 │　│
├─┐　　　　 └─┤
│　 │　　　　　　　 │
└─┴─────┘

こういう領域を自分で設定して
左下から右上に線を描画
左下で始点を描画、右上に終点を描画

こうしたら解決しそう。

矢印の矢じり角度を90度以上にも設定できるように
なるのがいいですね。

>>122
そうか。矢じりだけの矢印も使いたいから(使いたいの？)
それ自体一つのコントロルにしてしまって
内部に持つのはいい感じニャー！！

>>121
レジストリ情報(>>103)なりね。サンクスコ

内接しなくていいんだとすれば
　　設計時に、マウスで設定出来るようにすればいいかも


TGraphicControlでも
　WndProcを継承して
if (csDesigning in ComponentState) then Dispatch(Message) else inherited;
　みたいにやれば設計時にメッセージを貰う事が可能みたい。

作るなら、矢印ひとつじゃなくて
　線とか箱とか文字箱とかを表示出来て編集出来るコンポがいいな

データはTStringsプロパティで
Arrow x0,y0,x1,y1
Box x0,y0,x1,y1
Msg x0,y0,x1,y1,"メッセージ"

みたいに

でるふぁい入門書教えて欲しいの。
ぷろぐらみんぐ経験はＣがちょこっと
Perl(CGIで)を少々。
双方ともにコマンドラインからしか操作してないの。
だからWindowsとかでWindowぱかっと開くの作りたいの
(Tkでチャレンジしたけどしんどかったの。)

の。

>>134
　 ∧,,∧ ──────
　ﾐﾟДﾟ,,彡 ＜ >>4のリンック先みてチョー
　⊂⊂　ミ──────
　　　 ヾ　,,ミ～　────
　　　　 し しﾞ　─────

ためしにちょっとつくってみた。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049
の４に KShape.pas が置いてあるから、インストールしてみて。
Saw.enabled プロパティを有効にするとなんだかバぐるので
注意してね。
再描画に問題あり。どうやって解決するんだ？

>>136
再描画されないし。
こんな程度の腕でつくってあげるなんてぬかすな

　　 ∧,,∧ 　　　 　／￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　　＜ 　>>137厳しいでござるな
　　ﾐ つ且~~　　　＼＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,,,,,　,,ﾐ

>>132
ナイスな情報ありがとございます。

>>133
それは暗に、UMLツールを作れという指令ですか?。。。。。。。。。。。。。ﾟДﾟ；；；

>>136サンクスです。試してみます。
矢印コンポといえば、
昔の日経ソフトの連載で出ていたり
D4プログラミングバイブルに載っていたりしますので
その辺りを調査するのもいいかもね。

あと、DSPやTorryで探せば二つくらいみつかりますよ。

>>137
まあ落ち着きなさいって。世の中にはコンポすらつくれないＤＥＬプログラマが何人いることか…

＞何人いることか…
たった何人なのか（ｗ
微妙なフォローにﾜﾗﾀ

　ソースUpするの　恐いにゃ～

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999294620&res=25

マウス左で矢印の先と尻尾をドラッグ移動出来るかの実験コンポだから
　範囲外にドラッグしようとしたらとか考えてない

それとマウスで動かした時にプロパティエディタを更新する方法が判らん

Delphi 6 ドキュメントアップデート・ダウンロードサービス
http://www.borland.co.jp/delphi/del6docup.html

IBX のヘルプ、pascal 化されとる。

>142

http://piza2.2ch.net/test/read.cgi/tech/1001442200/l50

某の人がここ読んだんじゃない?

>141
published
property Source: TWinControl;
property Destination: TWinControl;
property Space: Integer; default 4;
が欲しいかも

>>143
>某の人がここ読んだんじゃない?

読んでるのは事実でしょ。こないだもあっという間に誤字が直ったし。
けど、これは関係ないでしょ

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　あめ猫さん。すっげーーーー！！！
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧,,∧　♪ 　　　すばーらし！
　　　 ミ*ﾟДﾟ彡　　♪
　　 　ﾐつ[|lllll］).
　　 ～ﾐ　　ﾐ 　　ﾂｶｲﾔｽｲ!!!
　　　　Ｕ''Ｕ

>>141　別にOE更新しなくてもGetが正しければ
よいと思いますよ。
>>141のリンク先のソースはHTMLソースから
取得するとヨシ。

あとは
　　　　　　　│＼
　┌───┘　　＼
　│　　　　　　　　　 ＼
　│　　　　　　　　　 ／
　└───┐　　／
　　　　　　　│／
やら

　　　　　　　 　　　　　｜＼
　／＼　　　　 　　　　｜　 ＼
　＼／ ￣￣￣￣￣ ｜　 ／
　　　 　　　　　　　　　｜／

こんなのをサポートしてほしいっす！
前後に端点がつかない単なる線だけも欲しいし
LineのWidthとか点線とかサポート
とか。わがままいってしまいますニャ。

あと矢印の端点捕捉のマウス認識範囲はもう少し広いのがよいいです！


いや、やれといわれりゃやりますが。

うーん。CanResizeとかああやっているのかなるほどなあ。

function TMyArrow.DesignProc(var Message: TMessage):boolean;
をを。なんだこりゃ。。。

Indyの最新β(9.0.2)、インストールできなくない？
日本語版のパッチは判別してくれないのかな…。

３時間程CGIのメンテしますので、少々お待ちくださいませ

>>147
そうじゃなくて.

D6 付属のものは Ver8
"A patch is now available for Indy 9.0.2" は
9.0.2-B　に対するパッチ。ということ。まず最初に 9.0.2 を落とさないと。

　　 　　　∩,,,,,,,,,,,∩ ,,,_ >>146
　　　～⊂｀'''''''''ミ｡Д｡ミ⊃　　ｱﾎﾞｵｰﾝ
　　　　 　｀'''''''''''∨ ∨

　OE⇒OIだった。オブジェクトインスペクタでOEって間違うなんて…

これは何に使うの？＞矢印

>>149
ごめん言葉がたらなすぎた。
Indy9.0.2をインストールしようとすると、Delphi6のアップデートをしてないとインストールできませんよ
というメッセージが出る。
すでにアップデートパッチを当てているのに。
なので日本語版のアップデートは認識してくれてないのかな、と。

と、数日前にはインストール失敗していたんだけど今やったら出来た。
すいません。 152とかは無視して。

たびたびすまん。やっぱり失敗。
Indy9.0.2-Bをインストールしようとすると、
"This installation requires Borland Delphi Service Pack 1 ..."
とのメッセージが。
とりあえず9.0.1を使っていますが。

>151
>これは何に使うの？＞矢印
フサギコがDel用2wayUMLツールを作ってくれるそうです

おぉ～、フサギコマンセー
完成した暁には、プラスチックの下敷きで、ナデナデしてあげよう

>>156
warata

　　＿＿＿＿＿
　　±±±±±
　　￣￣￣￣￣
　　　 ∧M∧　　・・・・。
　　　 ミ ﾟДﾟ彡
　　～ﾐ,,,,uuミ

作"れ"ません。

（作"り"ませんに非ず)

矢印は矢じるしたい時に矢じってください。

シクシク
俺のは誰も評価してくれないのか…
評価してくれたのは1人
それも煽り…

>>154
インストーラーの問題かな？
ソースコードキットを使って，ビルドしたら？

>>159
　　--------∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣
～□□ □□ ( ﾟДﾟ)＜　そんな時もあるさ。精進せぇよ
　U U U U U U-U　　 ＼＿＿＿＿＿＿＿＿＿＿

>>146
ええと、設計時に動かせるかどうか試したいだけだったから
　あめ猫はこのまま拡張する気はないにゃ。ひとつのキャラクタ
を一つのコンポにする方法だと複数のキャラクタが重なった時に
操作させるには、結局操作点を別のcontrolにしてZオーダ上げたり
させなくちゃいけない。
どうせやるなら >>133 みたいに複数のキャラクタを一つのコンポ
内で操作出来るコンポを作りたいにゃ

操作点の有効範囲は
　　　if hypot(ArrowSx-Xpos,ArrowSy-Ypos)<4 then FMoveS:=true
else if hypot(ArrowEx-Xpos,ArrowEy-Ypos)<4 then FMoveE:=true;
この行で４ピクセルとキメうちしてる
　この範囲に入ったらマウスカーソルを変更させるとか操作点の範囲
を画面に描くとかすると格好いいかも

>>136
　チラっと見たら プロパティの変更時とかにpaint直接呼んでる
けど、Invalidateで無効を宣言するだけにした方がいいと思う

　　　　　　　│＼
　┌───┘　　＼
　│　　　　　　　　　 ＼
　│　　　　　　　　　 ／
　└───┐　　／
　　　　　　　│／ 　この表示したい時の Paint例
procedure TMyArrow.Paint;
var h,c,s,wc,ws,vc,vs:double;
var Head:array [0..7] of TPoint;
begin
wc:=cos(PI*ArrowHeadAngle/180)*ArrowHeadSize;
ws:=sin(PI*ArrowHeadAngle/180)*ArrowHeadSize;
h:=Hypot(ArrowEx-ArrowSx,ArrowEy-ArrowSy);
c:= (ArrowEx-ArrowSx) / h;
s:= (ArrowEy-ArrowSy) / h;
h:= ArrowHeadSize*0.25;
vc:=wc;
vs:= h;
with Head[0] do begin X:=ArrowEx; Y:= ArrowEy; end;
with Head[1] do begin X:=ArrowEx+Round( +s*h );Y:=ArrowEy+Round(-c*h);end;
with Head[2] do begin X:=ArrowSx+Round(c*vc+s*vs);Y:=ArrowSy+Round(-c*vs+s*vc);end;
with Head[3] do begin X:=ArrowSx+Round(c*wc+s*ws);Y:=ArrowSy+Round(-c*ws+s*wc);end;
with Head[4] do begin X:=ArrowSx; Y:= ArrowSy; end;
with Head[5] do begin X:=ArrowSx+Round(c*wc-s*ws);Y:=ArrowSy+Round(c*ws+s*wc);end;
with Head[6] do begin X:=ArrowSx+Round(c*vc-s*vs);Y:=ArrowSy+Round(c*vs+s*vc);end;
with Head[7] do begin X:=ArrowEx+Round( -s*h); Y:=ArrowEy+Round(+c*h);end;
with Canvas do begin
Polygon(Head);
if (FMoveS or FMoveE) then
begin
Ellipse(ArrowEx-4,ArrowEy-4,ArrowEx+4,ArrowEy+4);
Ellipse(ArrowSx-4,ArrowSy-4,ArrowSx+4,ArrowSy+4);
end;
end;
end;

>>163

長方形と三角形のリージョンつくってＯＲ結合するとすごく簡単だよ

長方形でないグラフィックなコンポなら、
Delギコの得意なフックで書けばいいんじゃないの？

sage進行見っけ

>>164-165
　サンプルコードきぼーん

　　　　　　∧,,∧l||l 　昨日道に倒れてた交通事故にあった猫を介抱してた(ﾘｱﾙﾜｰﾙﾄﾞで)
　　　　 　 ;ﾞ⌒ヽ彡　　頭を打って脳がやられちゃったみたい。
　　 　 ～ﾐ＿__ﾐ 　　　鬱だ。まじ鬱だ。今は動物病院....
　　　 ''" ""''"" "'' 　後遺症がひどく残るようなら保健所逝きになるかも........まだ子猫なのに。


>>159さん、作ってくださってありがとね。
最初に評価したけど
いきなりIDEごとハングする処理はせめて混ぜないで欲しかった。

あと、矢じるし系とShape系を混ぜるのは
クラスの分類として混乱しそう。

それとああいうＵＩだと矢じるしの端が消えた時に
それを見せるための操作が非常に面倒だという事が
改めてわかりました。

>>162あめ猫さん
> 複数のキャラクタが重なった時に
> 操作させるには、結局操作点を別のcontrolにしてZオーダ上げたり
> させなくちゃいけない。
使っていくうちにその不便さが身にしみました。
見せてもらって初めて問題点が浮き彫りに

まるで仕様をろくに決めていない顧客みたいだ>俺

> どうせやるなら >>133 みたいに複数のキャラクタを一つのコンポ
> 内で操作出来るコンポを作りたいにゃ

ﾄﾞｳｲニャー

ああいう操作の形がありだと知っただけでも
非常に勉強になりました。感謝感謝。

>>164-165
非短形コンポって見たことないでした。作れないって。

>>167

procedure TForm1.Button1Click(Sender: TObject);
var
Rgn1,Rgn2:HRGN;
Pts:array[0..2] of TPoint;
begin
Rgn1 := CreateRectRgn(10,10,45,20);
Pts[0] := Point(40,5);Pts[1] := Point(60,15);
Pts[2] := Point(40,25);
Rgn2 := CreatePolygonRgn(Pts,3,WINDING);
CombineRgn(Rgn1,Rgn1,Rgn2,RGN_OR);// ＯＲ結合
with Canvas do begin
Brush.Color := clRed;
FrameRgn(Handle,Rgn1,Brush.Handle,1,1);// 枠
OffsetRgn(Rgn1,0,30);
FillRgn(Handle,Rgn1,Brush.Handle);// 塗りつぶし
end;
DeleteObject(Rgn1);
DeleteObject(Rgn2);
end;

>>168
コンポが占める領域のことじゃないよ。描画方法について言ってるわけよ。

>169 ？　それどうやって回転するの？　リージョン回転するAPIあったっけ？

>163 は任意方向むくよ

>>170

リージョンを回転させるＡＰＩはあるけど、Win9X ではダメ。
保持しているリージョンを回転させるのではなく、リージョン
を定義している点の座標を回転による変換で作り直すわけ。
163のコードでもこれは同じでしょ。
でも、任意回転のこと考えたら確かにリージョンを使うメリットは
減るね。うーむ、164 でのＯＲ合成によるリージョンでの描画は撤回。
163 で計算された座標をもとにポリゴンリージョンを保持することを
提案。リージョンを保持することの利点は、

1) 一度作ってしまうと、再描画のたびに計算する必要がない
2) 特定の点がリージョン内にあるかどうかをすぐに判断できる

くらいかなぁ...。

　　 ∧,,∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　　＜ 矢じるしコンポ。どうりで標準で用意されていない
　　ﾐ つ且~~　　　＼＆有名なのがない、わけですね。
～ﾐ,,,,,,　,,ﾐ

>>171
>1) 一度作ってしまうと、再描画のたびに計算する必要がない
再描画ごとに計算するのは
やり方さえ工夫すればリージョン使わず描画する時も必要ないのでは？

任意角度のプリミティブ図形(△やら□などのことだったよね)
の描画計算にそれほど時間がかかると思えないです。

>2) 特定の点がリージョン内にあるかどうかをすぐに判断できる
ゲームじゃないし....必要になるかな。マウスドラッグはしやすくなりそうだけど

あめ猫さんのものを拡張して
TArrowsPaintみたいなのを用意して
複数のArrowを動的配置できるようにできたらいいですのにね。
そうすればコンポーネントの重なりも無視できるし

インスペクタ連動するためには
TCollectionとTCollectionItemが必要になるか....ますますフサには不可能だ。

>>172

171 の 1) については、確かにポリゴンの座標を配列で持っていれば
リージョンを使わなくても簡単に再描画できるね。

でも ２) については結構重要だと思うよ。とくに斜めに矢印が描画さ
れている時は、それを囲む矩形領域がコンポの領域になるわけだろう。
ユーザが図形をマウスでドラグしたくなったとき、ほんとに選択したい
図形が判断できるのは重要なのでは。とくに、他の図形コンポと重なり
あっているときには。

あとリージョンでは
３）それを囲む外接矩形領域が簡単に取得できる
ことも重要だと思わないか。コンポーネントの領域に反映させるために。

>>173
それを囲む外接矩形領域が簡単に取得できる
ってのは、頂点のリストがあるのなら
単に最大・最小を走査するだけで出てくるんでは?

>>174

あのね、リージョンじゃなきゃできない、と主張してるんじゃないんだよ。
172 や 174 のコメントの内容は、「リージョンをつかわなくてもこう
すればできる」という内容だよね。リージョンを使えばもっと簡単だよ、
ということを主張してるのよ。おれもリージョンに固執するわけでもな
いが、ちょっとでも便利ならリージョンを使う、という選択もありだろ。

一般論として、ベジェ曲線や弧などを輪郭の一部としてもつ図形では、
スキャンして外接矩形は求められんだろ。今回の矢印の場合でもＡＰＩ
一つで取得できる方がスキャンして求めるより簡単だろ。

なぜリージョンを使う、ということを避けたがる？

>>175
別に避けたがってるんじゃないよ。
ポリゴン形状前提の場合、外接矩形を得るのに
リージョンのメリットの補強にはならないって思っただけ。

ポリゴンに限定しないのなら、システムにやってもらったほうが
いいのは間違いないけどね。

全く経験がないからわからないのですが
設計時にリージョンを使うと矢印図形の描画領域外の余白部分の
向こう側にある矢印を選択できるのでしょうか。
(変な形のボタンコンポーネントなどはどうなっているのかな。
　そんなの使ったことないからしらにゃい)
だとしたら便利ですね。

でも出来ないのなら"矢印"というものは
単なる2点間指示なわけなので
外接領域が必要になることはすくなさそう。と思うてます。

一つのTGraphicCtrlに複数の矢印を描画することと
一つのTArrowsMyPanel上に矢印リージョンな子Windowを
動的生成するのと同じことなのかな。

>なぜリージョンを使う、ということを避けたがる？
そういうわけではないのですが

必要無いときには使わないですし。
"描画"が必要なのと"Window"が必要なのとは違うし。

いろいろな可能性を模索がいいですね。

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　　ｸﾁ ﾊﾞｯｶ ﾃﾞ ｺﾞﾒﾝ ﾖ
　　ミ,, ﾟДﾟ彡
　　 〃　 つ旦~~
　～ﾐ,,,ｎ,,ｎ［￣￣￣.］
　　　　　　　￣￣￣

>>176
> 別に避けたがってるんじゃないよ。
> ポリゴン形状前提の場合、外接矩形を得るのに
> リージョンのメリットの補強にはならないって思っただけ。

わかった。そのとおり、ポリゴンの場合は補強にはなってないね。
すまぬ。

>>all

市販のドローソフトが描く矢印を見てると、矢印の方向だけでなく
「やじり」部分の大きさや形を選ぶことができるよね。単純な三角
だけでなく、曲線の入ったヤツとか。ああいうふうにするには、
しつこいようだが、リージョンを使えば簡単なんだがね。ネックは
170 が指摘しているように、Win9X 系では、リージョンを回転させる
ＡＰＩが使えないことなんだよ。だれか、一般的な方法でＡＰＩを
使わずに任意角度にリージョンを回転させる方法を教えてくれないだ
ろうか？ ポインタだけでもＯＫ。よろしくお願いします。

　　　∧,,∧　　　／￣
＼,,,,ミ,,ﾟДﾟ彡　＜　なるほど、リージョン自体と
⊂,,,,,,,,,つつ.　　 ＼　SetWindowRgnとは違うのですね。

フサは良く知らなかったので、同じ機能かと思ってた...ｽﾏｿ

読んでいたはずの、D4プログラバイブルの矢印コンポーネントでは
矢印の三角形部分クリックの判定にリージョン使ってた。

そんで、気になる所ですが
設計時コンポーネントにSetWindowRgnを適応することはできるのだろうか…

>>178
ようやく話が見えてきました。確かにリージョ使うと簡単ですね。

＞任意角度にリージョンを回転させる方法
思いっきり単純計算でリージョン作り直すとか？
これなら労力さえあれば何とかできるでしょうが…

>>177
>必要無いときには使わないですし。
>"描画"が必要なのと"Window"が必要なのとは違うし。

リージョンは、ペンやブラシ、フォント、と同じＧＤI オブジェクト
だぞ。Window とは関係ない。ただ、リージョンを使ってウィンドウ
にクリッピング領域を設定できる、ということだよ。

> 一つのTGraphicCtrlに複数の矢印を描画することと
> 一つのTArrowsMyPanel上に矢印リージョンな子Windowを
> 動的生成するのと同じことなのかな。

これは見かけだけが似てるけど、コーディングするほうでも、
ウィンドウズのリソースの面からみても全く違うでしょ。
リソースのことを考えなければ、矢印ウィンドウというのが
コンポーネントとしては実装が一番簡単そう。
設計時はともかく、実行時には、<その形＞のままでマウス
メッセージに応答できるよね。

>>179
>>任意角度にリージョンを回転させる方法
>思いっきり単純計算でリージョン作り直すとか？
>これなら労力さえあれば何とかできるでしょうが…

リージョンを構成するプリミティブを作成するときの座標を
っかいてんさせれば、リージョンも回転できそうに思うのだが
そうではないんだよ。これが悩みの種なんだ。
たとえば、単純な楕円リージョンを作ったとして、それを中心
を原点にして２０度傾けるにはどうしたらいい？外接矩形の座標を
傾けてもできないんだよ....。

>>181
ベジェ曲線なら制御点リストを回転/変形させるだけで
生成される曲線もそのとおりに回転/変形するから便利だよね。

楕円を使いたい時はベジェで描けって事か・・・

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　を！出来た。設計時リージョン。
　ミ,,ﾟДﾟ彡＜　　これで矢印がいくら重なっても大丈夫！か？
　 ﾐつ　つ 　＼
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ

type
　TPanel1 = class(TPanel)
　private
　protected
　　procedure Resize; override;
　public

procedure TPanel1.Resize;
var
　Rgn: HRGN;
begin
　inherited;

　Rgn := CreateEllipticRgn(0, 0, Width, Height);

　SetWindowRgn(Handle, Rgn, false );
end;

Panelの色変えて貼り付けると
円形部分だけ反応して
背景のコンポーネントがセレクト可能でした！
描画処理は変になってるけどね。

>>180
設計時にも動作可能でしたよ。
Winメッセージに反応できるということは
マウスが上を通過したら色が変わる矢印なども作れるかな。

>>181
なるほど。そこまで考えてませんです。はい。
>>182-183複雑ですね。

無理にリージョン側を回転させる必要ありますかね？
回転角度覚えてるんなら、リージョンの中心座標とカーソル座標使って
カーソルの座標側を回転させられない？
最初に生成したリージョンだけで判定できると思うが

>>185
全く理解できない。カーソル座標って何だ？
カーソルの座標を回転するって何の事だ？
簡単なサンプルコードを頼む。

184みたいに使う時はリージョン回転が必要でしょう。

自己レス

>141 それとマウスで動かした時にプロパティエディタを更新する方法が判らん
やっとみつけた
GetParentForm(Self).Designer.Modified;

どうもCM_MOUSELEAVE が設計時に貰えないにゃ
これが無いとドラッグしたままエリア外に動かしてしまうと困った事に

>>186

クリック位置からどのリージョン選択するか判定する時は、リージョン回転無しでできないｽｶ？って事ｯｽ

例えば45度回転してるなら、図形の回転軸(X,Y)からクリック位置(x1,y1)の相対距離(X-x1,Y-y1)と逆正接で
角度と距離を得て、図形の回転量(45)を引くと。
で再度、正接と距離で座標に変換してリージョンとの衝突判定すれば
判定計算軽くならない？

FireWall-1でﾓﾒてるんでｿｰｽは勘弁(w

>>172
今考えている　複数のキャラクタが表示出来るコンポは
　property lines:TStrings;
　を持たせて、内部は Flines:=TStringList.Create;
　で、Lines.Objects[] に

　IMyDrawItem = interface (IUnknown)
　　function　SetText(s:string):boolean; //表示文字列を渡す(エラーならfalse)
　　procedure Paint(Canvas:TCanvas);　　 //描画させる
　　function　DragID(x,y):Integer;//0以上なら制御点
　　function　Drag(x,y,ID):bool;　// x,y の位置にIDの制御点を動かす。動かしたら true
　　function　GetText:string;　　 //DragがTrueなら読返す
　　procedure GetBox(var rect:TRect);//全部が描画出来る箱のサイズ
　end;

と１対１で持たせるという方式です。

これなら簡単でしょ？

>>190
>クリック位置からどのリージョン選択するか判定する時は、リージョン回転無しでできないｽｶ？って事ｯｽ

返信ありがとう。
クリック位置からの判定とリージョンの回転はなにか関係あるんですか？
同じ座標系なら PtInRegion() API ですぐに分かるんでは？

　 　||
　Λ||Λ
（ / ⌒ヽ
　|下手人
　∪ / ﾉ
　 | ｜| ﾘｰｼﾞｮﾝが回転済ならその通りです...>>192
　 ∪∪

　∧　∧∩　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　ﾐ@ﾟДﾟ@ﾐ　＜　楕円など、回転して変になる奴はリージョンをかけない方向は？
　(| 2ﾈｺ |　　　＼真円とかポリゴンとか認めないでいたら？
～|　＿　|
　 し' 　`Ｊ 　リージョンの使い方を自分で限定してしまえばいいかもね。

ところで、あめﾈｺ氏はどうしてそんなに百戦錬磨っぽいの。
>>191　そんなの普通思いつかないYO.発想がすごいや。

矢印を含むキャラクタ名を追加したら
内部で動的にオブジェクトを追加しておくってことでしょ。

で指定したいオブジェクトのIndex値orキャラクタ名をOIで指定すると
そのオブジェクトのプロパチがOIで指定できるって事かな。

出来たらすごい。

>>194
>楕円など、回転して変になる奴はリージョンをかけない方向は？

うん、これならいいよね。
ポリゴンみたいに、複数の点だけで完全にリージョンを記述できれば
回転は簡単だよね。例の三角と長方形の矢印だったら７点の座標を
保持すると、回転は外接矩形の中心を原点にして任意にできるね。
ちょっとトライしてコンポーネントつくってみる。
みんな、ありがとね。

>>194
　いや、あの・・・・オブジェクトインスペクタにいちいち登録したら
　逆にうっとうしいと思う。

　あめ猫の考えてるのは単に TStrings 用のエディタで編集するだけです
　LINE ,10,10,100,200 みたいにね
　これをマウスで移動とか出来るようにすれば便利かなと
　この土日には雛型作ってみるから、　便利そうだったら誰か
　拡張して、プロパティエディタとか作って欲しいなと・・・


ところで、今、線分と点の距離とか
ttp://www.infoeddy.ne.jp/~tensyo/prog/linealgo.htm
ここ見てるんだけど、ここに　楕円をベジェで描く方法とかもあるよ

>196
いいページ！Viva！あめ猫もViva

　　　　∧ ∧　　・・・・。
　　　 ミ ﾟДﾟ彡 　拾ったﾈｺ、あまり調子が良くニャイ。
　　～ﾐ,,,,uuミ 　　ご飯も飲み物もなんも食べないナー
　　　　　　　　　　元気になってくれるのかな。

>>198
その猫、元気になるといいね。
陰ながら祈ってるよ。
Delフサさん、あとの経過報告も頼むよ！
もう帰る....。

>>196
おっと、帰る前に、
いいページ紹介してくれて、ありがとう。
役に立ちそうだ。ベジェから直接リージョンは
作れないんだけれど、パスを通せばつくれそう。
やってみるよ。

質問。

フリーカーソルや、予約語機能をつけた
エディタコンポーネントがありますね。
あれは、すべて自前のコードで実現してるんですか。

つまり、キー入力に応じてカーソルを移動、
カーソルの点滅や文字入力、削除、上書き、選択時の挙動にいたるまで
すべて自分でコードを書かないといけないのですか。

>>201
多機能なエディタの多くはそうです。

>>201
他人の褌を使っているうちはろくな事はできないと思われ。

>>203
それはWin標準のコントロールだとダメってこと？

>フリーカーソルや、予約語機能をつけた
>エディタコンポーネントがありますね。

関係ないけどエディタコンポすごいよな。
これ使った良質なソフトがどんどん出てきてるんだもの

Delphiのコンポ作者←→ソフト作者（コンポ使用者）の分業が
ものすごくうまくいってる感じだよな。

ListViewコントロールでエクスプローラーからのファイルのドロップを受け付けたいんですが、
「DragAcceptFiles()が未定義だｺﾞﾙｧ(ﾟДﾟ)」と怒られます。
uses Windowsはしてあるんですが‥‥
どうやるんでしょうか。Win32API呼べないのでお手上げ状態です。

ShellApiじゃないの？

Delphi 6 ドキュメントアップデート #1 でたけど。
がいしゅつだよね？

>>201
Edit程度でフォント幅固定ならそれほど難しくないのですが…．
カーソル（キャレット）の処理は場所と大きささえ指定すれば
点滅はWindowsが勝手にやってくれます．
フォントがプロポーショナルだったり
さらに色つき，大きさ違いなどの修飾がつくと
飛躍的に難しくなりますけど．

　　,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,ミ,,ﾟДﾟ彡 ＜　201さんじゃないのですが
　 UU""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

キャレットってどうやって表示するのでしょうか。

テキストビュワーなら自前で作ったことあるので
そこにキャレットが表示できると
簡単なエディタになると思うのです。

プロポショなどは抜きで簡単なやり方を紹介してほしー

　　　　∧ ∧　　・・・・。
　　　 ミ ﾟДﾟ彡
　　～ﾐ,,,,uuミ
　えっと、MLで話題になっているチャットプログラムって
　>>67-68で出てる要望を見たせますかニャ？

>>208
> カーソル（キャレット）の処理は場所と大きささえ指定すれば
>点滅はWindowsが勝手にやってくれます．

！
初めて知りました。DCを指定すると、キャンバスに描画するんですか？それとも
超基本エディタオブジェクトみたいな奴があって、それを継承した
モノに対してキャレット表示を行うのですか？想像できません。

まだイメージの段階だにゃ
　けど一応動くから見てほしいにゃ

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999294620&res=29
プロパティエディタは無いから
　Lines　プロパティに LINE か ARROW1 を入れるにゃ

ややこしいコードは>>196のWebからパクりまくり

LINE , 10,10,100,100 と入力　すると線が表示されるにゃ
そこにマウスを持ってゆくと　色が変わるから　ドラッグするにゃ

線なら全体移動、○まら端だけ移動

キャレットは（好きな言い方じゃないんだけど）CreateCaret, ShowCaret, SetCaretPos
をヘルプで見てください。めちゃ簡単です。
追伸：キャレットはウィンドウに対して作ります。

　　∧,,∧∩　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟ彡　＜　IDesigner がニャーです>>212
　　U　　ミ　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　ﾐ　　ﾐ
　ノ∪∪

>214
どうもありがとうございます！
ウィンドウにカーソルを表示することが出来ました。

質問ついでに。
日本語変換のときに、ＩＭＥ（なんの略なんだろう？）の
日本語入力＆変換ウィンドウがでてきますね。
あれを任意の位置に表示するにはどうすればよいのでしょうか。

　 ∧,,∧　　うごきましたニャ。
　ミ,,ﾟДﾟ彡
　ﾐつ[|lllll］). 複数個Lineを重ねると
～ﾐ　　ﾐ 　　全部同時に動いてしまうニャリ。
　 Ｕ''Ｕ

procedure TMyDraw.PropModified; {プロパティを変更した時の処理}
var f:TCustomForm;
var i:IDesigner;
begin
f:= GetParentForm(Self);
if f<> nil then begin i:=f.Designer; if i <>nil then i.Modified; end;
end;

ここのIDesignerが

var i:IDesignerHook;

こうだと思われ

>>216はやいなー。ネコにもわかるように教えてくれにゃ。
簡単なサンプルなど、、キボンヌ...

Form1 上に Button1 を配置し、OnClick イベントに以下のように書きます

CreateCaret(
　Handle, // 表示先 Window ハンドル。例えば Panel1 に表示するならば Panel1.Handle とする
　0, // キャレットに使う Bitmap ハンドル。ビットマップを使用しない場合は 0.
　2, //キャレットの横幅
　16 // キャレットの高さ
);

ShowCaret( Handle ); //キャレットを表示
SetCaretPos( 20, 30); // キャレットを移動（キャレットの左上座標（多分）を指定

…キャレットとカーソル、どちらがただしいのでしょう。
自分はカーソルのほうがしっくり来るんですけど。

imeの表示位置はちょっと面倒かも
http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=10
にサンプルがあるけど（BCB用だけど)

あのう…大変な事に気がついてしまったのですが、
キャレットの表示にウィンドウハンドルがいるということはですよ、
TWinControl を継承したコントロールに対してのみキャレット表示が可能という事ですよね。

TGraphicControl を継承して文字を描画しようと思ったのですが、
もしかして不可能ですか。

キャレットを表示しつつ、文字描画をも行うには
なんのコントロールを利用すればよいですか。

>>220
キャレット表示は基本的にフォーカスを持っていることを
示しているのだから TWinControl 継承が必須です。

TCustomControl はどうでしょうか？

>>219
どうもありがとうです。参考にして試してみたら、
キャレット位置にＩＭＥウィンドウを表示することが出来ました。

uses IMM;

...
TForm1 = class ...
...
public
　procedure IMEStart(var AMessage: TMessage); message WM_IME_STARTCOMPOSITION;
end;

procedure TForm1.IMEStart(var AMessage:TMessage);
var
　CompForm: TComPositionForm;
　CaretPos: TPoint;
　LF: LogFont;
　ImmContext:HIMC;
begin
　ImmContext := ImmGetContext( Handle );

　//キャンバスのフォントと同じに設定する
　GetObject( Canvas.Font.Handle, sizeof(LogFont),@LF);
　ImmSetCompositionFont( ImmContext, @LF);

　//キャレットのポジションに設定する
　ImmGetCompositionWindow( ImmContext, @CompForm );
　CompForm.dwStyle := CFS_POINT;

　//キャレット位置を取得
　GetCaretPos( CaretPos );
　CompForm.ptCurrentPos := CaretPos;
　ImmSetCompositionWindow( ImmContext, @CompForm);
　ImmReleaseContext( Handle, ImmContext);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
　//キャレットの位置を設定
　CreateCaret( Handle, 0, 2, 16 );
　ShowCaret( Handle );
　SetCaretPos( 10, 20 );
end;

>>222、サンクスですよくわかりました。
uses IMMが追加で必要っすね

　　　∧,,∧　　　／
(,,,,,,,ミ,,ﾟДﾟ彡　＜　PanelなどだとＴＡＢＳＴＯＰ=True
⊂,,,,,,,,,つつ.　　 ＼にする必要があるのですね。

ＶＣＬのＣａｎＦｏｃｕｓはあてにならないし

どうしてButtonはＴａｂｓとｐ=Falseでも
クリックしたらフォーカスを他Ctrlから
奪えるのにPanelはだめなのかしら

PanelClickイベントに
Panel1.SetFocusと書いたら
出来たけど...

>>217
　　 ∧　 ∧
　　/∂⌒∂
　 （( ×　ﾒ )）　　 ／￣￣￣￣￣￣￣￣￣￣
　　彡　ヘ　ミ　 ＜　 ありゃD5 で試してたにゃ
　　（ 　 　⊂）　　　＼＿＿＿＿＿＿＿＿＿＿
　 ◯(⌒Ｙ⌒)
　結局 中間変数を使わない事にしたにゃ
　折線の時に便利かと思ってわざわざ複数選択が同時に出来るようにしてたにゃ
　結局全体移動の時は複数選択出来ないように変更したにゃ

関数型のメソッドのinherited のやり方判らなくなったから procedure に直してるにゃ

で、便利そうかにゃ？

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999294620&res=31

１、ARROW2 >>163 の追加
２、>>224
３、矢印の端をドラッグして矢の大きさを変えられる

225をD6パーソナルで試すと、
　なぜか編集中ドラッグしてると画面表示されないにゃ
D5だと問題無いし、TMyDraw.IsDesgine:=True にして実行すると問題ない

どうやら　PropModified　を呼び出すといけないみたいだ・・・
まあ Linesプロパティだけだから呼び出す必要ないかもにゃ

http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=10
関係ないけどさ、JAVAスクリプトでのみ、リンクさせてるサイトって
殺したくなるんだよな。　俺JAVA切ってるから。

殺すなよ。殺人になるから(藁

　　--------∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
～□□ □□ ( ﾟДﾟ)＜　pasファイル添付もしてくれると嬉しいぞｺﾞﾙｧ>>225
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

>>227
気持ちはわかる。
手元で動的生成して、結果は単なるHTMLにするのがスマート。

印字可能な文字　はどのように定義されますか。

function IsPrint(C:Char):Boolean;
begin
　result := C in [#20..'Z']; //でOKですか

end;

あなたのところでは、日本語の印字は不可なのですね。

”半角”で印字可能な文字は

function IsPrint(C:Char):Boolean;
begin
　result := C in [' '..'~'];
end;

ただし半角カナ除く。

　　--------∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
～□□ □□ ( ﾟДﾟ)＜　添え付けってなんだｺﾞﾙｧ(w
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

>>234 了解にゃ
　　これでいいかにゃ

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999294620&res=33

MyDraw.Pas として貼付したにゃ

自分で使ってみた感じ、
　けっこういい。
　　後、マウスの右ボタンで
　　コピーや追加ボタンが出ると嬉しいけど、あめ猫はこれで満足

これ以上便利にするにはちゃんと設計しないと・・・・

　 ∧,,∧　　　実行時も考慮すればDRAWツールの完成じゃないですか。
　ミ,,ﾟДﾟ彡　　いいものを見せてもらいました。
　ﾐつ[|lllll］).
～ﾐ　　ﾐ 　　　感謝でございます。
　 Ｕ''Ｕ

TCustomControl 継承してコンポ作ってますが、なぜか
キーを押しても、オーバーライドした KeyDown が反応しません。
MouseDown はちゃんと反応してくれますが。
KeyDown 内にブレークポイント設定してみたところ、
ブレークポイントの無効をしめす色に変わっていました。
コンポのコンパイル時に、オプション→コンパイラ→デバッグ情報
をONにしたのですが、結果は同じです。

どうすればよいですカ。

すいません。
キーが押されたら KeyDown メソッドが呼ばれるんじゃなくて、
KeyDownメソッドを呼ぶことによってキーダウンイベントが発生
するんですね…　逝ってきます。

やっぱり逝かなくていいですね。
キーが押される→ DoKeyDown → KeyDown → OnKeyDown の順で
呼び出されるから、キーが押されたときの処理内容を
KeyDown に書くのは間違ってはいませんね。

>>237
MouseDownが呼ばれたときなどにSetFocusメソッドを呼びだして
フォーカスを取得しないとキーイベントは発生しないですよ。

>>238
>キーが押されたら KeyDown メソッドが呼ばれるんじゃなくて、
これで合っています。コントロールがフォーカスを持っているときに
キーが押された場合、KeyDown メソッドが呼ばれます。

>>236
そうまとめないで、作ってね

うーん、フォーカスは取得しているはずなんです（；´Д｀）

>>242
普通のアルファベットのキーとかが認識できないのか？
それとも特殊なキー(ALTとかカーソルとか)が認識できないのか？

調べるのにちょっと手間取った。

>>243の続き。

もし>243の通りなら、
procedure CMWANTSPECIALKEY(var Msg: TMessage); message CM_WANTSPECIALKEY;
をpublicに追加、実装はResultに1を入れてみるがよい。


外してたらｽﾏｿ

>>241
　　　　　　　　 ∧,,∧ ｶﾞﾋﾞｰﾝ
　　　　　　　 ミﾟДﾟ,,彡
　　　　　　　 ⊂ ⊂ﾐ 　そそそそ
　　　　　　 ⊂ﾞﾞ　〃　　そんな、ご無体な
　　　　　　　／（/″

Delあめ猫さん鋭すぎ(w

どうやらキーニュー力部ではなく。その後の処理の仕方に問題があるようなんですが、いかんせん >>237（後半）の状態で
ステップ実行すらできないのです…

>>247
まさか実は override していなかったとか無い？
ブレークポイントを置けないというのはそうとしか考えられない。

>>246 　あめ猫の今回の動機は、
　設計時にドラッグとか出来るようなDrawグラフィカルなコンポって
　出来るのかなって疑問だけだったから、まあだいたい出来るって
　結論出たら、それ以上やる元気が出ないんだよね
　マウスの右ボタンでメニュー出したりは普通の処理だから出来る
　の判ってるしさ

・・後メニューを付けたりアイテムを増やすのは、手間はかかるけど
　そんなに難しい処理じゃないと思うけどなあ・・・

>>235で距離を計算するルーチンにバグがあって
　長さ0の線分が入っていると必ず選択状態になってしまう。
　修正分はソース置場と
　参考にさせて貰った元のソースがあった
http://pc.2ch.net/test/read.cgi/tech/1003559977/
に置きました

なぜかブレークポイントは無効ですが、なぜかステップ実行はできました。
とりあえず一件落着です。さて…

キャンバスを持った簡易メモコンポ＠バグたくさん　です。
文字を描画するイベントがあるので、イベント内で独自の文字を描画する
事が可能になっています。袋文字描画のサンプルコードが入ってます。
感想聞かせてください。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999294620&res=36&fi=no

>>249
それは、きっと使う人が追加してくれるでしょうﾆﾔｿ

そして、きっと追加した人が公開してくれるでしょうｺｼﾞｷｽﾏｿ

>>251
移転しました
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1004273797&res=2

1ﾈﾀ1ｽﾚで結構ですのでﾖﾛｼｺ

>>244
>procedure CMWANTSPECIALKEY(var Msg: TMessage); message >CM_WANTSPECIALKEY;

教えてもらった方法を試してみました…

KeyDown では、カーソルキー,TABは取得できませんでした。（ＢＳやＤＥＬ，ＥＮＴＥＲは取得できた）

そこで、CM_WANTSPECIALKEY ではカーソルキーも取得できたので

procedure CMWANTSPECIALKEY(var Msg: TMessage);
に

var
w:word;
begin
w := Msg.WParam;
KeyDown(w,[]);

と書きましたが、カーソルキーを押した場合、なぜか２回分カウントされます。さらに、シフトの状態がわからないではありませんか(TAB 及び TAB+SHIFT等)！

とりあえず、いろいろ試してみます。

>>255
inherited呼び出した？
呼び出したあとにResultに値入れるのが吉。

あ、気が付いたら $100 ゲットｗ

んと、要は inherited; して、メッセージのパラメータ見て
必要ならResultに1いれて、それで終了。
だったﾊｽﾞ。
大分前にいじったから少し忘れてる。
なので確証はない…ｽﾏｿ。

procedure TKCustomMemo.cmWantSpecialKey(var Msg: TMessage);
var
　Key:Word;
begin
　inherited;
　Msg.Result := 1;
　Key := Msg.WParam;
　KeyDown( Key, [] );
end;

としたら、カーソルキーとエンターが３回カウントされるようになりました（；´Д｀）

ん、「必要なら」とはどういうことでしょう。
KeyDown イベントで無事処理を終えた場合はパラメタに
何かの値が入っているから、そうでない値（＝処理できなかった）
場合に限って result := 1 ; をせよ、という事ですか？

Javaってメモリの自動解放って有りますがDelphiにはそのような物が有るのでしょうか？

全くの未経験なので、、

あったら凄く便利なんで。

標準ではありませんが，実現しているコードライブラリがあります．

>>258-259
説明不足スマン。
今一度よくコード見てみた。

procedure Tなんちゃら.CMWANTSPECIALKEY(var Msg: TMessage);
begin
inherited;
If Msg.WParam in [必要なキーの集合] then
Msg.Result := 1;
end;

なコードでよかったハズ。
あとはKeyDownのオーバーライドで処理すれば無問題。
また外してたらｽﾏｿ。

　 ,∩ ∩
　 ﾐ ﾞミﾞ ﾐ
　 ﾐ　　～
　 ﾐ∧,,∧　　　／￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟﾐつ ＜　下がってまーす
　　ﾞＵ　 ﾞﾞ　　　＼＿＿＿＿＿＿＿＿

>>260
[Delphi-ML:41732] Re: How to Call _Dispose
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=041732
やればできなくないってものだと思った方がいいかも。
そんなに便利ですか？興味あるのでどんな時に便利とか聞きたいニャ


最近、デザパタを知って
もっとDelで積極的にインターフェースを使いたいのですが
どうもうまく使えなくて鬱～～。

　　　　∧∧ 　　　で。BorConは大丈夫なの？
　　⊂ミ,,ﾟДﾟ彡つ
　　∩∧＿∧∩
　　ヽ（　´∀｀）ﾉ　ﾀｶｲﾀｶｰｲ
　　　（　　　　）
　　　｜ ｜　|
　　　（_＿）＿）

>>263
実体をとった後に TAutoObjRef に関係付けなきゃいけないところがダメ。
それができるくらいなら開放コードを書くよ。

　　＿＿＿＿_
　/......　　..　.../
　||:::　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣
　|￣＼ ﾐ　ﾟДﾟﾐ＜　　ダメとか言われても知らん
　|　　 |:￣U U￣:|＼＿＿＿＿＿＿＿＿＿

　ガベコレがあればうれしいけどね。
　なくてもそうは困らない。

>>266
混ざると悪夢をみるよ...

　　　　　 ∧∧＿___　　　／￣￣￣￣￣
　　　 ／ミ；ﾟДﾟミ .／＼＜　インターフェースが
　　／|￣∪∪￣|＼／ 　＼なんか変
　　　 |＿＿＿＿|／ 　　うーん。COMを引きずらないで
　　　 　,,,,∪∪,,, ,, 　　　Java並にまともなインターフェースを
　　　　　　　　　　　　　実装してほしかった。

QueryInterface
_AddRef
_Release
のないインターフェースがなぜ作れなかったのだろう。

VCLからも使われない、COMも使えない
インターフェースなんてDelではそんなに使い道ないだろ。

おれはD6使ってないんだけど、IInterfaceっていう素のInterfaceが
出来たんじゃなかったっけ？違った？

>>268
つまり参照カウンタ管理機能の無い、単なるメソッドテーブルと化した
インターフェースが欲しいって事？

あればあったで便利かもしれない。

　いつのまにかIUnknownからIInterfaceになったのかと思えば

メモ IInterface は IUnknown と同等です。
一般的には，プラットフォームに依存しないアプリケーションには
IInterface を使用し，
Windows に依存する部分があるプログラムには
IUnknown を使う必要があります。

ですって。ダメダメです。前と同じ。

どうして素のInterfaceを用意していないのか
聞いてみたい。小一時間。

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　　ホエホエ
　　ミ,, ﾟДﾟ彡
　　 〃つ旦O
　～ﾐ,,［￣￣￣.］
　　　　 ￣￣￣
　　　ﾃﾞｻﾞﾊﾟﾀやりにくいやんか。
　　どうしてInterface変数を破棄するときに
　　オブジェクトの破棄命令が動作するの。しなくていいっつの。

カウンタいじるんじゃいけないの？

QueryInterface
_AddRef
_Release
を空実装すればいいのでは？

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　さんぷる書いてみますね。
　ミ,,ﾟДﾟ彡＜　
　 ﾐつ　つ 　＼　ちこっとまっとくれ。
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ

TListViewに5500個ほどアイテム突っ込むのに4分ほどかかるんですが
こんなに時間かかっていい物なんですか？
ふつうにリストからデータ引っ張り出してListViewに入れてるだけなんですが‥‥

　　∧,,∧　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟ彡　＜　婆ちゃんListViewを使うのじゃないかな？
　 ,;ﾞ　　ﾐ　 　 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　ﾐ.　　ミ
／゛゛゛゛

よくしらなーい。
Virtual と ListViewって単語で検索してみてくださいな。



眠い・・・・サンプルは明日になります。スマソウ

>>276
っていうか5500個って多すぎませんか？
プログラムがサクッと動いたとしても
使い勝手が激しく悪そうな気がするのですがどうでしょう．

>>278
ファイラー作ろうとか思ったら、そうなってしまうこともたまにあるかもしれない。
てことじゃないのかな。

やっぱOwnerDataをTrueにして、OnDataイベントで見えてる範囲だけ追加の方向で

えとですね、おそらくループでまわして５５００個入れてるとおもうのですが、
単に add してるだけだと、１個アイテムを入れるたびに再描画するのですよ。

BeginUpdate してから５５００個入れて EndUpdate.

それでも足りなかったら

Items:=TListItems.Create して５５００個入れ、最後に TListView.Items.Assign( Items ) する。

あめ猫も矢印アイテムをインターフェースで書こうと思ったけど
　 TStringsのObjectsにインターフェース綺麗に入れらないから止めちゃった

　でも後から考えたら　インターフェースの動的配列作って、TStringsを継承して
　外からはTStringsに見えるようなの作ればよかったかも・・・・

>>282
ｲﾝﾀﾌｪｰｽのﾄﾞﾗﾌﾄ晒してみれば、良い知恵出ないかな？

　　∧,,∧∩　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟ彡　＜　インターフェースのしつもーソをｱｹﾞました。
　　U　　ミ　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　ﾐ　　ﾐ
　ノ∪∪

インターフェースがわからない
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1004423652

長くなってしまいましたが
非常に簡単なことしかしてません。

質問を二つ書いています。


インターフェース変数の使い方、教えてくださいな。

あの使い方であっているものかどうかもイマイチ自信なし。
優れた正しいやり方を氏ってましたら
指摘してくださいな。

「インターフェースって何？」
って方も動作させてみると面白いかもね。
あまりなじみがないものですし、わからなかったら
質問してくださいな。

>>284
インターフェースの中身はメソッドテーブルって事は知っているよね？

そのメソッドテーブルはオブジェクトのインスタンス毎に生成されています。
インスタンスを廃棄した場合、メソッドテーブルも同時に廃棄されます。

インターフェースの参照を解放する前にインスタンスを廃棄してしまった場合、
_Releaseメソッドなどを呼びだそうとすると既に存在していない
メソッドテーブルを参照しようとしてメモリアクセス違反が起きます。

これは回避不可能なので、あらかじめ nil を代入しておき _Release メソッドの
自動呼び出しを抑制するほかありません。

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／
　ミ；ﾟДﾟ彡＜　ｾﾞﾝｾﾞﾝんしらにゃー。
　 ﾐつ　つ 　＼>>285さん、ありがとう。
～ﾐ ,,　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　 ∪∪　　

> インターフェースの中身はメソッドテーブルって事は知っているよね？
知りませんです。
なんとなく、そんな気はしますが。


> そのメソッドテーブルはオブジェクトのインスタンス毎に生成されています。
> インスタンスを廃棄した場合、メソッドテーブルも同時に廃棄されます。

なるほどなるほど。
つまり、インターフェース変数にはメソッドテーブルが入るという事ですね。


> インターフェースの参照を解放する前にインスタンスを廃棄してしまった場合、
> _Releaseメソッドなどを呼びだそうとすると既に存在していない
> メソッドテーブルを参照しようとしてメモリアクセス違反が起きます。

えーーーー！！！

nilが入っていないとメソッドテーブルの実体はなくなっているのに
インターフェース変数の参照が消える時にメソッドテーブルにアクセスしようとするわけですね。

> これは回避不可能なので、あらかじめ nil を代入しておき _Release メソッドの
> 自動呼び出しを抑制するほかありません。

にゃんじゃって～～～！

こんな実装した奴どこの誰ジャー－－

　　 　　　∩,,,,,,,,,,,∩ ,,,_
　　　～⊂｀'''''''''ミ｡Д｡ミ⊃　ギャフーン
　　　　 　｀'''''''''''∨ ∨

気を取り直して....暗い話題でも。
　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／
　ミ；ﾟДﾟ彡＜　D6UP1でもTToolbarのCustomizeがバグったままだと
　 ﾐつ　つ 　＼思うのですが・・・・・・
～ﾐ ,,　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　 ∪∪　　　バグなのか、仕様なのか・・・

http://www.vector.co.jp/vpack/browse/pickup/pw4/pw004591.html
こういう風に、アクティブウインドウのタイトルバーに
張りつくプログラム作りたいんですけれども、
どうすればよいか分かる方いらっしゃいませんか？

ウィンドウリスト取得や位置設定を
カプセル化したユニットがあるけど、公開しようか？

　　　∧,,∧　　　／￣
(,,,,,,,ミ,,ﾟДﾟ彡　＜　こんなんすると、いろいろなWindowHandleが取得できるから
⊂,,,,,,,,,つつ.　　 ＼それでアクティブと位置を求めるといいかも。

WindowList: TList;
はFormのprivateでもっていてね。

type
　TWindowInfo = class
　　Handle: HWND;
　　Classname: String;
　　Caption: String;
　end;

function EnumWndProc(Wnd: HWND; WndInfoList: TList): BOOL; stdcall;
var
　WndClassname, WndCaption: array [0..255] of Char;
　ProcessID : DWORD;
　WindowInfo: TWindowInfo;
begin
　//ウィンドウの表示状態をチェック
　if IsWindowVisible(Wnd) then
　begin
　　//ウィンドウクラスの情報を取得
　　GetClassname(Wnd, WndClassname, 255);
　　SendMessage(Wnd, WM_GETTEXT, 255, Integer(@WndCaption));

　　WindowInfo := TWindowInfo.Create;
　　with WindowInfo do
　　begin
　　　Classname := WndClassname;
　　　Caption := WndCaption;
　　　Handle := Wnd;
　　end;
　　WndInfoList.Add(WindowInfo);

　　GetWindowThreadProcessID(Wnd, @processID);
　end; //if IsWindowVisible(Wnd) then
　Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　i: Integer;
　Str: String;
begin
　EnumWindows(@EnumWndProc, Integer(WindowList));

　for i := 0 to WindowList.Count-1 do
　begin
　　Str := IntToStr( TWindowInfo(WindowList.Items[i]).Handle) +' '+
　　　　　 TWindowInfo(WindowList.Items[i]).ClassName +' '+
　　　　　 TWindowInfo(WindowList.Items[i]).Caption +' ';
　　Memo1.Lines.Add(Str);
　end;
end;

ごめんなさい。問題点をはっきり書くべきでしたね。

えとですね、今考えてる手順は

1.アクティブウインドウのハンドル取得。WindowRect取得。
2.ボタンの数を数えたり、タイトルバーの高さとかいろいろ調べる。
3.borderstyleがnoneなフォームを、位置を考えながらペタッと貼りつける

です。で、困ってることと言うのは、アクティブウインドウが
「最前面に表示するウインドウ」だった場合、隠れちゃうんで困ったなぁ
って言う感じで考えてました。

手間かけてすいません。

　 ∧,,∧　　タイマーでまわしてみました。
　ミ,,ﾟДﾟ彡
　ﾐつ[|lllll］). 　SetWindowPosがポイントですね。
～ﾐ　　ﾐ
　 Ｕ''Ｕ
タイマー以外の方法あったら教えてください。

Window列挙なんて必要ないのね。


procedure TForm1.Timer1Timer(Sender: TObject);
var
　AHandle : hWnd;
　ARect : TRect;
begin
　ARect := Rect(0, 0, 0, 0);

　AHandle := GetForegroundWindow;

　while (AHandle <> HWND(nil)) do
　begin
　　if IsWindowVisible(AHandle) and (not IsIconic(AHandle)) then
　　　Break;
　　AHandle := GetWindow( AHandle, GW_HWNDNEXT);
　end;
　if AHandle = HWND(nil) then
　　raise Exception.Create('Windowの取得に失敗しました');

　GetWindowRect( AHandle, ARect );

　if AHandle <> Self.Handle then
　begin
　　Label1.Caption := IntToStr( ARect.Top );
　　Label2.Caption := IntToStr( ARect.Left );
　　Self.Top := ARect.Top;
　　Self.Left := ARect.Left + 50;

　　SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

　end;
end;

なるほどー。
タイマー使って最前面に表示させつづけるわけですね。
サンプルコードどうもです。

確かWM_ACTIVATEかWM_ACTIVATEAPPだった記憶が
拾ってみなされ

>>294
あう。。。
もしかしたら、それやろうとしたら、サブクラス化しないといけないですか。。
サブクラス化はまだ勉強中っすー。

>>294
どうやってひろう？
システムグローバルなフックでもインストールする？
うん、これが一番美しいかなぁ。

>>295
サブクラス化は関係ないと思う。

苦渋をなめた経験的には、Delﾌｻｷﾞｺのﾀｲﾏｰ駆動が一番無駄なく期待通り(w
誤動作も無いしﾃﾞﾊﾞｯｸﾞもしやすい

つまりｽﾄｰｶｰするならｺﾞﾐの日にｺﾞﾐ箱漁るより、監視ｶﾒﾗを仕込む方が確実ということですか（´Д `）ﾊｧﾊｧ

>>297=>>298 ｼﾞｻｸｼﾞｴﾝﾃﾞｼﾀ!!(･∀･

>>297-299
タイマーで監視は簡単かもしれないが、ＰＧとしては心痛まない？
ゴミの日でもないのに、１秒ごとにゴミ置き場を見に行くんだぜ。
フックでメッセージを捕まえられれば、ゴミの日に収集車から電話
で直前に知らせてもらうのと同じだぜ。他の事に専念できるし、
寝ててもいいし。

ちと遅レスになってしまいましたが。

>>277
sampleディレクトリの中にあったんでソース覗いてみます。

>>278
一括置換用のツールの操作対象ファイルの一覧です。
(特定ディレクトリ以下で特定条件を満たしたファイルを除く全ファイルに対して複数の置換処理(Webページのヘッダ部分書き換えとか)をバッチ処理するツール)
たまたまテストしたディレクトリ(Apacheのドキュメントルート)にPHPのマニュアル(約2500ファイルw)とかがあっただけなんですが異様に遅かったのでどこか不味かったかな？と思ったんで。

>>281
こっちのほうが簡単そうなのでとりあえずこっちで様子を見てみます。

>300
グローバルフックも結構コストかかるような気がするけど（´Д `）

慣れると OwnerData モードのほうが簡単です

そういえば ownerdata とかで google で検索してもあんま出てこないんですけど
検索のしかたが悪いんでしょうか？

>>286
COMインターフェースは基本的にリファレンスカウンタを持つから
そういう実装になるのは当然だよ。

Delphi 2 では、インターフェースは言語でサポートされておらず
class 宣言を使って擬似的にインターフェースを定義していた。
参照カウンタも AddRef,Release メソッドを呼びだして自分で
管理する必要があったんだよね。

俺は言語レベルでリファレンスカウンタを自動的に管理してくれる方が
良いが、単なるメソッドテーブルとしてインターフェースを使いたい場合
それが邪魔になるということだね。

★解決した問題はこちらへ★

2chで解決したDelphi質問をFAQ収集するスレ
http://pc.2ch.net/test/read.cgi/tech/1004501183/

メッセージフックによるフォームに矢印とかを表示する増やすサブクラス化の実験

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999294620&res=37

前回作った複数矢印コンポと同じアイテムを使います

貼り付けると、まるで矢印コンポがあるかのように見えるけど、
　アイテムは TObjectから継承してるのでコンポではありません。

Win2000では　ほぼ巧く動きました

２５６色ＢＭＰの保存および読み込みを独自関数で行いたいと思っています。
（パレットを独自で管理したいと思っているので）
ご存知の方がいましたら、教えていただきたいです。
よろしくお願いします。

>>307
質問の内容がまったく分かりません。
我々は何を答えれば良いのでしょう。

>>306 は リンク先msg38 の修正をしてからインストールして下さい。
修正しないと Destroy でミスしてるので困った事になります

>>307
すみません。そのとおりです。
もう一度質問させてください。

２５６色ＢＭＰの保存および読み込みの方法を教えていただけないでしょうか？
または、パレット管理のよい方法が知りたいです。

Ｄｅｌｐｈｉ標準のだと２５６色BMPの保存、読み込みは出来るのですが
パレットで躓いてしまいます。

1)BMPを読み込み、パレットを取得
2)BMP編集後、上記１で取得したパレットで２５６色で保存
3)BMPを読み込み、上記で1)取得したパレットで表示

というような処理をしたいのです。

よろしくお願いします。

Delphi思いっきり逝って善し。死言語ﾃﾞｽ

>>304さん、レスサンクス

インターフェースも継承できるのだから
ＣＯＭに依存しないインターフェースを作って
そこからIUnknownを派生させればいいのにと思うニャ。

というかクロスプラットホーム環境でまで
なぜCOM的なﾘﾌｧﾚﾝｽｶｳﾝﾀ実装しなきゃならないのか
納得いかない。

TObject以下のクラス変数=ポインタは
DelphiPascalの利点だったけど

このインターフェース変数の実装は
明らかにＪａｖａに劣る欠点だと思うニャ

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　
　　ミ,, ﾟДﾟ彡
　　 〃つl⌒|⌒l
　～ﾐ,,［￣￣￣.］
　　　　 ￣￣￣

>>312
それは Delphi は Java では無い。から。です。

　　＿＿＿＿
　/......　　..　.../
　||:::　　 ∧,,∧　　／￣￣￣￣￣￣￣￣￣￣
　|:￣＼ ﾐ,, ﾟДﾟﾐ＜　　と、過激に言ってはみたものの
　|:　　 :|:￣U U￣:|＼＿＿＿＿＿＿＿＿＿
　|:　　 :|:　　　　　.:|

　　 ＿＿＿＿＿
　／:＼.＿＿＿__＼ 　／￣￣￣￣￣￣￣￣￣￣
　|:￣＼ ミ　ﾟДﾟミ　＜　ちょっと後悔
　|:　　 :|:￣U U￣:|　 ＼＿＿＿＿＿＿＿＿＿

　.＿＿＿＿＿_
　|:　 :＼.　　　　＼ 　隠れとこう
　|:　　 :|:￣U U￣:|


インターフェース変数に入れた時は
オブジェクトを開放しないように気をつける
という対処方法でよいかニャ

うぅ～ん～　JAVAに劣るってのがよくわからにゃいな・・でもこの話題に触れると
荒れそうだから放置

デストラクタ　Destroy 以外の名前に出来るけどやらないでしょ？

オブジェクトの削除方法は共通の方がいいに決まってる。
だから、インターフェスじゃデストラクタを最初から用意したってだけのことでは？

>>310
普通にTBitmapで256色BMPをロードしてきたら、Paletteプロパティにパレットハンドルが入ってて、GetPaletteEntriesのAPIでパレットの内容を取って来たり、SetPaletteEntriesのAPIでパレットの内容を変更したりできるはずでえす。

>>310
それでも独自処理の方を望むなら、ぐーぐるとかで BITMAPFILEHEADER を引けば、BMPファイルの構造を教えてくれるので、自分で１バイトずつ読みながら必要な情報を取り出したり、保存するときは１バイトずつ書き込んでBMPファイルを作り上げれば良いです。

>>312
どうしても nil 代入をしたくないというのなら下のような方法もある。
実装クラスにインターフェースを持たせるのではなく、別クラスに
インターフェースとしての機能を持たせるのです。

この方法だとTHogeImpの生死は、インターフェースの参照カウンタとは
完全に無関係になります。

type
　// とりあえず作るインターフェース
　IHoge = interface
　　procedure ShowMessage;
　end;

　// ITest のメソッドを実装するクラス
　THogeImp = class
　public
　　procedure ShowMessage;
　　function GetHoge: IHoge;
　end;

　// インターフェースを実装するクラス。
　TTestImpAdapter = class(TInterfacedObject, IHoge)
　private
　　FImp: THogeImp;
　public
　　constructor Create(AImp: THogeImp);
　　property Imp: THogeImp read FImp implements IHoge;
　end;

implementation

procedure THogeImp.ShowMessage;
begin
　Windows.MessageBox(0, 'テスト', 'ほげほげじゃ', MB_OK);
end;

function THogeImp.GetHoge: IHoge;
begin
　Result := TTestImpAdapter.Create(Self);
end;

constructor TTestImpAdapter.Create(AImp: THogeImp);
begin
　inherited Create;
　FImp := AImp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　HogeImp: THogeImp;
　Hoge: IHoge;
begin
　HogeImp := THogeImp.Create;
　Hoge := HogeImp.GetHoge;
　Hoge.ShowMessage;

　HogeImp.Free; // nil 代入するまえにFree しても
　Hoge := nil;　// エラーが起きない
end;

★解決した問題はこちらへ★

2chで解決したDelphi質問をFAQ収集するスレ
http://pc.2ch.net/test/read.cgi/tech/1004501183/

>>319
解決する問題と
解決しそうにもない問題を切り分ける能力くらい持ってくれ。

おれってバカだから。

★解決した問題はこちらへ★

2chで解決したDelphi質問をFAQ収集するスレ
http://pc.2ch.net/test/read.cgi/tech/1004501183/

>>306 >>309 のコンポは
Linesプロパティに
RTEXT,39,138,164,218,34,TEST漢字

みたいに定義すると斜めのラベルを貼ったように使えます
　けっこう面白いのですが、ドラッグでサイズ指定する時が、
なんか格好悪いのです。　何か巧い方法はないでしょうか？

　今は四隅をドラッグするとサイズ指定になっています

>>318のやつは面白いねぇ。たぶん使わないけど（笑）

306 移動しました
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1004530597

どうも　斜め文字を描く時に、サイズを得るのに HDC が必要な為、　Paintメソッドが呼ばれた
時についでにサイズを変更してるのが良くない感じ・・・・

　しかし、アイテムはWinHandleを持っていないから HDCが簡単には手に入らないし・・・
　sysytem.Handleから HDC 作ってもいいのかな？

×sysytem.Handle
○Application.Handle ・・・鬱

　　　　　　　　　　　　　　 ＼　　　ﾃｹﾃｹ 　　　　　／
＿＿＿.＿＿＿. 　∀　　　　￣￣∨￣￣￣￣￣
　　　　　　 . 　　.|　┷┳━　　　 ∧,,∧,,,,,,,,,,,,,,,
￣￣￣￣￣￣￣|...　┃　　　　ミﾟДﾟ,,彡,,,,,,,, 　ﾞ～
￣￣￣￣￣￣￣ 　 .┻　 　　　　 U U """"UU

　　　　　 　 　　　　∫　　　 ＿＿＿＿＿＿＿＿＿
　　　∧,,∧ 　　 　∬　　 ／
　　 ミ,,ﾟДﾟ彡っ━~　　＜　ただーいま。..
＿と~,,　　~,,,ﾉ_. 　∀　　　＼
　　　 ﾐ,,,,/~), │　┷┳━ 　￣￣￣￣￣￣￣￣￣
￣￣￣ .じ'Ｊ￣￣|　┃
￣￣￣￣￣￣￣ 　┻

いろいろ教えてくださってサンクスコ。
話が複雑すぎてついていけない、恭子の語呂

>>325

GetDC(0) でスクリーンＤＣのハンドルがいつでも使える。

　　 ,∧,,∧∩ 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ 彡＜　教官!!>>318さんのコードが
＿_ミ ﾐ　　ﾐ 　　＼＿なぜ動いているのかわからません
＼,,∪ ￣￣￣＼
||ヽ||￣￣￣￣||"
　...||￣￣￣￣||

○interfaceってＧＵＩＤなくてもいいのかニャ？

○IHogeをinterface継承しているのに
　TTestImpAdapterは
　procedure ShowMessageを作らなくても
　いいのかニャ？

○　　property Imp: THogeImp read FImp implements IHoge;
　つーか implements 指令って何これ？

○　Hoge.ShowMessage;
　なぜTHogeImp.ShowMessageが呼ばれるのか....

　ﾆｹﾞﾛｰ
　 ∧,,∧ ──────
　ﾐﾟДﾟ,,彡 ＜ さぱーり理解できませーん。
　⊂⊂　ミ──────
　　　 ヾ　,,ミ～　────
　　　　 し しﾞ　─────

　こんなコード、いったいどこで取引されているのＹＯ・・・・
　　やはり闇市場でしょうか...

　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣ミ,,ﾟДﾟミ￣|　　　＜　　もう寝ます。
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜ きっと明日になったらわかる、きっときっと
　 ＼ |＿＿＿＿＿＿＿|

Delあめ猫のレヴェルの高さに、舌を巻いてる奴は多いと思われ(w

そいえば、MLでも出ていたのでご紹介。
UMLスレでおもしろいツールが紹介されてました。

http://www.osk.3web.ne.jp/~shino/dev/DICON/DICON.html
どうですかねー>>各位

￣￣∨￣￣￣
　 ∧,,∧
　ミ,,ﾟДﾟ彡
　 ﾐ つ[UML］).
～ﾐ ,,　ﾐ　
　 ∪∪　　

MLの人たちはD6のダイアグラムページは
無視しているのだろうか....
ｶﾞﾑﾊﾞｯﾀﾗUMLのクラス図かけなくはないだろうに…

>>330　（W
コード書くの早すぎ...

>>327 了解にゃ・・・ありがと

>>330 なんか　かいかぶりすぎ
　GUI用の計算ソースはあのページからカッパラッたもんだし
　回転関係は普段良く使うから慣れてるだけだにゃ

○interfaceってＧＵＩＤなくてもいいのかニャ？
いい。省略可能。
○IHogeをinterface継承しているのに
　TTestImpAdapterは
　procedure ShowMessageを作らなくても
　いいのかニャ？
いい。property Imp: THogeImp read FImp implements IHoge;
で、FImpにIHogeの実装を委譲しているから。
○つーか implements 指令って何これ？
property xxx: Txxx(もしくはIxxx) read Fxxx implements Ixxx;
で、Txxx型(Ixxxを実装している)のメンバFxxxにそのクラスのIxxxの実装を
委譲する。
○　Hoge.ShowMessage;
TTestImpAdapterはIHogeインターフェースをTHogeImpに委譲してるので、
THogeImp.ShowMessageが呼ばれる。

　　　　∧ ∧　　>>333
　　　 ミ ﾟДﾟ彡 　すごすぎ
　　～ﾐ,,,,uuミ

なぜにsage進行・・・・ageとくかしら

>>333(サンサンサン)さん、サンクスコ(「さん」がｲﾊﾟｰｲ)
　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／ようやく
　ミ；ﾟДﾟ彡＜　理解はできたのですが
　 ﾐつ　つ 　＼ こういうアダプターを作る方法が
～ﾐ ,,　ﾐ.　　　　いいのか悪いのか…
　 ∪∪　　

Ｉｎｔｅｒｆａｃｅに関係なく重複メソッドのあるVCLには
こういうInterfaceアダプターを作るのは
都合がいいかもしれないけど

素直にコーディングしたい時には
なんというか複雑怪奇な
コードにならざる得ないような…気がしています。

実際にはIHogeインターフェースの参照が無くなる時には
TTestImpAdapterが破棄されているわけですよね。

THogeImp.GetHogeを内部に隠さなければわかりやすい。

procedure TForm1.Button1Click(Sender: TObject);
var
　HogeImp: THogeImp;
　Hoge: IHoge;
begin
　HogeImp := THogeImp.Create;
　Hoge := TTestImpAdapter.Create(HogeImp);
　Hoge.ShowMessage;

　HogeImp.Free; // nil 代入するまえにFree しても
　Hoge := nil;　// エラーが起きない
end;

TTestImpAdapter が TInterfacedObject を継承しているから
TTestImpAdapterは破棄する必要がないといえばないのですが。

納得いかないなあ。これがＢｏｒｌａｎｄの選択なのかな。
Delphi以前の class型のない object型の時の ObjectPascalみたいな
不便さを感じる。(ってDelphi以前の事は知らないですが)

インターフェース変数に代入するときに
自動的に内部でアダプター作ってくれりゃあいいのに
と思うのは俺だけかな？


　　　　　　∧,,∧l||l 　最近、文句いってばっかだニャ
　　　　 　 ;ﾞ⌒ヽ彡　　ﾄﾎﾎ
　　 　 ～ﾐ＿__ﾐ 　　
　　　 ''" ""''"" "''
　　Delphiによりよくなってもらいたいの。
　　C#にもJavaにも負けて欲しくないの。

　　GUIDがなくてもOKってのはいい事を聞きました。感謝。

integerとExtendedに互換性がないって出ました
解決法は無いですか？

ありますよ。　丸め関数を呼べばOK　例えば Roundとか
Extended に integer　を代入はOK

あ、Roundがあったんですね。
どうもです。

なんつーかマイナーだな<Round

>>339
同意。漏れはTrunc呼んじゃう。

　　　　　　∧,,∧l||l 　腹をこわした。
　　　　 　 ;ﾞ⌒ヽ彡　
　　 　 ～ﾐ＿__ﾐ
　　　 ''" ""''"" "''

　　　　　　　　　　ｸﾜｯ
　　　　　　　∧,,∧l||l 　Delphiの悪口言ったら
　　　　 　 ;;ﾞミﾟДﾟ彡　　バチあたったんか！
　　 　 ～ﾐ＿__ﾐ
　　　 ''" ""''"" "''


　　　　　　∧,,∧l||l 　あた、、あたたたた。(TДT
　　　　 　 ;ﾞ⌒ヽ彡　
　　 　 ～ﾐ＿__ﾐ ))
　　　 ''" ""''"" "''

>フサギコさん
お大事に。猫は元気ですか？

　　　　　　　∧,,∧l||l 　彼女は病院に入院中です。
　　　　 　 ;;ﾞミﾟДﾟ彡　　名前はトラギコかトラしーちゃんにしようか...検討中
　　 　 ～ﾐ＿__ﾐ 　　　　いま一つ体調はよくならないのです。点滴うってもらってます。
　　　 ''" ""''"" "''

　　　　　　∧,,∧　　　そうそう。彼女の痛みに比べりゃ
　　　　 　 ;ﾞ⌒ヽ彡　　この腹の痛みなど、大したことないよな。
　　 　 ～ﾐ＿__ﾐ
　　　 ''" ""''"" "'' 　　♀の子だから、トラしーちゃんかな…ﾔﾊﾟｼ

杞紗がいい。

いやー、今朝夜食買いにｺｿﾋﾞﾆ逝ったら、
途中の道の中央分離帯のところで交通事故死したと思われな、
黒い子猫の死体をﾊｯｹｿ、一気にｳﾄｩになったよ…


Delﾌｻのｳﾄｩな気分を垣間見た気がする…

ファイル検索関数を作りましたが、どうも
非効率的な気がします。
Maskユニットを使いたくなかったので MatchesMask 関数を使わなくても
大丈夫なように少し工夫しました。

最初に、マスクを指定して FindFirst → ファイル一覧を得る

次に、マスクには * を指定して FindFirst → ディレクトリ一覧を得る
→ 再帰検索。

２回目で結局全てを検索しているので、1回目の検索は無くてもいいような
気もしますが、１回目で * マスク検索をすると、ディレクトリ以外だった場合に MatchesMask 関数でチェックをしないといけません。

高速化のために、よい知恵はありますか。

ソース↓
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1004653717&res=1

>非効率的な気がします。
気がしますって...
プロファイル取ったの？

いえ。単に、２回も３回も同じ場所を検索しているから
非効率的だと思っただけです。

　　 .∧,,∧ 　　 　∧,,∧　　　∧,,∧ 　 　 ∧,,∧　　　∧,,∧　　　 .∧,,∧
　　ミ,,ﾟДﾟ彡　　 ミ,,ﾟДﾟﾐ　　ミ,,　　彡　　ミ,,　　ﾐ　　.ﾐﾟ∀ﾟ,,彡　　 ミﾟ∀ﾟ,,彡　ｱﾋｬ
　　⊂　 つ　　　〃 つつ　　〃　つ　 　⊂　　つ　 ⊂ﾐ⊂ ﾐ　　　⊂　 つ
　　　０　 ﾐ～　～ ,, つ　　　～　,,つ　　　～　 ,つ　 .⊂　　ﾐ～　　 ０,　 ﾐ～
　　　 ,｀ Ｊ　　　 (/　　　　 　(/´　　　　 　 し´　　　 　　,｀Ｊ　　　　　　｀Ｊ

>>344読めません。
>>345時には出会います
>>346フサが自作しているのはワイルドカードマッチを
無視して全検索するものなので、知恵はでてこないです。

　　∧∧　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 (*ﾟ－ﾟ)⊃∧　　　　　　　　　＜　最近ｼﾂﾓｿが少ないねー
＿_| つﾐ,, ﾟДﾟミ,,,,/~つ＿　　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　と＿）ヽ,,,つ,,,,,,,ﾉJ　　|　━┳━
￣￣￣￣￣￣￣￣￣￣|...　┃
￣￣￣￣￣￣￣￣￣￣　　.┻
　　　聞くは一時の恥、聞かぬは一生の恥ぞよ
　　　何でも聞いてみましょうな。

>>348
　他の方法は FileListBox を非表示で作成して　temsを見る方法が思いつくけど

そういうの追いかけてもしょうがないと思うよ。
　　　それがメインの物作ってるなら別だけど
　　　その方法でも、そんなに待てない程は遅くないでしょう

>>350
まぁマターリいこうや

うーん、いくらかばかりでも
盛り上げようと
問題提起をしてみたのですが（内容に問題があったか）
無理か…

　 ∧,,∧　 　　 ／>>353そでしたか、サンクスコ
　ミ,,ﾟДﾟ彡　 ＜　そもそも、ワイルドカド使うファイル検索って
　 U　 U　　　　＼多用します？
～ﾐ　　ﾐ
　 ∪∪

フサはワイルドカドなしファイル検索で十分なので
必要性を感じないのだけど...

みんな悩んでおおきくなった

まあ、正直なところ
ワイルドカードよりも、任意の拡張子の
ファイルを探す事 "しか" ありませんね。

*.txt

こういう風にしか使わない…

Delの作業ファイル消すときに
*.~*;*.DCUとかで使ったぐらいかなぁ

　 ∧,,∧　 　トラしーちゃんが
　ミ,,　　彡　 亡くなったってさ。
　ミ　　 ミ　
　ﾐ～,,　ﾐ
　 ∪ ∪

>>358

そうですか。残念でした....。
Delフサさん、元気出してね。

C++Builderで検索パスの設定に$(BCB)て書くとBuilderをインストールしたパスが
展開されたんだけどそういうのないの？

インターフェースを使うと何が便利になるのですか？

$(DELPHI) で良いのでは。
$PATH( $EXENAME ) でパス名取得とか、
そんなマクロもあったような（ツールの設定だけかな）

インターフェースを使った、同一プロセス内でモジュール
をまたいだメソッドの呼び出しはこんなふうにやるのですか？

-----------------------
Project.exe

type
　IHoge = interface
　　procedure Print;
　　procedure Exit;
　end;

　THoge = class(TInterfacedObject, IHoge)
　　procedure Print;
　　procedure Exit;
　end;

var
　Hoge: THoge;

function GetHoge: IHoge; stdcall;
begin
　Result := Hoge as IHoge; // Hogeは作成済みとする
end;

------------------------
Library.dll

type
　IHoge = interface
　　procedure Print;
　end;

var
　Hoge: IHoge;
begin
　Hoge := GetHoge; // Project.exe の GetHoge
　Hoge.Print;
end;

>>363
Project.exe と Library.dll が逆のような気がするけど、THoge を
作成したときに参照カウンタをあらかじめ一つ増やして置いてください。

そうしないと >>363 の Library.dll 側で IHoge が必要なくなったときに
THoge が自動的に解放されてしまいます。

Hoge := THoge.Create;
Hoge._AddRef;

こんな感じです。

>>346
Del5ProにはMatchesMaskがない（はず）なので私も同じ方法ですが
複数のフォルダから時に千以上のファイルを検索してもストレスを感じないので
これで良しとしています．
２回目以後の検索ではディスクキャッシュが効いていますしね．

うちのはさらに"*.pas;*.dfm"といった複数のマスクにも対応させるために
フォルダごとに都合（マスク数＋１）回検索していますけど
ストレスは感じませんでした．

ただ，どっかに不具合があるのか，この検索を使っている自作コンポを使うと
統合環境の２回目の実行で必ずDelphiごと固まってしまいます（涙）．
メモリの開放，どこかで忘れたかなぁ？？？

　∧,,∧　 　　　／￣￣￣￣￣￣￣￣￣￣
ミ　ﾟДﾟミ　∫＜　>>361　多重継承みたいなことできます
.(ﾐ　　ﾐっ-~　　＼＿＿＿＿＿＿＿＿＿＿
～ﾐ,,⊃ﾐ⊃

TComboBoxとTEditのTextプロパティを同列に扱いたい場合
それぞれにインターフェースをくっつけてTextプロパティを
操作するとコーディング量がすくなくて済みます。

I := ComboBoxInterface1;
I.Text := ’ニテヨシ’;
I := EditInterface1;
I.Text := 'ヤイテヨシ';
こんな感じ。

>>365
*.*で全ファイルを検索して実際にファイル名を拾うときに
拡張子がpasか、dfmかという判断をする検索でも
6000ファイルをなめてもストレスはあまり感じてないです。

メモリリーク調査ユニットを使ってはいかがでしょうか？

TListView を仮想リストビューで使うとき、
OnData で表示する TListItem を作るわけですが、
同様のリストビューが複数必要なので、
TListView を継承したコンポーネントを作成しようと思いました。
モデルのクラスは固定です。

この場合、OｎData や OnDataFind を定義した上で
外部から変更できないようにするのがいいでしょうか？
それとも UpdateAction メソッドをオーバーライドして作れる？

複数っていくつ必要なのか知りませんが，
そういう場合私だったら普通にイベントハンドラを使い，
なるべくコメントでわかりやすくするようにこころがけます．

>>365
＞Del5ProにはMatchesMaskがない（はず）なので私も同じ方法ですが
あるよ・・・。

インターフェースを使って、他の言語で作成されたモジュールとやり取りする場合、
WideString型の引数や戻り値を使っても大丈夫なのですか？

Delphiで書くとこんなかんじです。

　IHoge = interface
　　function GetName: WideString; stdcall;
　　procedure SetName(const AName: WideString); stdcall;
　end;

インターフェースとはどんなものか勉強しているのですが、
以下の as 演算子の使い方はなぜいけないのでしょうか？

type
　ITestData = interface
　　['{BBF2BE95-FEE5-4CC2-9CEF-9C83E29BF234}']
　　function GetColumnText(Index: Integer): string;
　　property ColumnText[Index: Integer]: string read GetColumnText; default;
　end;


　TTestComponent = class(TComponent, ITestData)
　private
　　function GetColumnText(Index: Integer): string;
　public
　　property ColumnText[Index: Integer]: string read GetColumnText; default;
　end;

implementation

function TTestComponent.GetColumnText(Index: Integer): string;
begin
　Result := 'Column_' + IntToStr(Index);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　TestIntf: ITestData;
　TestComp: TTestComponent;
begin
　TestComp := TTestComponent.Create(nil);
　TestIntf := (TestComp as ITestData);　　　　// ← だめ
end;

わかりましたすみません (汗

_AddRefと_Releaseを書き換えるやり方はどうなのでしょうか？

type
　TMyInterface = class(TObject, IUnknown)
　　function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
　　function _AddRef: Integer; stdcall;
　　function _Release: Integer; stdcall;
　end;

　IHoge = interface
　end;

　THoge = class(TMyInterface, IHoge)
　end;

function TMyInterface._AddRef: Integer;
begin
　Result := 1;
end;

function TMyInterface._Release: Integer;
begin
　Result := 1;
end;

>>284 のDelフサギコさんのやつをいじっているのですが

procedure TForm1.Button1Click(Sender: TObject);
var
　NodeIntf: INodeData;
　NodeComp: TNodeComponent;
begin
　NodeComp := TNodeComponent.Create(nil);
　NodeIntf := NodeComp;
　Button1.Caption := NodeIntf.ColumnText[0];
　NodeComp.Free;
end;
エラーになりません
なぜでしょうか？

Ver1のインターフェース
　IHoge = interface
　　procedure Beep;
　end;

Ver2のインターフェース
　IHoge = interface
　　procedure Beep;
　　procedure Exit;
　end;

があって、EXE側でオブジェクトを作成する場合、

EXE(Ver1)、DLL(Ver1)
EXE(Ver2)、DLL(Ver1)
は問題ありませんが、

EXE(Ver1)、DLL(Ver2)
の場合、DLLでIHoge.Exitは使えません。
DLLロード時に 『IHoge.Exit が見つかりません』等の
エラーメッセージをオプション等で自動的に表示する事は
可能でしょうか？

同じ事で悩んでらしゃーる
Delマガを読むのがいいと思います。
他にInterfaceの教科書ってありますでしょうか。
　>>みなさん

￣￣∨￣￣￣
　 ∧,,∧
　ミ,,ﾟДﾟ彡
　 ﾐつ[デルマガ］).
～ﾐ ,,　ﾐ　
　 ∪∪　　

>>374
たまたまかも。
フサもそういうタマタマエラーにならないことが
たくさんあって、わけわかに陥っていました。

> procedure TForm1.Button1Click(Sender: TObject);
> var
> 　NodeIntf: INodeData;
> 　NodeComp: TNodeComponent;
> begin
> 　NodeComp := TNodeComponent.Create(nil);
> 　NodeIntf := NodeComp;
> 　Button1.Caption := NodeIntf.ColumnText[0];
> 　NodeComp.Free; //※
> end;

※の部分でNodeIntfに代入してあるメソドテーブルが破棄されているので
確実にやばいと思います。

._Release: の実装内容にかかわらず
._Releaseの記述してあるメモリ領域が存在しないと
思った方がいいかも。

って、のであってるかな。

>>284のリンク先にあったよ・・・。

>>376
マジデスカっ！？
何度やっても全然エラーが出ないです・・・
MemCheck にもひっかからないです・・・
コワ～

INodeData;
TNodeComponent;
が何なのか解らないから、答えようがないのでは？

>>371 のTestをNodeと読み替えてください
ややこしくてすみません

NodeComp.Free; 後に
NodeIntf._Releaseが呼ばれて、その中で
NodeComp.Destroyが実行されるって事？

>>371
> procedure TForm1.Button1Click(Sender: TObject);
> var
> 　TestIntf: ITestData;
> 　TestComp: TTestComponent;
> begin
> 　TestComp := TTestComponent.Create(nil);
> 　TestIntf := (TestComp as ITestData);　　　　// ← だめ
> end;
TObjectのようなInterfaceを一つも継承していないものには
asが使えないらしい

ﾅｶﾑﾗのタクちゃん....いや、中村大先生さまも
Delマガでぼやいてました。

>>378
変数スコープを抜けた時のことを考えて
プログラムしなければいけないのは
かなりきついですよね。

>>374のコードでは
たしか_Releaseのコードにブレーク設定しても
ひっかからないと思われますがどうでしょう？
ひっかからないのはおかしいですよね。

>>379
普通の何かのCompoと何かのInterfaceなら
374コードは危険では？

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　ｻﾑｲ ﾖﾙ ｱﾀｶｲ チャがウマイ
　　ミ,, ﾟДﾟ彡
　　 〃つ旦O
　～ﾐ,,［￣￣￣.］
　　　　 ￣￣￣

エラーは出ないけど、デストラクタは二回呼ばれています。

type
　IHoge = interface
　end;

　THoge = class(TInterfacedObject, IHoge)
　　destructor　Destroy; override;
　end;

destructor THoge.Destroy;
begin
　inherited;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
　HogeIntf: IHoge;
　Hoge: THoge;
begin
　Hoge := THoge.Create;
　HogeIntf := Hoge;
　Hoge.Free;
end;

仲良し仲良し・・・

　　　　　　　　　　　　　　　　∧,,∧　゛
　　 ∧,,∧　　　　　　　　　　ﾐ・ー・ﾐ
　　ﾐ ´ー｀ﾐ∧ ∧　∧,,∧　゛ﾐ,,,,,,,,,ﾐ　゛
　 　＼　< (；ﾟДﾟ) ﾐﾟДﾟ ミ　　 /|
　　　　＼.⊂ヽ ＼⊂ヽ 　ﾐ,,_／/
　　　　　 ＼ ⊂ _,ノ ⊂ _,ノ゛／
　　　　　　　∪∪￣∪∪"

チャットみたい。

>>381
> NodeComp.Free; 後に
> NodeIntf._Releaseが呼ばれて、その中で
> NodeComp.Destroyが実行されるって事？

　　NodeCompo.FreeするとNodeIntfが指し示すメソッドテーブルも破棄されてしまうので
　　NodeIntf._Releaseの処理のためのメモリ領域そのものがないので
　　_Releaseを呼び出したとたんにアクセス違反が起きる可能性がある

とフサは認識してるのですが。ちがうかも。
　識者の方、間違っていたら指摘してね。

素直なやり方は
TInteafacedObjectを継承して
NodeIntf := TNodeCompo.CreateとしてFreeを行わずに
破棄は_Releaseに一任するのがいいと思いますよ。

>>383
デストラクタが二回よばれているのは変ですね？ナンデダロ
そのコードの場合、Freeはとりあえず必要ないです。

>>383
＞エラーは出ないけど、デストラクタは二回呼ばれています。

呼ばれなくなりました！
function TNodeComponent._AddRef: Integer;
begin
　Result := -1;
end;

function TNodeComponent._Release: Integer;
begin
　Result := -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　NodeIntf: INodeData;
　NodeComp: TNodeComponent;
begin
　NodeComp := TNodeComponent.Create(nil);
　NodeIntf := NodeComp;

　Button1.Caption := NodeIntf.ColumnText[0];
　NodeComp.Free;
end;

>>383コードのままだと
　　,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,ミ,,ﾟДﾟ彡 ＜　フサの環境では「無効なポインタ操作」例外でます
　 UU""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

>>383のコードから
//　Hoge.Free;
Freeをコメントアウトするとちゃんと動作します。

CreateしたものはFreeしないと気が済まないの。

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　同様の理由でヤバイと思うのですが…
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

> procedure TForm1.Button1Click(Sender: TObject);
> var
> 　NodeIntf: INodeData;
> 　NodeComp: TNodeComponent;
> begin
> 　NodeComp := TNodeComponent.Create(nil);
> 　NodeIntf := NodeComp;
>
> 　Button1.Caption := NodeIntf.ColumnText[0];
> 　NodeComp.Free;
> end; //※

※の段階でNodeIntf._Releaseが呼ばれるのに
実際の_Releaseがない(もしくは_Releaseを示すポインタがない?)
らしいですから...

_Releaseにブレークポイントを置いて
Free後に呼ばれているかトレース確認をしたらどうでしょう。
止まりますか？


>>387
と、、、言われても、俺もこんな実装嫌いですよ。

>>375
一度仕様が公開されるなどしたインターフェースは互換性を維持するため、
定義を二度と変更してはならないのです。新しいバージョンで新たなメソッドが
追加されるなどしたときは、新しいインターフェースを定義するのが普通です。

Ver1のインターフェース
　IHoge = interface
　　['IHogeのGUIDを入れてちょ']
　　procedure Beep;
　end;

Ver2のインターフェース
　IHoge2 = interface(IHoge)
　　['IHoge2のGUIDを入れてちょ']
　　procedure Beep;
　　procedure Exit;
　end;

としておいて、DLL 側 に HogeProc 関数があるとして下のようにすればよいんじゃないかな？

procedure HogeProc(Hoge: IHoge);
var
　Hoge2: IHoge2;
begin
　if Failed(Hoge.QueryInterface(IHoge2, Hoge2)) then
　　raise Exception.Create('IHoge2 が使えません。Ver2のEXEから呼びだしてください');

　Hoge2.Exit;
end;

>>385 にしめすように無事に、自分で破棄できるオブジェクトができました
以下がまとめのソースです (interface 部)
type
　INodeData = interface
　　['{BBF2BE95-FEE5-4CC2-9CEF-9C83E29BF234}']
　　function GetColumnText(Index: Integer): string;
　　property ColumnText[Index: Integer]: string read GetColumnText; default;
　end;

　TNodeComponent = class(TComponent, INodeData)
　private
　　function GetColumnText(Index: Integer): string;
　protected
　　function _AddRef: Integer; stdcall;
　　function _Release: Integer; stdcall;
　public
　　destructor Destroy; override;
　　property ColumnText[Index: Integer]: string read GetColumnText; default;
　end;

　TForm1 = class(TForm)
　　Button1: TButton;
　　Button2: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure Button2Click(Sender: TObject);
　end;

var
　Form1: TForm1;

(implementation 部)

{$R *.DFM}

destructor TNodeComponent.Destroy;
begin
　inherited;　// ← ここにブレークポイントおいて調べる
end;

function TNodeComponent.GetColumnText(Index: Integer): string;
begin
　Result := 'Column_' + IntToStr(Index);
end;

function TNodeComponent._AddRef: Integer;
begin
　Result := -1;
end;

function TNodeComponent._Release: Integer;
begin
　Result := -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　NodeIntf: INodeData;
　NodeComp: TNodeComponent;
begin
　NodeComp := TNodeComponent.Create(nil);
　NodeIntf := NodeComp;// as INodeData;

　Button1.Caption := NodeIntf.ColumnText[0];
　NodeComp.Free;　// 自分で破棄できました。
　// Destructor も１回だけです
　// なぜならば
end;

procedure TForm1.Button2Click(Sender: TObject);
var
　NodeIntf: INodeData;
begin
　NodeIntf := TNodeComponent.Create(nil);
　Button2.Caption := NodeIntf.ColumnText[0];

// このあとで NodeIntf がインスタンスを破棄しようとするが
// 参照が -1 しか返さないのでそのまま
// ※メモリリークします
end;

定義を変更できないのは困ります。
これじゃ、気軽に公開出来ません。

ユーザーからの要望に応じてインターフェースのメソッドを
増やせないのか・・・。

>>392
だからメソッドを増やしたいときは、>>389に書いてあるように
新しいインターフェースを作ってしまえば良いのでは？

TWebBrowser だって Navigator2 とかじゃん

>>382
>TObjectのようなInterfaceを一つも継承していないものには
>asが使えないらしい

>>371 での TTestComponent の宣言を下のようにすれば as 使えるようになるよ。

TComponent = class(TComponent, IUnknown, ITestData)

なぜ使えるようになるかというと、コンパイラは IUnknown インターフェースが
クラスで実装されているかどうかを調べて、as 演算子が使用可能かどうか
判断しているみたい。

で、class 宣言にはクセがあって class 宣言で列挙されたインターフェースのみ
クラスに実装されます。つまり、あるインターフェースをclass 宣言に列挙したからといって
そのインターフェースの親インターフェースも自動的にクラスに実装されることはありません。
下のコードでこのことは確認できます。

type
　IHoge1 = interface(IUnknown)
　end;

　IHoge2 = interface(IHoge1)
　end;

　THoge2 = class(TInterfacedObject, IHoge2)
　end;

procedure TForm1.Button1Click(Sender: TObject);
var
　obj: THoge2;
　Hoge1: IHoge1;
　Hoge2: IHoge2;
begin
　obj := THoge2.Create;
　Hoge2 := obj;　 // class 宣言で IHoge2 が列挙されているのでコンパイルできる
　Hoge1 := Hoge2; // IHoge2 を IHoge1 に代入することは出来る。
　Hoge1 := obj;　 // class 宣言で IHoge1 が列挙されていないのでコンパイルできない
end;

>393
その都度インターフェースを作っていたら、
インターフェースだらけ
　IHoge, IHoge2, IHoge3, IHoge4,....
になるのですが。
これは避けたい。

　　　∧,,∧　　　／￣
＼,,,,ミ,,ﾟДﾟ彡　＜　371=>>391さん
⊂,,,,,,,,,つつ.　　 ＼確かにコードは動きますね。

> 　Button1.Caption := NodeIntf.ColumnText[0];
> 　NodeComp.Free;　// 自分で破棄できました。
> 　// Destructor も１回だけです
> end;

…うーん。NodeCompo.Freeの後にNodeCompo._Releaseが動作しても
いいものなのだろうか？

再定義した _Release が -1 しか返さないのでいいと思います

>>397,398
インスタンスが廃棄されたあとはインターフェースの内容は不定になるので
やっぱり_Releaseを呼びだしてはいけないと思います。

>>391 のケースでは、メモリが破壊されなかったとかなどでたまたま
うまく動いただけじゃないかな？

バグの原因になるのでやめた方がよいと思いますが…

_Release を class function には出来ないのかな・・・

　　　　∧ ∧　
　　　 ミ ﾟДﾟ彡 >>400　　同じ事、思った。
　　～ﾐ,,,,uuミ

いろいろ考えた結果、やはり >>390 じゃだめなような気がしてきました (^^;
おっしゃるようにたまたまっぽいです。
もうすこし考えてみます

こんなコードも動作しますが、いいのでしょうか？

function TMyInterface._Release: Integer;
begin
　Result := 1;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
　HogeIntf: IHoge;
　Hoge: THoge;
begin
　Hoge := THoge.Create;
　HogeIntf := Hoge;
　Hoge.Free;
　Hoge._Release;
　THoge($EEABCDEF)._Release;
end;

う～ん、どうもわたしは自分がやりたい事を見失っていたようです
私はただ永続的な Interfaced クラスを作りたいだけでした
別に _Release で破棄されるならそれでいいや
nil を代入しなければならないってのも慣れの問題かも

>>402 は
「だめなような気がしてきました」というか
よくみると「絶対だめ」でしたね

質問でゴワス。
ＭＤＩアプリケーションで
ＭＤＩチャイルドを表示させたときに、メインウィンドウのメニューを

メインウィンドウのメニュー　＋　チャイルドフォーム用のメニュー

というように、混ぜたいのです。いまは、チャイルドフォーム用のメニューにわざわざ
メインメニューと全く同じメニュー構造＋チャイルドフォーム用の
メニューを付け加えるという、無駄とも思える作業をしています。

もっと楽な方法はありますか。

あまりMDIのことは知らないけど
...Delphi6\Demos\Doc\TextEdit\textedit.dpr
これみるといいっすよ。>>406
┏━━━━━┯━━━━━
┃　 　 　 　 　 ｜
┃　 　 　 　 　 ｜
┃　　　　　　 ∩∩
┃ 　　　　　 ∧ ∧
┃ 　　　　　ﾐ,,ﾟДﾟﾐ
┃ 　　　　 　ﾐ　　ﾐ　ﾌｩ…
┃ 　　　 　　ﾐ　　ﾐ
┃ 　　 　　　ﾐ　　ﾐ　ﾐﾉﾑｼ ﾐﾀｲ ﾀﾞﾅ
┃ 　 　　　　..Ｕ..Ｕ
┃ 　　　　　　　
┃ ぶら下がり倦怠期

基本はほとんど全部作らなければいけないけど
DemoではWindowメヌーが重なってますね。

　　,,,,,,,,,,,,,∧,,∧　 　／
～′,,,,,,,ミ；ﾟДﾟ彡 ＜　BorConでオフ会の話とか出ないけど
　 UU""" U U　　　＼ニンヅウ大丈夫なのか？＞＞Bor

　フサはBorConのお金払えないから
　2chプログラム板オフに出ることにしたんだけど
　デルファーの人だれかきます？
　ハミゴになったらﾔﾀﾞﾅ。

ベクトル画像を扱いたいので WMF 形式を扱ってみたいのだけど、
TMetaFile って使い方が良く分からないのよ。
というか、 WMF 形式自体を、見た事が無い。
線を書き込んだり、テキストデータを埋め込むにはどうすればよいのでしょう。
というか、そもそもＷＭＦにテキスト及び
フォント情報を埋め込むことはできるので消化。

>>409
TMetafileはTBitmapと違ってそれ自身でデータを作ることができません．
TMetafileCanvasというクラスを使ってデータを作ります．
まずはヘルプをご参照ください．
TMetafileCanvasのCreateメソッドの説明から例を見られます．
この例にはありませんがテキストを書き込むこともできます．
フォントの埋め込みはたしかなかったと思いますが…．

注意点としてTMetafileはいくつか問題を抱えています．
私も彼の不可解な行動に振り回されましたが
この問題については中村拓男氏のサイト『中村の里』で
詳しく説明されていますのでそちらをご覧下さい．
Delphiマガジンの過去の号にも同氏の記事があったのですが号は失念．すいません．

>>408
そんなオフが開催されるのですね．
2chのオフ関係は関心が無かったのですが
職場が東京都下なのでBorCon会場付近ならいけないこともないなぁ．

＃しかしOff会板を見たもののそれらしきスレは見当たらなかったのですが…．

>>369
ぐぉ．ツッコミありがとう．

>>411
マ板見れ

_AddRefと_Releaseが-1を返すやり方はマニュアルに載っていますよ。

interface で定義するメソッドは stdcall を付けないとだめなのですか？
Delphi でだけ使えればいいのなら付けなくていいよっていうもの？

>415
Delphi only なら stdcall はいらない。

クラスを順序型にする良い方法はないでしょうか？
case ClassType of
TButton:
end;
こういう事がしたい

if (ClassType = Txx) then XX else
if (ClassType = Txx) then XX else
　　:
こういうのは嫌

今は自分で番号を決めてやっています

>>416
わかりました thx!

TComponent は _AddRef, _Release で -1 しか返さないんですね～
(VCLComObject が nil である限り)
昨日知ったです

>417
ないな・・・。
逆は出来るんだけどね。

>>420
そうですか・・・ レスthxです

ヘルプ眺めてたら ClassID ってのを見つけて「おぉっ！？」と思ったんですが
TComObjectFactory.ClassID
property ClassID: TGUID;

だめじゃん・・・

TList に色々な型のオブジェクトを追加しておいて１つずつ取り出してはインターフェース変数に代入したいのですが、
TList から取り出すと Pointer 型なので代入できません。

p := list[i];
if (TObject(p^).ClassType = TAAA) then intf := TAAA(p^) else
if (TObject(p^).ClassType = TBBB) then intf := TBBB(p^) else

こんな方法しか無いのでしょうか？

TInterfaceList で解決しました

でももし Pointer 型から戻せる方法があるのなら教えてほしいです
よろしくお願いします

頼むから半角カタカナはやめてくれ。

>>425
??
半角カナは悪ではないよ。

>>424
参照カウンタのことを完全に理解していないのなら、Pointer型を
介して使うのは大変危険です。

ただ単にキャストすればいいだけなんだけど、
　ptr := Pointer(intf);
と
　IUnknown(ptr) := intf;
は動作が違う。前者はptrにただ代入するだけだが、後者は
代入に加えて参照カウンタをもインクリメントする。

前者はきちんと参照カウンタをデクリメントしないとメモリリークするし
後者はインターフェースが勝手に廃棄されることがある。

>>427
書き込んだ瞬間に誤り見つけた…

(訂正版)
後者はきちんと参照カウンタをデクリメントしないとメモリリークするし
前者はインターフェースが勝手に廃棄されることがある。

ﾏｶｰﾊ ﾖｳｽﾞﾐ

ｼﾂﾓｿ
現在の時間を取得するのに一番時間のかからないやつってなんでしょう
いくつか方法あるけど・・・
ﾄﾞｳﾅﾝｼｮ？

NowTime := Now;

って、そんなに時間かかるんですか。

横槍
ミリ秒まで正確に測りたいときは
どうすんだろ
TZtimerでも使うのかな

_rsdtc

>>427 さん
知りたいのはポインタ→インターフェースなのです
以下がテスト用のコードです。
メモリリークはしないはずだと思いますので皆様よろしくお な が いします。

type
　ITestData = interface
　　['{BC55ADC4-9676-43EB-B16A-0AE02676C8CB}']
　　function GetText(Index: Integer): string; stdcall;
　end;

　TXComponent = class(TComponent, ITestData)
　protected
　　function GetText(Index: Integer): string; stdcall;
　end;

function TXComponent.GetText(Index: Integer): string;
begin
　Result := ClassName + '! ';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　obj: TXComponent;
　p: Pointer;
　intf: ITestData;
begin
　obj := TXComponent.Create(Self);
　p := @obj;
　Caption := TXComponent(p^).GetText(0) + ' / '; // 代入確認

//　intf := IUnknown(p^);　　// コンパイル不可
　intf := ITestData(p^);　 // ← Access Vioration

　Caption := Caption + intf.GetText(0);
end;

一つ加えておくと
intf := TXComponent(p^);
これは当然できます。
やりたいのはクラスがわからないという場合の話です

TObject(p^).ClassType という話になって
>>417 >>422 へとリンクされてしまいます

>>434
TObject にいったんキャストして、GetInterface メソッドを呼び出す。
使い方は TInterfacedObject.QueryInterface の実装を参考に。

as 演算子はこの場合、使用不可。

>>434
で変なところがあるな。

p := @obj; って変数自体へのポインタを得てどうするの？
関数抜けたら無効なポインタになるっしょ。

p := obj; として TXComponent にキャストするときは
TXComponent(p) とするべき。

プログラマを目指すなら、ActiveX や
Interface は知っておいたほうがいいかな。
ActiveXはいまだに動作原理…というか
何の目的で使うのかが良く分からないし、
Interface に関してはここの議論を見ても
？？？だし…

>438
必要になれば分かるよ。
Delphiのって限定じゃないInterfaceは理解すると良いかも。
JavaとかC#で。

>>436 さん
>TObject にいったんキャストして、GetInterface メソッドを呼び出す。
このヒントのおかげでできたです！ありがとう！

procedure TForm1.Button1Click(Sender: TObject);
const
　GUID_ITestData: TGUID = '{BC55ADC4-9676-43EB-B16A-0AE02676C8CB}';
var
　obj: TXComponent;
　p: Pointer;
　intf: ITestData;
begin
　obj := TXComponent.Create(Self);
　p := obj;
　Caption := TXComponent(p).GetText(0) + ' / '; // 代入確認

//　TObject(p).GetInterface(GUID_ITestData, intf); // どっちでも
　TObject(p).GetInterface(ITestData, intf);　　　　// いいです

　Caption := Caption + intf.GetText(0);
end;

>p := @obj; って変数自体へのポインタを得てどうするの？
>関数抜けたら無効なポインタになるっしょ。
あっそうか！なるほど

世界が広がったーよ

Supports ってここで使うのか！

～ >>441の続き ～
と思ったら、多分 >>395 の理由で IUnknown が無いと False しか返さないんですが
やはりこういう場合 class に定義追加しておかないとどうしようもないんでしょうか？

どうしようもない
Supports使わないって事で終わり

>>441
GetInterface の戻り値をチェックすればいいんじゃないの？

　　∧,,∧　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟ彡　＜　ちょっと用事があって、2chきてなかったす
　 ,;ﾞ　　ﾐ　 　 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　ﾐ.　　ミ
／゛゛゛゛
スマソ。貴重な情報みなさんサンクスです。
プログラミングバイブルのD6版とか出ないかな。
インターフェースについて体系的に知りたいことが山ほど...

Javaのﾃﾞｻﾞﾊﾟﾀ初心者本(デザパタスレで調べてください)
にInterfaceの例がイパーイのっているので
Javaも覚えたいと思っている人は
読んでみるといいよ。

インターフェースの使い道もわかります。

うえーん　Personalのヘルプのカスタマイズが無いモナー

￣￣￣￣￣￣￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 　 Λ＿Λ
　　　　　　　　　　（ ´Д⊂ヽ
　　　　　　　　　 ⊂　　　　ノ
　　　　　　　　　　 人　 Ｙ
　　　　　　　　　　し （＿）

このスレうざいんで早くつぶしちゃって下さいね

>>446
OpenHelpの事？
手動で出来ると思うのだが。

うえーん　oh.exeがやっぱり見つからないモナー

￣￣￣￣￣￣￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 　 Λ＿Λ
　　　　　　　　　　（ ´Д⊂ヽ
　　　　　　　　　 ⊂　　　　ノ
　　　　　　　　　　 人　 Ｙ
　　　　　　　　　　し （＿）

>>446
oh.exe ってない？

ヘルプファイルがあるディレクトリに、それッポイテキストファイルがあるので、
直接書き換えればいい。

TFrameでOnCreateイベントを使いたいけど、いい方法ありませんか?

delphiスレも消えかかってきましたね。
自然淘汰ですか。

さて。

OpenPictureDialog で独自の画像フォーマットを開けるように、
フィルタにマイ拡張子を追加してありますが、
このファイルを選択すると「毎回表示できませんエラー」が出てきます。

標準でない拡張子を選択した場合に、エラーを回避する方法はありませんか。

Ｘ　回避する方法はありませんか
○　回避するにはどうすればよいですか。

>>454
その画像フォーマットを登録してしまえば済むと思うのだが？

とうろく？
OpenPictureDialogに？
それとも、単に拡張子を関連付けるって事？

　　∧,,∧　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟ彡　＜　TGifImageをusesしたら
　 ,;ﾞ　　ﾐ　 　 　＼
　ﾐ.　　ミ　　　　　ダイアログでもGif表示できたような…
／゛゛゛゛
画像登録ってそう言うこと？

extras の jpeg.pas より
>TPicture.RegisterFileFormat('jpeg', 'JPEG イメージファイル', TJPEGImage);

TPicture に登録して、その情報はPictureDialogに反映されるの？

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　>>452
　ミ,,ﾟДﾟ彡＜　　Frameのコンストラクタは？
　 ﾐつ　つ 　＼
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ

　　ﾎｰｲ ｼﾂﾓﾝ
　　 ∧,,∧∩　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　＜　ヘジルスバーグ氏って
　　 U　　ミ　　　＼カタカナでフルネーム
　＠ﾐ　　ﾐ 　　　　　なんて呼べばいいのですか？
　　 ∪ ∪

ストリームからnバイトの文字をstringに入れるにはどうやればいいんでしょうか。

ストリームって、TStream型の事ですか？

>>452 >>460
私はフレームを使いまくっているので以前悩んだことがありますが，
やはりコンストラクタのオーバーライドで対処しています．

フレームのpublic部に次のメソッド（コンストラクタ）を追加して
constructor Create(AOwner: TComponent); override;
実装部に必要な処理を書きます．

>>463
そーです。
今回はTFileStreamです。

泥臭い方法もあるけど、
TStringStream経由するのが正統的かな?
ss := TStringStream.Create;
ss.CopyFrom( filestream, n );
ss.DataStringで文字列として取れる

>>466
ありがとさん。
Str?Copyとかその辺使うのかと思ってたけどちがかったわ。

SetLength(S, n);
Stream.Read(S[1], n);
は安全ですかねぇ～？

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　こんなんつくーたよ。Memo1には「ってヨ」という文字が入る
　ミ,,ﾟДﾟ彡＜　
　 ﾐつ　つ 　＼　StringStreamなんてあるんだ。初耳。
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ

procedure TForm1.Button1Click(Sender: TObject);
var
　MS1, MS2: TMemoryStream;
　SL: TStringList;
begin
　MS1 := TMemoryStream.Create;
　MS2 := TMemoryStream.Create;
　try
　　SL := TStringList.Create;
　　try
　　　SL.Text := '逝ってヨシ';
　　　SL.SaveToStream(MS1);

　　　MS1.Position := 2;
　　　MS2.CopyFrom(MS1, 6);

　　　MS2.Position := 0;

　　　Memo1.Lines.LoadFromStream(MS2);

　　finally
　　　SL.Free;
　　end;
　finally
　　MS1.Free;
　　MS2.Free;
　end;
end;

>>468
いつもそう書いてるYO

>>469
うーむ、
　MS2 := TMemoryStream.Create;
で失敗したら、MS1.Freeが呼ばれませんが、
どうしましょう？

　　　∧,∧　　　　 ,::　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡っ━'~　　|　適当なサンプルだから
　　ﾐ∪　 ~,ノ　　　　＜　勘弁してよ。
　　 ﾐ　 '' ミ　　　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　し'~し'

適当なサンプルでも考えさせられます。
最初にnilで初期化するか、try-finallyブロックをネストするか。

よくこんなエディタでやってられるな。＞del使い
VB⇒VC⇒java(秀丸）と触ってきたが一番使い辛いぞ。
フリーカーソルなんぞはツールで克服すつとしても、それ以前の基本機能である
window分割とかできんし、なんだかストレスが溜まってしかたない俺はdelさわるなってことか？

>>474
ウィンドウの「分割」はできないけど，同じエディタバッファを複数のウィンドウで
同時編集できますが？

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／
　ミ；ﾟДﾟ彡＜　慣れですから。
　 ﾐつ　つ 　＼
～ﾐ ,,　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　 ∪∪　　

別の編集windowを開けて上下に配置して
デスクトップ位置保存をしてみるとよかれ。

あと、ツールに
エディタを登録して実行引数を$EDNAMEにでもすると
開いているテキストが他のエディタで開けるから
それをつかってちょ。

>>474
これでどう？ http://www.gexperts.org/

>>474
弘法筆を選ばず.

良く出てくるフリーカーソルって、
フルスクリーンエディタの事？
N88-BASICとかと同じ。

>>477
それを入れると何がどう変わるのか、軽く触りだけでも教えてもらえたり
なんかすると、厨房なボクとしては凄く感激だったりするんだけど、教え
てみたりなんかしてみない？

ここに絵付きで一覧がある
http://www.gexperts.org/tour/html/

エディタの拡張とかgrep検索とかVCっぽくしたりもできる
どのあたりが気に食わないのかわからないけど
GExperts は D2 の頃から開発されつづけてるからだいたい何でもあると思う
オープンソースだ

オレはフリーカーソルじゃないと嫌だけどなぁ

>>479
フリーカーソルってのは、行の終わりよりも右にカーソルを置ける機能のこと

おれもフリーカーソル派だけど、
フリーカーソルは宗教論争的なので、話題にするのは危険。

的じゃなくて、完全に宗教論争

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　はい、ありがとうございます！
|　某landサポートセンターです！
＼＿＿＿＿＿　＿＿＿＿＿＿＿
　　　　　　　　 ∨
　　　　　　 ∩＿∩ D
　　　　　　（　´∀｀）○　　　　___
　　　　　　（　　　　）D……／◎＼
=============================
／￣￣￣￣￣￣￣￣￣￣￣￣￣
| 　Delphiを作った人は
| 　アンダースヘジルスバーグさんって
| 　お呼びすればいいのでしょうか？
＼＿＿＿＿＿　＿＿＿＿＿＿＿
　　　　　　　　 ∨
　　　　　　　　 C∧,,∧
　　 ___　　　　○ﾐﾟДﾟ,,彡 ﾊﾂｵﾝ ﾜｶﾗﾝ
　／◎＼……Cミ　 ミ
=============================
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　・・・・・・・・・・・・・・・・・・・・
|　　　ｲﾝｼﾃﾞﾝﾄ減りますがお調べいたしましょうか？
＼＿＿＿＿＿　＿＿＿＿＿＿＿
　　　　　　　　 ∨
　　　　　　 ∩＿∩ D
　　　　　　（；´∀｀）○　　　　___
　　　　　　（　　　　）D……／◎＼
=============================

>>485
実話？

>>485 ﾜﾗﾀ
　　　　　漏れも実話か気になる、教えてくれ。

　 ∧,,∧　　　　 ／￣￣￣￣￣￣￣￣￣
　ミ；ﾟДﾟミ　　＜　　実話なわけないっしょ
　(ﾐ　　ﾐつ)ﾋﾞｼｯ＼＿＿＿＿＿＿＿＿＿
～ﾐ　　ﾐ
　 ∪ ∪

ﾎﾝﾄにやったら、Borlandから目をつけられるという
諸刃の剣ですね。

実際に試してみてよ。
同じ質問を「C# を作った人は...」に置き換えて、MS に聞いてみて、
対応を比較するのも一興。

むむ、有益な情報皆様ありがとう。
弘法は筆を選ばないが、厨房なので筆を選んでしまいます。
ま、とりあえずGExperts入れてみます。つーヵdelだけの人って
MSDNとかネットでみてんの？

　 ∧,,∧　　>>490　そだよ。
　ミ,,ﾟДﾟ彡
　ﾐつ[|lllll］). 　>>489　やだよ。
～ﾐ　　ﾐ
　 Ｕ''Ｕ

>>490
筆おろしした？

>>490
当然。常時接続だし。

MSDN Professional購読してるが
値上げしたので次の延長時期が来るのが怖い…

　　　　∧ ∧　　D6対応β時点でCtrl+Alt+CとUが効かなかったのですが
　　　 ミ ﾟДﾟ彡 治ってます？>Gｴｷｽﾊﾟ
　　～ﾐ,,,,uuミ

　だーれか。日本語化してほしなーー。

http://hp.vector.co.jp/authors/VA003525/jmysoft.htm#6
もあるしー。exeScopeのライセンス料の2000円あげるからGエキスパの日本語化
だれかしない？って、誰もやらないか....

Anchorsを指定してフォームのリサイズに応じてコントロールもリサイズ、移動
するようにしてる場合、画面のプロパティでフォントの大きさを変えると
レイアウトが崩れます。回避するにはどうすればいいでしょうか

　∩|
　ﾐ ﾞ''ﾞﾞﾞつ
　ﾐ∧,,∧　　　／￣￣￣￣￣￣￣￣
　ミ,,ﾟДﾟ彡 ＜　ニュートンのリサイズｷｯﾄなど・・・・・・・
　Ｕ　Ｕ　　　　＼＿＿＿＿＿＿＿＿

http://www.newtone.co.jp/produc11.html

GetPixelPerInchｱﾋﾟとかでフォントサイズ取得できたっけ？

フォームにPixelsPerInchていうプロパティありますが、
触ればどうにかなりますか？

>>495
CVS でソース公開しているけど、それじゃだめなんか？

ふむ。GExperts 日本語化プロジェクトを始めようか。

ふむ、なかなかdel使いってのは苦労してるんですな。ADSLならいいだろうけど、
MSDNなんてめちゃめちゃ時間かかるじゃん。む？まさかPlatformSDKをダウンロード？
そんな不便を補って余りある利点がデルにはあるのかな。　ま、どっちにしろ500に
期待ってとこか。

厨房が一人混ざっているようだな。あえて番号は伏せるが。(ｗ

delの最大のメリットは膨大なMLの過去ログにあります。
過去ログ検索すれば分からない事はありません(藁

>>501
親切に教えてあげようね。
Platform SDK をダウンロードしなくても，必要なところだけ読めるようになっているんですよ。

PlatformSDKってどこでダウンロードするの？

Delphi を勉強し始めたのですが、コーディングガイドラインとか変数の命名規則で、
標準的なものとか推奨なものがあれば、載っている本とかサイトを教えて下さい。

よろしくお願いします。

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvsgen/html/hunganotat.asp

>>506
「コーディングガイドラインとか変数の命名規則」は識別子に短い名前しかつけられなかったり
型管理が弱い言語において、楽をするための方便です。

C++ や Pascal などの型情報をちゃんと処理できる言語では、言語仕様に型情報を管理する機能が
入っているので、変数名に型情報を盛り込むのは二度手間になります。
暗号のような名前を使うよりは、その物ずばりの名前をつけたほうが確実です。

>>506
http://community.borland.com/article/0,1410,10280,00.html

>>507 さん
Hungarian Notation ですか。うーん。

>>508 さん
一応、Java では
Writing Robust Java Code とか、
http://ObjectClub.esm.co.jp/ のコーディング標準などを見てたんです。
で、Delphi でもそういったものはないのかな、と。

ということで、>>509 さんのをこれから読んでみます。

ﾌｻｷﾞｺって、C#スレで自爆したDelｷﾞｺなの？

どんも。IMEの郵便番号辞書つかって
郵便番号->住所の変換をやりたいんですけど
ImmGetConversionListの使い方おしえてください。
変換の一覧が欲しいのです。
DelphiMLのサンプルじゃ動かんし。
自分でもやったけど、わけ・わか・らん。

ちなみに WinNT4+Delphi5+IME97です。

>>504
もちろんオンラインで見れるけども、それはVSのMSDNを見るのに比べ著しく
動作が遅く、非効率ではないだろうかってことだったんですが。まぁ回線切らずにお勉強サイト
逝ってきます

変換候補はImmGetCandidateListですが。

　　 　 ∧,,∧　　 ／おぉ！>>499-500
　　　 ミ,,ﾟДﾟ彡＜　期待していいでしょうか！
　　　'ﾐ つ旦)~~ ＼　わかりやすいから英語でもＯＫのトコ多いですが
　　⊂ミ",,　,,ﾐ つ 　　　細かいオプションはやぱり日本語がいいですよね。

>>498
スマソ、わかりませんん。ＭＬのログみたら解決に近ずく方法はあるかも

>>511
>>84-90みてね。
ジ…自爆したかなあ....名無しさん＃さんにはお世話になってます。

C#スレみたけど、Ｇｒｉｄにオーナードローってないのかな。

命名則はフィールドにＦつけるくらいかな。

>>512
それって何か市販のコンポーネントがあった希ガスる。
大昔Delマガに広告載ってなかったかな。
MLのサンプルってせめてＵＲＬ出して聞こう！

ImmGetConversionListは読み方やな。

　　　∧.,,∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ.,,ﾟДﾟ彡＜　　あったあった。
　　ﾐ つ目(ﾐ .　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
～ミ,,Ｏ,,,,,,つ

新郵便番号⇔住所 高速相互検索
http://www.lerx.to/lereaux/postal.html
安いし、買いでは？

ルロー氏はDelマガで採算が取れてるのかニャ。
まさかシャキーンばかりが増えてる事が無い事をお祈りしまする。

Delphi6 Personal を使ってプログラム始めたんですが
インストーラ「ExePress」を使ってインストーラを
作った場合「アプリケーションの追加と削除」に
登録されないのを教えて欲しいのですがスレ違いでしょうか。
マニュアルは見たのですが参考になるURLなどを教えて欲しいです。

>At the Microsoft PDC last summer, I heard it as "HIGH-ls-berg" and
>"HIGH-els-bare"
>
>However, I have the videos of the sessions, so I just looked up Anders'
>keynote.. he used "HIGH-ls-berg".

ハイルスバーグ
みたいだよ。

　　＿＿＿＿＿
　/......　　..　.../
　||:::　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣
　|￣＼.ミ*ﾟーﾟミ＜　なななななななななななな
　|　　 |:￣U' U￣:|＼＿＿＿＿＿＿＿＿＿＿
　|　　 |:　 　　　　:|
　|　　 |　　 ∧,,∧:|　　／￣￣￣￣￣￣￣￣￣￣
　|　　 ＼　ミ,,ﾟДﾟ彡＜　なななななななななな
　| 　　　 |:￣U' U￣:|　＼＿＿＿＿＿＿＿＿＿＿
　| 　　　 |:　 　　　　:|

即レス多謝
>514
なにぃぃぃ。それはしらなんだ。

>515
残念ながらコンポーネント案はだめなのよ。

でね。
HMC: HIMC;
dwSize: DWORD;
lpCand: PCandidateList;
i: integer;
begin
ListBox1.Clear;
Edit1.SetFocus;

HMC := ImmGetContext(Edit1.Handle);

dwSize := ImmGetCandidateList(HMC, 0, nil, 0);
lpCand := HeapAlloc(GetProcessHeap(), 0, dwSize);

ImmGetCandidateList(HMC, 0, lpCand, dwSize);
ってかいてあげたんだけど。lpCand^.dwCountが0なのよねぇ？
どうしたらいいんでしょうか？

ファンです。フサギコさんがんばれ！

　　　　∧ ∧　　ｱ...ｱﾘｶﾞﾄｺﾞｻﾞｲﾏｽ>>521
　　　 ミ ﾟДﾟ彡
　　～ﾐ,,,,uuミ 　　でも、何をがんばりましょう・・・・？


>残念ながらコンポーネント案はだめなのよ。
なぜでしょう。
自前で出来るにこした事はないと思いますが。

>>518 への事故レスです。なんとか解決しました。
板を汚したついでに書かせていただきまっす。

iアプリ作成用にNTTより配布されている
J2ME Wireless SDK for the DoJa
が原因のようでした。
このソフトのレジストリのDisplayNameが長すぎるのが原因のようです。
[DisplayName] "Java(tm) 2 Platform, Micro Edition, Wireless SDK for the DoJa APIs (Release 2.2)"
これをアンインストールしたらぞろぞろと今までのが表示される様になりました。

上の訂正

iアプリ作成用にNTTより配布されている
もとい
iアプリ作成用にNTTドコモより配布されている
です

（ ﾟдﾟ） （ ﾟдﾟ） （ ﾟдﾟ）

てっきり「ExePress」というインストーラー作成ソフトで
「アプリケーションの追加と削除」に登録しない方法を
聞きたいのかとｵﾓﾀｰﾖ。

>>521
http://plaza27.mbn.or.jp/~satomii/design/imm/imm7.html
を見ると、いつでも使えるＡＰＩではないようです。

読み返してみれば・・・なるほど
書き方が悪かったようです

ちなみに他のインストーラでも同様の影響が出る事が
あるようです。ご注意を

インラインアセンブラって、どんなときにつかうのですか？

>>496
フォームのScaledをfalseにして、
フォームのFontのHeightを正の値にしてみたり。

>>531
その１・Pascalで書くと遅いのでもっと高速化してみたいとき（出来るとは限らない）
その２・特殊な命令（cpuidとか）を実行したいとき
その３・アセンブラを使えと強要されたとき

>523 データまで配れねぇし。お客の要望なの。
Var
HMC: HIMC;
dwSize: DWORD;
lpCand: PCandidateList;
i, j, Len: integer;
F: LPTSTR;
s:string;
C: array of integer;
begin
ListBox1.Clear;
Edit1.SetFocus;
HMC := ImmGetContext(Edit1.Handle);
ImmSetCompositionString(HMC, SCS_SETSTR, PChar(Edit1.text), Length(Edit1.text),nil,0);
ImmNotifyIME(HMC,NI_COMPOSITIONSTR,CPS_CONVERT,0);
ImmNotifyIME(HMC,NI_OPENCANDIDATE,0,0);
dwSize := ImmGetCandidateList(HMC, 0, nil, 0);
lpCand := HeapAlloc(GetProcessHeap(), 0, dwSize);
ImmGetCandidateList(HMC, 0, lpCand, dwSize);
SetLength(C,lpCand^.dwCount);
for i:=0 to lpCand^.dwCount -1 do
StrLCopy(@C[i],PChar(lpCand)+24+i*4,4);

for i:=0 to lpCand^.dwCount -1 do begin
if i < lpCand^.dwCount - 1 then
SetString(s,PChar(lpCand) + C[i], C[i+1] - C[i])
else
SetString(s,PChar(lpCand) + C[i],lpCand^.dwSize - C[i]);
ListBox1.Items.Add(s);
end;

ImmNotifyIME(HMC,NI_CLOSECANDIDATE ,0,0);
ImmReleaseContext(Edit1.Handle, HMC);
HeapFree(GetProcessHeap(), 0, lpCand);
end;

とりあえず、コードはできて。ListBoxには変換候補を取得できたんだけど。
あとはEdit1に変換のがのこっちゃうのよ。どうするよ？

BCB5でCGI作ってるんですけど、 Delphiな人達教えて下さい。
IISではRequest->QueryFields->Textに値が入るけど、
Apacheでは値が入らないなんてことありますか？

Apacheだと、ブラウザで入力された値が取れないよー。

違ってた、Request->ContentFields->Textの値がおかしー。

なんか、行末がCRLFになるべきところが、CRCRLFになったりする？

　∩ ∩
　ﾐ ﾞ''ﾞ～
　ﾐ∧,,∧　　／　CGIはわからないですが
　ミ,,ﾟДﾟ彡 ＜　改行コードを普通にするのはAdjustLineText
　Ｕ　Ｕ　　　＼＿＿＿＿＿＿＿＿
　　　　　　　

ギコちゃんアリガトウ。それ使ってみるＹＯ！

事実の方も誰かから聞きたいな．．．

また違ってた！
Request->ContentFields->Text
が途中で切れてるんだけど、Apacheって制限があるんだね。
識者解説キボン。

AdjustLineTextをF1で検索しても見つからない。
なんでこんなにマニュアルの出来がわるいの？

それは自分はわかったＹＯ！>>540

AdjustLineBreaksだ！

　　 ＿＿＿＿＿
　／:＼.＿＿＿__＼ 　／￣￣￣￣￣￣￣￣￣￣
　|:￣＼ ミ,,ﾟДﾟミ　 ＜　ごめん、まちがえてた
　|:　　 :|:￣U U￣:|　 ＼＿＿＿＿＿＿＿＿＿

　.＿＿＿＿＿_
　|:　 :＼.　　　　＼ 　　隠れろ
　|:　　 :|:￣U U￣:|

>>542
フサ君や、手がはみ出ておるぞ。

>>460
>>464
できました。
constructor, destructor は
ここでも使えるのですね。

>>534
ヒドイ。

とりあえずループの中は
　ListBox1.Items.Add(PChar(Integer(lpCand) + C[I]));
だけでＯＫ。

ユニコード対応コントロールってどういうコントロールなのですか？

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／
　ミ；ﾟДﾟ彡＜　>>54 どういうっていわれても困るけど
　 ﾐつ　つ 　＼
～ﾐ ,,　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　 ∪∪　　
CLXのEditコントロールはFontのCharaSetをUniにできます。
Editの中に♥マークが表示できるね(IEからコピペしたりしたら)

>Delフサギコ,564,その他デフォルトななしぃ

あんがとぉぉ。無事、仕組み完成。
ご協力感謝します。

RichEdit で、「目的の行」を表示したい
（つまり、指定した行が一番上に表示されるように
スクロールしたい）のですが、
EM_SCROLL メッセージだと１行単位でしかスクロールできず、
大量にスクロールさせると非常に時間がかかります。

一気に n 行スクロールさせるにはどうすればよいでしょうか。

with RichEdit1 do
begin
IndexFrom := Perform( EM_GETFIRSTVISIBLELINE, 0, 0 );
IndexTo := 目的の行インデックス

for i:=IndexFrom to IndexTo-1 do
Perform( EM_SCROLL, SB_LINEDOWN, 0 );

for i:=IndexTo to IndexFrom-1 do
Perform( EM_SCROLL, SB_LINEUP, 0 );
end;

>550
他のメッセージは？

最後の行にカーソルを置く＋EM_SCROLLCARET
　　　↓
目的の行にカーソルを移動＋EM_SCROLLCARET

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　　EM_LINESCROLLじゃない？
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　ここみるよし>>550
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

http://homepage2.nifty.com/boheme/delphi/tips/tec0280.htm
http://homepage2.nifty.com/boheme/delphi/tips/tec0300.htm

あああ
EM_LINESCROLL どうりでうまくいかないと思っていたら、
メッセージの第一引数にスクロール量を
指定していました（；´Д｀）

逝ってきます

　　,,,,,,,,,,,,,,,,∧,,∧　 　／
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　APIヘルプEM_LINESCROLL みても
　 UU"""" U U　　　 ＼Lﾊﾟﾗ Wﾊﾟﾗ の意味はわかるニャリ
　ｶﾝﾁｶﾞｲ ﾉ ﾘｮｳｶﾞ ｹｲｹﾝ ﾆﾅﾙｶﾓ

あの、ついでに聞きいちゃいます。
キャレットが移動された事を知りたいのですが、

EM_CaretMoved

みたいなメッセージはありませんか？

>>531
>>533

Delphi のインラインアセンブラの話なら
ここと
http://pc.2ch.net/test/read.cgi/tech/1002267809/212

ML の次のスレッドをよく読むよろし。
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=049229

アタシlParam。あの小さかったwParam君が久しぶりに会ったらアタシと長さになってたわ。

　　　　ﾈﾑｲ　　　　∫　　　 ＿＿＿＿＿＿＿＿＿
　　　∧,,∧ 　　 　∬　　 ／ マウスとキーボードの入力で
　　 ミ-Д-彡っ━~　　＜　　SelStartの位置を監視するとよし
＿と~,,　　~,,,ﾉ_. 　∀　　　＼　>>557
　　　 ﾐ,,,,/~), │　┷┳━ 　￣￣￣￣￣￣￣￣￣
￣￣￣ .じ'Ｊ￣￣|　┃
￣￣￣￣￣￣￣ 　┻

アタシと長さ？

　　∧,,∧,,,,,,,,,,,,,,, 　　　　　／￣
　ミ-Д-彡,,,,,,,,,,,,ヾ～　 ＜ 　RichEditならOnSelectionChangeがあるようです
　　　U U """"UU　　 　　＼＿
procedure TCustomRichEdit.CNNotify(var Message: TWMNotify);
で
　EN_SELCHANGEを監視してるのですね。

　なんでTMemoにはないんかな。

まる～(*´ρ`*)

どうもありがとう。とりあえず解決しました。

そして…
目的の行を表示させるのは良いのですが、WordWrapされている場合に、
本来の行と　実際に表示されている行がずれてしまいます。

現在のカーソル位置から、WordWrap によって
変化する前の、本来の行番号を得たいときはどうすればよいでしょうか。

ちなみに、カーソル位置は以下のコードで取得しています。

　X := LongRec( Memo.Perform( EM_GETSEL, 0, 0) ).Hi;
　Y := Memo.Perform( EM_LINEFROMCHAR, X, 0 );
　X := X - Memo.Perform( EM_LINEINDEX, -1, 0 );

　　,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,ミ,,ﾟДﾟ彡 ＜　SelStartまでのCRLFを数えるとか？
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　わかんない

あ、なるほど。

function GetIndex(text:string; selstart:integer):integer;
var
　i:integer;
begin
　result := 0;
　for i:=1 to length(text) do
　　if (ByteType(text[i])=btSingle) and (text[i] = #13)then
　inc( result );
end;

改行コードは２バイト文字に含まれないという保証があれば、
if 条件が一つ減らせるのですが…

>>566
JIS(ISO-2022-JP), SJIS, EUC-JPに関しては
文字コード$20未満は２バイト文字には含まれないよ。
他の文字コード(他言語とか)は知らんが。

Posあたりを使って#13#10を追いかけていくとかでも大丈夫だとは思う。

アプリの終了時にデータ保存を行っています。
（アプリの終了時＝メインフォームのOnDestroy）
しかし、アプリを起動したまま、キーボードの終了ボタンを押して
Windowsを終了させると、メインフォームのOnDestroyが呼ばれないようです。
終了時にちゃんとデータを書き込むにはどうすればよろしいですか？

吉祥寺にある大検・大学受験予備校の中央高等学院
ここは、完全に狂ってる。
授業料は一年分一括前払いなので、
金が入れば、生徒は要らない
金を振り込んだら、何とかその生徒を辞めさせようと
講師どもが、あの手、この手でイヤガラセをしてきますね。
セクハラはもちろん、脈絡の無い罵倒は日常茶飯だね。
酒臭い講師もいるし・・・　人生の最果て中央高等学院

http://chs-f.com/index.html　福岡校
学歴詐称　経歴詐称 デタラメ授業
http://www.chuo-school.ac/　東京本校

OnCloseQueryを使う

Delphiには抽象的な多分木クラスとかってありませんか?
ツリービューのビューがないヤツ、みたいな。

>>571
TComponent がそれ。

>>571

自作するとか。

そのレコード自身のポインタを管理するTListとかもって。

っていうかTTreeNodeは？

結局多分木は必要なくなってしまった。
けど参考になりました。ありがとう。

>>568
OnDestroy は必ず発生するはず
しなかったらバグもしくは異常終了してる
しかし OnDestroy で保存などやってはいかん！

>>571
リストにリスト突っ込んで自作
面倒ならネット探せばあるよ

>>573
TTreeView が無いと使えないよ．
まあ隠して使えばいいんだけど
＞ツリービューのビューがないヤツ、みたいな。
この要望にそぐわないのでは

>>575
（１）タスクバーのシャットダウンを選択してOSをシャットダウン。
（２）キーボードのスリープボタンを押してOSをシャットダウン。

（１）は、OnDestroyが正常に動くんだけど、
（２）は、ダメ。OnDestroyが動かない。
ちなみに、コンパネの電源オプションでスリープボタンを電源OFFにしています。
OSは2000。

>>570 氏のいっている、OnCloseQueryにして試してみる。

>>575
>しかし OnDestroy で保存などやってはいかん！

なぜ？ 保存には OnDestroy がもってこいだと思うが。
俺は OnClose, OnCloseQuery のような表示に関わるイベントは
保存のタイミングに使うには信頼性が無いと思っている。

>>573

TTreeNodeのインスタンス生成すれば使えませんか？

OnDestroyが発生しないって事は、デストラクタが呼ばれていないって事？
つまり、Ownerである、Application も Free されない。
よって、finalization が実行されない。

OnCloseQueryが発生するのは、WM_QUERYENDSESSIONに応答しているから？

>>568
WM_QUERYENDSESSIONをフックして、
Haltを実行しては？オレはそうして
る。

>>579
場合によってはね。
デストラクタよばれず、アプリが強制終了されてOSが落ちることはあるよ。

OnCloseQueryでやるのが無難。

>>568
　　,,,,,,,,,,,,,∧,,∧　 　／
～′,,,,,,,ミ,,ﾟДﾟ彡 ＜　こんなのでどのイベントが発生しているか
　 UU""" U U　　　＼確認していいかも。

ファイルに文字列を追加書き込み
する手続きです。
procedure FileAddText(const S, FileName: String);
var
　F : TextFile;
begin
　try
　　AssignFile(F, FileName);　// 既存のファイル
　　if not FileExists(FileName) then
　　　Rewrite(F)　{ファイル新規作成}
　　else
　　　Append(F);　{ファイル追加モード}

　　Writeln(F, S);
　finally
　　CloseFile(F);
　end;
end;

>>571
自分自身のポインタをプロパティでもっておくだけで
簡単にTree構造は実現できますよん。

TMEMO か TRICHEDIT で、
Shift+Tab で逆タブを実現するにはどうすればいいですか

OnMouse～でTabコード(+Shift)を拾って消すのは？

訂正、OnKey～ですね。

Delphi6でのパレットについて質問します。

以下のような関数を作りたいです。

GetPal( ＢＭＰ画像,パレット変数 )
SetPal( ＢＭＰ画像,パレット変数 )

GetPalは指定されたＢＭＰ画像から２５６色のパレットを読み出して
パレット変数に、格納します。

SetPalは指定されたパレット変数の内容をＢＭＰ画像のパレットとして
設定します。

パレット変数の定義
Palette :array[0..255] of Integer;

いろいろ調べたのですが、（過去ログも見ました。）分からないので具体的に
関数を作って教えていただけないでしょうか？

また、このときＢＭＰ画像が２５６色パレットではない場合には、
２５６色パレットに変換してから、上記の処理をしたいのですが
そういうのは、どうすれば出来るのでしょうか？

具体的には、画面にSelectImage: TImage;というのがあり、そこのＢＭＰに対して
上記の処理を行いたいと思っています。

SelectImage.Picture.LoadFromFile(ImageFileName);
で、ＢＭＰを読み込んだ後に、GetPal関数を使ってパレットを取得
パレット編集後に、PutPal関数を使ってパレットを書き換えて
SelectImage.Picture.SaveToFile(ImageFileName);
で、ＢＭＰを保存しようと思っています。

よろしくお願いします。

この辺、参考になりませんかね。
TBitmap.Palette

>>587
いちおうこのヘルプは読んでみたのですが・・・分かりませんでした。
この例にあるのはシステムパレット（？）を取得しているようなので
そこを変えてやってみたのですがうまくいきませんでした。

procedure TForm1.ColPut;
var
x,y: integer;
SysPal : LogPal;
begin
SysPal.lPal.palVersion:=$300;
SysPal.lPal.palNumEntries:=256;
GetPaletteEntries(SelectImage.Picture.Bitmap.Palette, 0, 255, SysPal.lpal.palPalEntry);

for x:=0 to 15 do
begin
for y:=0 to 15 do
begin
Palette[x+y*16] := RGB( SysPal.lpal.palPalEntry[x+y*16].peRed,
SysPal.lpal.palPalEntry[x+y*16].peGreen,
SysPal.lpal.palPalEntry[x+y*16].peBlue );
ColorImage.Canvas.Brush.Style := bssolid;
ColorImage.Canvas.Brush.Color := Palette[x+y*16];
ColorImage.Canvas.FillRect(Rect(x*8+1,y*8+1,x*8+7+1,y*8+7+1));
end;
end;

end;
こんな感じでSelectImage.Picture.Bitmapのパレットの色を使って
ColorImage.Canvasに四角を書こうとしたのですが、ダメでした。
（へんな色が表示される。）
難しいです。

ずーっと前からこの板でパレットについて聞いてる人？

適当に答えたかも。。。

よく知らないけど
CreateCompatibleDC(Null) でコンテキストを作って、
SelectObject でBitmapと関連付け、
GetDIBColorTable で読めるらしいです。

>>588

こんな感じかな。

procedure TForm1.Button1Click(Sender: TObject);
var
PE:array[0..255] of TPaletteEntry;
i:integer;
begin
Image1.Picture.Bitmap.LoadFromFile('c:\Captured.bmp');
Image1.Picture.Bitmap.PixelFormat := pf8bit;
GetPaletteEntries(Image1.Picture.Bitmap.Palette,0,255,PE);
with Canvas do begin
for i := 0 to 255 do begin
Pen.Color := RGB(PE[i].peRed,PE[i].peGreen,PE[i].peBlue);
MoveTo(0,i);LineTo(100,i);
end;
end;
end;

PE[i].peFlags を考慮する必要があるかも。

>>588
もし画面を２５６色モードでやってるなら、それだと色が出ません。
ハイカラー以上でやりませう。
って、そういう基本的なことではなかった？

586(588)です。

>589
そうです。あれからずーっと悩んでいます。難しいです。

>590
そのやり方は初耳ですので調べてみたいと思います。

>591
早速やってみましたが、うまくいきませんでした。
現象としては、まずＢＭＰが正しく表示されません。
なんか、変な色になります。肌色のキャラが黄色になります。
８bit,２４bitのＢＭＰ両方ともなりました。
それに、パレットもうまく表示できませんでした。

>592
フルカラーでやっています。グラフィックツールを作っていて
２５６色の絵を書きたいと思っています。

みなさん、ありがとうございました。
もしよろしければ、引き続き教えてほしいです。

ダメだったソース
// ペンの色表示
procedure TForm1.ColPut;
var
x,y: integer;
PE:array[0..255] of TPaletteEntry;
begin
DataImage.Picture.Bitmap.PixelFormat := pf8bit;
GetPaletteEntries(DataImage.Picture.Bitmap.Palette,0,255,PE);

for x:=0 to 15 do
begin
for y:=0 to 15 do
begin
Palette[x+y*16] := RGB( PE[x+y*16].peRed,PE[x+y*16].peGreen,PE[x+y*16].peBlue );
ColorImage.Canvas.Brush.Style := bssolid;
ColorImage.Canvas.Brush.Color := Palette[x+y*16];
ColorImage.Canvas.FillRect(Rect(x*8+1,y*8+1,x*8+7+1,y*8+7+1));
end;
end;

end;

>>593
>早速やってみましたが、うまくいきませんでした。
>現象としては、まずＢＭＰが正しく表示されません。
>なんか、変な色になります。肌色のキャラが黄色になります。
>８bit,２４bitのＢＭＰ両方ともなりました。
>それに、パレットもうまく表示できませんでした。

そうですか。こちらでは全くうまくいっていますけど。

そもそも pf24bit の画像を pf8bit に減色するのですから
変な色になるのは当然です。また、パレットは pf8bit 以下の
色分解能であるときのみ有効です。もともと２５６色の画像を
591 のようにやって変な色になるとしたら、実行環境のビデオ
ドライバがおかしいか、そもそも２５６色以下の環境である可能性が
あります。

>592
>フルカラーでやっています。グラフィックツールを作っていて
>２５６色の絵を書きたいと思っています。

たんに２５６色以下の色数を使えば、描画後、TBitmap の PixelFormat を
pf8bit にすると自動的に２５６色の絵になりますけど。はじめから
使用できる色をパレットとして用意しておくのは、無意味です。

>>586
目的が256色モードでの画像表示，ではなくて256色データの作成なら
中村拓男さん作の TnkDIB を使うっていうのはダメでしょうか？
はずしていたらごめんなさい．

>>594
>たんに２５６色以下の色数を使えば、描画後、TBitmap の PixelFormat を
>pf8bit にすると自動的に２５６色の絵になりますけど。はじめから

そんな事はありません。単にハーフトーンパレットになるだけです。

　　 　∬　　　∧,,∧　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 　 ~━っミ ﾟДﾟ彡,, 　　　＜ 　>>583　がんばる。
　 　 ∀.＿（,,,~　　,,,~⊃＿　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
━┳┷　|.　,(~ヽ,,,ﾐ.
　 ┃...|￣￣し'Ｊ. ￣￣￣　　パレットはわからなー
　 ┻ ヽ￣￣￣￣￣￣￣

>>596
>そんな事はありません。単にハーフトーンパレットになるだけです。

パレットの話ではない、ということを言いたかったんですよね。

フルカラーで実行してハーフトーンパレットになる理由はなに？
ＤＤＢ→ＤＩＢ変換のＶＣＬの実装についてのおはなしですか？
そもそも２５６色であることに相違ないとおもいますが。

>はずしていたらごめんなさい．

この免罪符嫌い

>>598
591 で「たんに２５６色以下の色数を使えば…」と書いてあることから
24bit画像に256色以内の色数を使って描画すれば、8bitに減色したときに
理想的な減色が行われると言っているように思えたんだが違うのか？

実際はハーフトーンパレットを使って適当に減色が行われる。

　 　|
電　|
　 　|∧,,∧
柱　ﾐ,,ﾟДﾟ彡　＜はずしたらゆるさねー
　　⊂　ミ 　　と書いてみてはDO？
　 　|,　,,ﾐ
　 　|∪ 　　　そういえば、昔PC98Doって機種があって....
, '　,　;　'　; 　98と88のソフトが動いただよ。

気が付いたら、BorCon明日明後日なのですが

なぜになんも話題にならないの？

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　　ｳﾗｸﾞﾁ ｶﾗ ﾊｲﾘﾀｲ
　　ミ,,ﾟДﾟ彡∬
　　 〃　 つ旦O
　～ﾐ,,,ｎ,,ｎ［￣￣￣.］
　　　　　　　￣￣￣

>>600
>591 で「たんに２５６色以下の色数を使えば…」と書いてあることから
>24bit画像に256色以内の色数を使って描画すれば、8bitに減色したときに
>理想的な減色が行われると言っているように思えたんだが違うのか？

違わないが、「理想的な減色」とはいっていない。元質問者は２５６色
の絵を描くツールを作っているわけで、予めパレットを設定しておくこ
とにどれほどメリットがあるだろうか？しかも２５６色以内の使用色
でも固定のハーフトーン色に減色されるんですか。だとしたら、実装が
ボロいということですね。

>実際はハーフトーンパレットを使って適当に減色が行われる。

これは知らなかった。ＶＣＬの TBitmap はいい加減なんだね。
減色のアルゴリズムはいろいろあるけど、PSP Pro みたいに
使用色のヒストグラムをとって頻度の多い方から採用する、とか。
そもそも２５６色以内の使用色で減色するのが間違いだと思う。
使用色そのものをパレットに採用するだけだと思うが。

いろいろ教えてくれてありがとう。＞＞596

>>599
あなたのほうが健全な心の持ち主だと思う。

また、2ch への誘導メール出してみようか

>>601
PC98Do 持っていたよ。V30に毛が生えたようなCPUなのに、286より少し遅いくらいだった。
拡張スロットが１個しかなくて苦労したけど。
88モードは殆ど使わなかったけど
って関係ないからsage

BorCon行くような人はここにはいないのでは
オレモナー

>>604
ヤメレ

ComboBoxとListBoxのリスト内容を同期させたい（内容及び、選択されている項目を同一にしたい）のですが、一般的にはどのような方法を取っているのでしょうか。以下のようなコードを書きましたが、うまくいきません。

property Items:TStringList read GetItems write SetItems;

function TMyForm.GetItems ...
begin
　result := ComboBox.Items;
end;
procedure TMyForm.SetItems ...
begin
　ComboBox.Items := Value;
　ListBox.Items := Value;
end;


MyForm.Items.Clear

などのように呼び出す場合は、SetItems ではなく GetItems だけが
呼び出されてしまうみたいですね。

>>608
ItemsとLinesでassignは？

ｽﾏﾝ、Memoと勘違いしてた。
LinesじゃなくてItems同士だ、逝ってくる

delphiだけは平和だねｗ
Javaは血で血を洗う内紛
ＯＯはアンチと信者の抗争。
ＲｕｂｙはＨＳＰに当り散らしてるし。

>>611
初心者スレはそうでもないよ。

　　∧,,∧　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ミ,,ﾟДﾟ彡　＜　リアルワールド(米)で飛行機が墜落して大変だ。
　 ,;ﾞ　　ﾐ　 　 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　ﾐ.　　ミ
／゛゛゛゛
>>605　V33でしたっけ？

>>603
ＭＳの減色だって(ピー)でしょう

>>613
V33AはDo+

samplesタブにあるShellTreeViewを使うとメモリリークするのは、
おいらのDelphi6が逝ってるからなのだろうか。
鬱だ

WinGのサンプル（牛だったとおもう）は奇麗な減色だったような気がします。
はずしていたらごめんなさい。

Delphi MLにその話題あったよ

>>614
マッキントッシュは特に何にもしなくても
ＯＳが全部そこそこきれいにディザリングしていたような。

>>593です。

>>594
>そもそも pf24bit の画像を pf8bit に減色するのですから
>変な色になるのは当然です。また、パレットは pf8bit 以下の
>色分解能であるときのみ有効です。もともと２５６色の画像を
>591 のようにやって変な色になるとしたら、実行環境のビデオ
>ドライバがおかしいか、そもそも２５６色以下の環境である可能性が
>あります。
今の自分が使っている画面の設定はHigh Color(16ビット)です。
>>593のソースの中の
DataImage.Picture.Bitmap.PixelFormat := pf8bit;
というのをすると、ＢＭＰが変な色になります。
コメントアウトすれば普通に表示されます。
フルカラーのＢＭＰでなるのなら分かるのですが、
２５６色のＢＭＰでもなってしまいます。

>>603
>違わないが、「理想的な減色」とはいっていない。元質問者は２５６色
>の絵を描くツールを作っているわけで、予めパレットを設定しておくこ
>とにどれほどメリットがあるだろうか？しかも２５６色以内の使用色
>でも固定のハーフトーン色に減色されるんですか。だとしたら、実装が
>ボロいということですね。
２５６色の固定パレット（もちろん編集は可能）を用意して、
そのパレットを使うＢＭＰを複数枚書くのを目的としています。

>>595
TnkDIB ダウンできないようです（４０４）Ｄｅｌｐｈｉ５までしか
対応になっていないからでしょうか。

みなさん、ありがとうございました。
引き続き教えていただければうれしいです。

>>593です。
申し訳ありません。出来ました。こちらのミスでした。
ロード用のＢＭＰにロードしたものを編集用のエリアにコピーしていたのですが
そのときに、パレットがコピーされないのが原因でした。
お手数をかけて大変申し訳ありませんでした。

どうも、ありがとうございました。

マジでキレイな減色したいなら、Optpix、Padie等の専用ソフトを使うことをお勧めします。
Optpixはシェアウェアで、ゲームのFFなんかでも使われた実績があります。
Padieはフリーですが、開発は終わっていたと思います。
昔はPag1テトラへドロンというディザなしでの性能が恐ろしく高いソフトが
のもありましたが、作者が特許を抱え込んだままサポートを止めてしまっていて残念。
とは言え、作者様のサイトやテトラへドロンのヘルプは、減色を理解するのにかなり役立ちます。
なお、自作する場合は、減色は圧縮と同じで特許に固められているので注意が必要です。
Cマガのバックナンバーにもいくつか参考記事があるので参照してみてください。

>>622
減色ですか。きれいな減色が出来ればよいのですが（２４ビットＢＭＰ読み込み時
に減色して２５６色表示等）とりあえず、いまは考えていません。
Ｃマガジンはいろいろ気になるのですが近くに売っていないので
たまにしか買ってないです。定期購読しようかな。

で、>593の問題ですが、現在がんばっていますが解決してないです。
ロードしてきたＢＭＰ（LoadImage）をpf8bitで画面に表示までは
うまくいきました。
LoadImage.Picture.Bitmap.PixelFormat := pf8bit;
GetPaletteEntries(LoadImage.Picture.Bitmap.Palette,0,255,PE);
が、そのあとに取得したパレットを別のイメージ(ColorImage)に描画するのが
うまくいきません。インデックスカラーではなく、RGB値を使っているので
きちんと描画できそうなものなのですが・・・。

引き続き教えていただければうれしいです。

// ペンの色表示
procedure TForm1.ColPut;
var
x,y: integer;
PE:array[0..255] of TPaletteEntry;
begin
LoadImage.Picture.Bitmap.PixelFormat := pf8bit;
GetPaletteEntries(LoadImage.Picture.Bitmap.Palette,0,255,PE);
for x:=0 to 15 do
begin
for y:=0 to 15 do
begin
Palette[x+y*16] := RGB(PE[x+y*16].peRed,PE[x+y*16].peGreen,PE[x+y*16].peBlue);
ColorImage.Canvas.Brush.Style := bssolid;
ColorImage.Canvas.Brush.Color := Palette[x+y*16];
ColorImage.Canvas.FillRect(Rect(x*8+1,y*8+1,x*8+7+1,y*8+7+1));
end;
end;
end;

>>620

>DataImage.Picture.Bitmap.PixelFormat := pf8bit;
>というのをすると、ＢＭＰが変な色になります。
>コメントアウトすれば普通に表示されます。
>フルカラーのＢＭＰでなるのなら分かるのですが、
>２５６色のＢＭＰでもなってしまいます。

596 が教えてくれたところによると、TBitmap では２５６色でも
そうなるみたいです。まったく、いい加減ですね。

>２５６色の固定パレット（もちろん編集は可能）を用意して、
>そのパレットを使うＢＭＰを複数枚書くのを目的としています。

そこで、上記のことをするためには、まず TBitmap のインスタンス
を作って初期化し PixelFormat := pf8bit; に設定してから
こちらで任意の２５６色の論理パレットを作成して、それに設定する。
そして、そのパレットから色を選んで描画する。ということでは
どうでしょうか？

うーむ、試してみたいが時間がないのでごめん。

>>620

>今の自分が使っている画面の設定はHigh Color(16ビット)です。

ハイカラー（16ビット）でパレットを扱うソフトを開発するのは
最悪です。true color（24ビットまたは32ビット）に比較すると
色解像度は２５６分の１です。ですから、RGB() で色を指定しても
カラーマッチングが行われ、システムパレットにマッチングされて
しまいます。純色以外の任意の値で RGB() で Canvas.Pixels[x,y]
で色を置いて、GetRValue(Canvas.Pixels[x,y])、GetGValue()、
GetBValue() してみると、置いた色と同じでない場合があることに
気がつくでしょう。

true color 環境での開発を強くお薦めします。

>>624
>うーむ、試してみたいが時間がないのでごめん
とんでもないです！ヒントをいただけるだけで十分です。
わざわざ時間を割いて解答していただきありがとうございます。

>>625
マジですか！早速再起動することにします。
本当に基本のようなことが分かっていなくて申し訳ないです。
ありがとうございました。

現在皆さんから教えていただいたことを参考にいろいろ試しています。
ありがとうございます。

>>626
念のため言っておくけど、>>625の内容は嘘です。
再起動してもどうにもならないでしょう。

>>625
知識も無いのに適当な事言っているんじゃねーよ。

>>627

>>>625
>知識も無いのに適当な事言っているんじゃねーよ。

おい、おい、その言い草はないだろう。
自分の環境で試した結果だけど、なぜ嘘だと決めつける？

>>627
えっ！嘘なの！本当なの？でもどっちにしろ良くないことには違いないので
再起動しました。状況は変わってないですけど・・・。

ハイカラー（１６ビット）環境下で以下のコードを試して見て下さい。
設定色と取得色が一致するのは稀であることが分かります。

procedure TForm1.Button1Click(Sender: TObject);
var
Sclr,Gclr:COLORREF;
i:integer;
begin
with Canvas do
for i := 0 to 255 do begin
Sclr := RGB(127,127,i);
Pixels[1,1] := Sclr;
Gclr := Pixels[1,1];
ListBox1.Items.Add(IntToHex(Sclr,4)+
' : '+IntToHex(Gclr,4));
end;
end;

JavaとDelphiを行ったり来たりするとややこしいことになるよね

　　 ∧,,∧∩　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ミ,,ﾟДﾟ彡　＜　BorConの様子はどうですか？
　　 U　　ミ　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　～ﾐ　　ﾐ
　　 ∪ ∪　ﾀﾞﾚﾓ ｲｯﾃﾅｲ?

RPGとかのゲームもある程度簡単に作れる？

>>633
簡単なゲームならある程度簡単に作れるが、
CやC++で作られているちょっとしたものを作ろうとするなら手間は一緒

質問って程じゃないですが
WideStringに対応した文字列操作関数って限られてますよね
例えば、検索するのもPos関数だけ
PWideChar使えるやつもないし
結局、みんな自作してるもんなんすか？

AnsiPos 関数
注意 この関数はマルチバイト文字セット（MBCS）をサポートします。

test

すいません、どなたか教えてください。

TListViewで、項目が長すぎて途切れて表示されているとき、
ツールチップみたいな表示でポップアップして表示したいん
ですが、どうやったらいいのでしょうか？

http://www.zdnet.co.jp/enterprise/0111/13/01111305.html

Kylix2/JBuilder6/Borland Enterprise Server同時発表か・・・
すごすぎ！
JBuilderは少し早すぎるな・・・JDK1.4対応してるかな？

>>640
JBuilderってJDK選ばないことで有名じゃなかったか？

>>641
Personalでマウススクロールして欲しいのよ。標準で。
そのほうが初心者受けいいでしょ。

>>642

ってことはあなたは初心者？

MBCSはウニコードじゃないでしょう。

～W系のAPI呼んだら？

MBCSってなんすか？

>646
ﾊｧ?

Managed Business Consultancy Service
Member British Computer Society
Meteor Burst Communications System

UTF-8

STEP1

Image1 の Bitmap に 白、赤、黄緑、青、黒の五色の
カラーテーブルを設定する

procedure TForm1.Button1Click(Sender: TObject);
var
Table: array[Byte] of TRGBQuad;
begin
FillChar(Table,SizeOf(TRGBQuad)*High(Byte),#0);

Table[0].rgbRed := 255;
Table[0].rgbGreen := 255;
Table[0].rgbBlue := 255;

Table[1].rgbRed := 255;
Table[1].rgbGreen := 0;
Table[1].rgbBlue := 0;

Table[2].rgbRed := 0;
Table[2].rgbGreen := 255;
Table[2].rgbBlue := 0;

Table[3].rgbRed := 0;
Table[3].rgbGreen := 0;
Table[3].rgbBlue := 255;

with Image1 do begin
Picture.Bitmap.Width := Width;
Picture.Bitmap.height := Height;
Picture.Bitmap.PixelFormat := pf8bit;
SetDIBColorTable(Picture.Bitmap.Canvas.Handle,
Low(Table),High(Table), Table);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with Image1.Canvas do begin
Pen.Width := 3;
Pen.Color := clPurple;
LineTo(100,100);
Pen.Color := RGB(40,200,30);
Brush.Color := clNavy;
Ellipse(10,10,170,80);
Pen.Color := RGB(240,200,130);
Brush.Color := clMaroon;
Rectangle(100,100,150,150);
end;
end;

任意の色を設定してもカラーテーブルのどれかの色に
マッチングされるのが分かる。

STEP2

Image1 の Bitmap に２５６のグレースケールのカラーテーブル
を設定する。

procedure TForm1.Button1Click(Sender: TObject);
var
Table: array[0..255] of TRGBQuad;
i: Integer;
begin
for i := 0 to 255 do
with Table[i] do begin
rgbRed := i;
rgbGreen := i;
rgbBlue := i;
rgbReserved := 0;
end;
with Image1 do begin
Picture.Bitmap.Width := Width;
Picture.Bitmap.height := Height;
Picture.Bitmap.PixelFormat := pf8bit;
SetDIBColorTable(Picture.Bitmap.Canvas.Handle,0,255,Table);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with Image1.Canvas do begin
Pen.Width := 3;
Pen.Color := RGB(80,100,150);
LineTo(100,100);
Pen.Color := RGB(100,200,230);
Brush.Color := RGB(200,100,100);
Ellipse(10,10,170,80);
Pen.Color := RGB(240,250,230);
Brush.Color := RGB(250,120,150);
Rectangle(100,100,150,150);
end;
end;

やはり任意の色指定でもグレースケールにマッチングされるのが
分かる。

STEP3

Image1 の Bitmap に任意の２５６色ビットマップファイルからの
カラーテーブルを設定する。

function GetNumOfColorTable(Filename:string):integer;
var
FST:TFileStream;
BIH:TBitmapInfoHeader;
begin
FST := TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone);
FST.Position := SizeOf(TBitmapFileHeader);
FST.Read(BIH,SizeOf(BIH));
result := BIH.biClrUsed;
FST.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
BmpFile:string;
BM:TBitmap;
Table: array[0..255] of TRGBQuad;
i,NumColor: Integer;
begin
BmpFile := 'c:\ColorTest.bmp';
BM := TBitmap.Create;
try
BM.LoadFromFile(BmpFile);
if BM.PixelFormat <> pf8bit then begin
ShowMessage('not 256 color!');
exit;
end else begin
NumColor := GetNumOfColorTable(BmpFile);
GetDIBColorTable(BM.Canvas.Handle,0,NumColor-1,Table);
end;
finally
BM.Free;
end;
with Image1 do begin
Picture.Bitmap.Width := Width;
Picture.Bitmap.height := Height;
Picture.Bitmap.PixelFormat := pf8bit;
SetDIBColorTable(Picture.Bitmap.Canvas.Handle,
0,NumColor-1,Table);
end;
end;