鳥の巣箱

ネトゲしたり、機械いじったり、ソフト書いたり、山篭ったり、ギャンブルしたりする人

Delphi

MoveTo、LineToメソッドで描いた線とPen.Widthの特性。。。とScanLineについて。

TBitmapコンポーネントなどには、そのBitmap上に線を引くために ・MoveTo(x,y) ・LineTo(x,y) というメソッドが用意されてます。MoveTo(x,y)で線の始点になる座標を指定し、LineTo(x,y)で指定した座標まで直線を描きます。また、Pen.Widthプロパティで線の太…

HDD容量の取得とLARGE_INTEGERの扱い

HDD容量を取得する場合は、Windows APIにあるGetDiskFreeSpace関数を使うと各変数に色々値をぴったんこしてくれるわけですが僕、最初普通にこの「GetDiskFreeSpace関数」の方を使ってたんですね。そしたら正しい値が返ってこないというわけで。GetDiskFreeSp…

Delphiで処理速度を計測する

今作ってるプログラムで、ちょっとレスポンスが悪いプロシージャがあったので プロシージャ内部のどの処理が時間を食ってるのか調べることにした。何パターンかやり方があるけど、とりあえず簡単なのを。 timeGetTime関数 uses MMSystem; procedure TimeChec…

RIFFフォーマットファイルの読み込み

DelphiでWaveファイルを扱うためにRIFFフォーマットのファイルを読み込む必要がでてきたんで色々とメモ書き。 まず必要なものの説明。 MMSystemライブラリ マルチメディア関連のAPIが各種はいっている。 uses句にこれを追加する必要あり。 MMRESULT型 MMSyst…

TImageのリサイズ時に気をつけること

Delphiやりはじめて初日ですどうも。早速躓きまくってるので色々メモ書きをガンガン残していきます。 DelphiでTImageコンポーネントを、フォームのサイズに合わせてリサイズしようとしていたのだが、どうにもうまくリサイズされない。通常のコンポーネントは…

DelphiのエディターをMonokai風にアレンジ

仕事の都合上、Delphiデビューすることになりました。エディターが初期設定だとかなり見づらいので、カラーチェンジの設定をメモ書き程度に書いていきます。SublimeTextの方でカラースキーマはMonokaiを使ってるので、感覚的にはこれに近づけていく感じでい…