Canvas.TextOut透明な末尾の空白を許可するように見えます

Question

何年も何もプログラミングしていないので、私は今まで学んだこと以上のものを忘れてしまいました。私は単純なファイル検索ルーチンから始め、見つかったファイルを複数の列のリストボックスに配置しました。私が見つけたコンポーネントは、Delphi3000.comのMultiColListBox.pasと呼ばれていました。並べ替えルーチンに2つのイベントを追加し、並べ替えを有効にするときに空のリストボックスエラーを修正しました。

このコードを使用して2つの列が定義され、それぞれの長さが20に設定され、最初の列のテキスト（項目）の長さは100文字、2列目の最初の項目の長さは20文字です最初の列のテキストの末尾にある空白のテキストの下に表示されます。

コンポーネントでは、（下のコードにリンクする）列が描画されます。

procedure TMultiColListBox.ListBoxDrawItem(Control : TWinControl; 
             Index : Integer; 
             Rect : TRect; 
             State : TOwnerDrawState); 

私はブラシをしっかりと設定しようとしました。私は最終的にそれが何も後ろにテキストの座標を描いていることに気づいた。したがって、私たちは望ましくない透明な効果を得ています。

通常、私は単純なもの、これまでのところ見落としています（木の森を見ることはできません）。この問題を解決するにはどうすればよいですか？ （このコンポーネントは、その作品の多くが、大きな再学習経験を働いていない多くの項目があります

CODEへのリンク：。！。http://www.delphi3000.com/articles/article_3360.asp MultiColListBox

おかげ

ジョン

PSを私ができますカットをフォーマットして長いコードセットや関数全体をこのフォーラムに貼り付けることはできません（上のように簡単なものです）ので、Delphi3000.comのcompenentコードへのリンクを提供しました。

Answer 1

この10年の古いコードと戦うのではなく、リストビューに切り替えるだけでTListViewとなり、ViewStyleをvsReportに設定してください。これにより、ネイティブで最新のWindowsリストコントロールを使用した複数列のリストが表示されます。

これはあなたの質問に直接答えるものではありませんが、あなたの問題をあなたが使用しようとしているコードよりもはるかに優れていると思います。