AdvListViewのソートを使う方法

実装を何度も忘れたのでメモします。
AdvListViewでソートを使うためには以下の設定が必要です。

• SortShow := True を設定
• AdvListViewの各カラムにTagの番号を設定します。
• イベント OnColumnClick のハンドラを定義しその中で
• SortColumnをカラムのタグから指定

procedure TForm1.AdvListView1ColumnClick(Sender: TObject; Column: TListColumn);
var
  tag: integer;
begin

  tag := Column.Tag;
  AdvListView1.SortColumn := tag;

end;

便利！

TAdvMemoの日本語が表示が崩れる。

SAS Log Utilityの原文表示の機能を開発中です。TAdvMemoを使うつもりでしたが、どうにも日本語が文字化けしてしまいます。ソースコードがあるとはいえ、今の私の力量では難しい。あきらめて、TMemoで原文表示を実装するか思案しています。

表示が途切れるTAdvMemo

原文参照を実現するサンプルコード作成中

SAS Log Utilityに原文参照の機能を加えるべく技術調査をしています。TAdvMemoのTopLineに値をセットして、指定した行にジャンプできます。TMemoには無い属性です。

TAdvMemoの技術検証サンプル

TMS Software, TAdvListViewのインストールでエラー

環境を刷新
Delphi 2009からXE2へ、Windows XPから7にバージョンアップしました。ツール群もリライトしてコンパイルしていきます。オフィス系ドキュメントの互換性から、バージョンアップを避けてきましたが、XPのサポート切れが近づいてきたので、重い腰を上げます。

さっそくトラブル
そんな作業のなかで、TMS SoftwareのTAdvListViewを購入しましたが、インストールがうまくいきません。手書きの下手なイベントハンドラを捨てて、使いやすいパッケージの導入を目論みました。が、インストールがうまくできません。

エラー： パッケージ …alvPkgDXE2.bpl はバージョンの異なる Delphi または CBuilderで作成されたためインストールできません。

サポートに問い合わせて返事待ちです。