喫茶XRAYトップページ

[8248] TEditの文字列を上下中央に返信　削除
2014/12/11 (木) 06:29:35 Mr.XRAY
コンポーネントですが，UP しました．

[168_上下方向のアライメント機能付きの TEdit]
http://mrxray.on.coocan.jp/Delphi/plSamples/168_TEdit_VerticalAligment.htm

こんなのがあったんですよね (^^;
http://mrxray.on.coocan.jp/bbs/DelphiBBS/mrxray_delphifan_coffe.cgi?tree=s5759#5759

[8276] Re:TEditの文字列を上下中央に返信　削除
2014/12/15 (月) 08:39:13 Mr.XRAY
> [168_上下方向のアライメント機能付きの TEdit]
> http://mrxray.on.coocan.jp/Delphi/plSamples/168_TEdit_VerticalAligment.htm

これなんですが，
ディスク内のユニットファイルの日付が 2004 年になっていました．
その中に [Delphi-ML:73866] と書いてあったので調べてみました．
これですね．

[Re: TEdit もしくはTCustomEditの文字の上下位置]
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/browse.cgi?index=073866&back=http%3A%2F%2Fleed.issp.u-tokyo.ac.jp%2F~takeuchi%2Fdelphi%2Farticle%2F073%2F073866.html

どうやら，これを元に作成したらしいのですが，

[ＴＥｄｉｔで上下方向の真ん中表示する方法知りませんか]
http://www.freeml.com/delphi-users/2412/latest

のスレッドの中で福士さんのレスがあります．
http://www.freeml.com/delphi-users/2447

この投稿の以下の部分です．

># TMemoで1行になるように制御するとか、TEditでCreateParamsの
># Params.StyleにES_MULTILINEを追加する(これも1行になるように
># 制御する必要があるので同じ)ことで解決可能ですけどね…。

これを読んで記事にして掲載してみようと思ったわけです．
ここのところ，インプレスエディタとか，エディットコントロールにボタンとか，
を掲載したということもあります．
「継承」とかが苦手という方もいるので，本当はコンポーネントにはしたくなかった
のですが，この場合，コンポーネントにしないとかなり無理があります．

今更という感は否めませんが，これから Delphi を使う人に参考になれば，
と思っています．

[8277] Re2:TEditの文字列を上下中央に返信　削除
2014/12/15 (月) 08:47:25 Mr.XRAY
> これを読んで記事にして掲載してみようと思ったわけです．

作成したコンポーネントのコードは，そんなには長くありません．
これは，Windows 2000 以降の Windows API を使用しているためです．
もし，Windows 98 時代であったら，とても私には作成できなかったと思います．

古い Delphi のバージョンで使える同様のコンポーネントが，過去には
提供されていました．もしかしたら今も入手可能かも知れません．
もし入手できたらダウンロードしてソースコードみると分かります．
非常に苦労して開発していることが伺えます．

INCM/CMT
Cyclamen v3.82