くだすれDelphi(超初心者用)その41

ヒントを任意のタイミングで表示したり、消したりしたいのですが
どのようにすればよいのでしょうか？

THintInfoあたりを弄ってみても、少し待たないとヒントが表示されず困ってます・・・。

コンポーネントの名前（Nameプロパティ）を変数で指定する方法はありますか？
たとえばEdit1,Edit2...とあってXが2ならばEdit2に表示するといったことがしたいのですが。

findcomponent

現状で楽してネイティブ作れるのってこれだけか
C＋WIN32APIは糞面倒臭いにも程がある

c++builder

>>938
Application変数にある　Hint に　''ShortHint | LongHint'　で入ってる
ヒントには短いヒントと　長いヒントがある。 | で区切れば、区別出来る。

ロングヒントは、
Application.OnHintを使うと StatusBar.AutoHintがTrueでもロングヒントが表示されない
自前でGetLongHint して表示しないといけない。

ShortHintは
HintPause/HintHidePause/HintShortPause とHintColor/HintShortCuts　で調整

ショートヒントをマニュアルで出すには
GetCursorPos(P);
Application.ActivateHint(P);

ショートヒントをマニュアルで消すには
Application.CancelHint

>>939
http://delwiki.info/?Tips%2F%C5%BA%BB%FA%A4%F2%BB%C8%A4%C3%A4%C6%A5%B3%A5%F3%A5%C8%A5%ED%A1%BC%A5%EB%A4%F2%BD%E8%CD%FD%A4%B9%A4%EB

>>943
お〜、丁寧に有難うございます！！

VirtualTreeを使ってるんだけどどんな風に"使用してます"ってかけばいいのかな？

バージョン情報のウインドウなんかに
VirtualTree配布もとのリンクを貼ればOKなのだろうか・・・？

この手のライセンスのコンポを使用している有志、ご意見を聞かせてもらえないでしょうか？

VirtualTreeの配布元のページにVirtualTreeが使われてるソフトがギャラリーみたいく
並んでいなかったけ？それらのソフト参考にすれば？？
俺はバージョン情報のダイアログにのっけてる。

>>940
>>944
thx

41個の整数を要素とする母集団があり、
その中から任意の2〜40個、及び41個の要素の和を総当りで調べる
ﾌﾟﾛｸﾞﾗﾑを作ってみたんだけれど、(Del6Per)

四半世紀ほど年齢が上の上司がJIS-BASICで作ったﾓﾉに
実行速度で負けたのはｼｮｯｸだった orz

で？

Delユーザにはそんなレベルのが多いよね

そこでインラインアセンブラ

２個の場合は、最初は１〜40の中から１つ選ぶんだ N[0] とするよ
次は N[0]〜41　の中から選ぶんだ

３個の場合は　最初は1〜39
次はN[0] 〜30
最後は N[1] 〜31だ

アルゴリズムの坂

レコード型にメソッドを付けられるようになったのはいつからでしょうか？

TurboPascal5.5からじゃなかったかな

2006からだね。object型なら昔からできたけど。

>>949
ちょい前にも出てたけどｱﾙｺﾞ方面へ逝け。

ただし、だ。配列使いまくりで演算させていたならその結果は当たり前。
Delphiの伝統として、配列の使用はﾀﾌﾞｰだろw

>Delphiの伝統として、配列の使用はﾀﾌﾞｰだろw

いみふめ

配列の使用はﾀﾌﾞｰのコンパイラ・・・糞ですな

How many files (0−15)?

動的配列の導入以後は全く事情が違うさ。

配列使わず何を使うんだ？

AllocMemでメモリ確保してポインタで舐めてたんだろ

チューニングパラノイアが初心者スレ引っ掻き回すのはやめてもらいたいなぁ

動的配列の追加はよかったよな。　今では動的配列無しに書けない体になっちゃった。

Stringもそうだけど配列もクラスとして記述できるくらいのパワーが言語に欲しかったな。
Stringはユーティリティ関数が散らばりすぎだし、動的配列は可能な操作が貧弱すぎる。

クラスとして表現といっても現状のOOPの機能の追加を継承による方法では
手続きの引数で表現する方法に比べて良くなるとは思えない。

一番目の引数について自動的にドットシンタックスが適用出来るような　仕様にすればどう？

function Add( A:Integer ; B:Integer ):Integer;
で、　 C := 1 .Add(2) と書けるような

それで、どう便利になるか判らん。　教えてくれ

>>969
.NET 3.0正式対応のIDE待ちだな。
もしかしたらWin32版でも追随してくるかもしれないな。

Delphi2005で、画像の印刷で苦しんでいます。

　Printer.BeginDoc;
　Printer.Canvas.CopyRect(Rect(0,0,1024,768),Image1.Canvas,Rect(0,0,Image1.Width,Image1.Height));
　Printer.EndDoc;

※ Image1.Picture には、emfファイルを読み込ませてあります。

これを実行すると、
「ビットマップを持っている時のみイメージの変更が可能です」
というダイアログが出て、印刷出来ません。
Image1で持っているemfデータを、内部的にBitMap化させないと
いけないのでしょうか。参考になるURLでも結構ですので、
ご教示くだされば幸いです。よろしくお願いします。

メタファイルなら直接印刷してしまえばいいんじゃないの？
http://support.microsoft.com/kb/145999/ja

>>973
TImageで持っているメタファイルをPrinter.Canvasに展開した後、
TextOutで文字を追記する必要があるので、直接印刷だと都合が悪いです・・・。

PlayEnhMetaFile で印刷した後、TextOutすればいいじゃない

CopyRectじゃなくて普通にDrawすればいいのでは？

>>975
PlayEnhMetaFileでメタファイルをキャンバスのハンドルに展開しても、
結局TImageからTPrinterへ渡すのと変わらないようですが……。

>>976
Drawしてみました。
　Printer.Canvas.Draw(0,0,Image1.Picture.Graphic);
エラーは出なくなりましたが、絵が一切印刷されませんでした・・・。

自己レスです。
下記のやり方でなんとか印刷できるようになりました。
（TPictureにロードして、ビットマップに変換、その内容をTPicture.Bitmapに還元）
お騒がせしました。

procedure TForm1.Button1Click(Sender: TObject);
　pic_Wk: TPicture;
　bmp_Wk: TBitmap;
begin

　pic_Wk := TPicture.Create;
　bmp_Wk := TBitmap.Create;

　pic_Wk.LoadFromFile('【emfファイル】');
　bmp_Wk.Width := pic_Wk.Width;
　bmp_Wk.Height := pic_Wk.Height;
　bmp_Wk.Canvas.Draw(0, 0, pic_Wk.Graphic);
　pic_Wk.Bitmap := bmp_Wk;

　Printer.BeginDoc;
　Printer.Canvas.Draw(0,0,pic_Wk.Graphic);
　Printer.EndDoc;
　pic_Wk.Free;
　bmp_Wk.Free;

end;

>>978
天才だなあんた

おちんぽみるくでちゃった

>>978
でもDPIとか合わせないときちゃなくなっちゃうんじゃない？
たぶんデフォルト96DPIとかだろうし

>>977
Drawの代わりにStretchDrawだとどうですか？

　Printer.Canvas.StretchDraw(Rect(0, 0, Printer.PixelWidth, Printer.PixelHeight), Image1.Picture.Graphic);

ちなみにビットマップの印刷では
DDB（デバイス依存ビットマップ，TBitmapをCreateしたときのデフォルト）を
プリンターのキャンバスに描画するのはNGみたいですよ．
http://www.asahi-net.or.jp/~HA3T-NKMR/tips004.htm

TTableのftCurrency項目の範囲はいくらからいくらなんでしょうか？

金額をintegerで管理するのと比べてのメリットはなんなんでしょうか？

テキトーな答えだが、固定小数点じゃなかったかcurrency

ヘルプのCurrency型の項見れ

↓こんな感じですか？

1,000
ftIntegerで管理すると３０億円とかの額になると溢れてしまうし、金額をカウントするときはどの型がいいんでしょうか？

うお、元にCurrency型ってのがあったなんて知りませんでした。
ありがとうございます。