ListViewでタイトル部分を中央寄せ、データ表示部分を右寄せにしたい

れたす 2020-06-11 10:42:00 No: 148804

タイトルの通りTListViewでデータを表示するときに、
ヘッダのタイトルのキャプションは中央寄せ、データ表示の部分は右寄せに設定したいのですがやり方がわかりません。
誰か知っている方がいましたら教えてください。

KONNOYA 2020-06-26 09:15:43 No: 148862

FMX の TListView なら、↓次の様に書けば実現できます。

uses
FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.ListView;

procedure TForm1.FormCreate( Sender : TObject );

var
ListNo : Integer;
ListViewItem : TListViewItem;

begin
  ListView1.BeginUpdate;
  try
    // ヘッダーは中央寄せ
    ListView1.ItemAppearanceObjects.HeaderObjects.Text.TextAlign  := TTextAlign.Center;
    // アイテムは右寄せ
    ListView1.ItemAppearanceObjects.ItemObjects.Text.TextAlign    := TTextAlign.Trailing;
    // アイテムのアクセサリを消したい場合は↓のコメント化を解除
//  ListView1.ItemAppearanceObjects.ItemObjects.Accessory.Visible := FALSE;

    // ヘッダー追加
    ListViewItem := ListView1.Items.Add;
    ListViewItem.Height  := 40;
    ListViewItem.Text    := 'HEADER';
    ListViewItem.Purpose := TListItemPurpose.Header;

    for ListNo := 0 to 9 do
    begin
      // アイテム追加
      ListViewItem := ListView1.Items.Add;
      ListViewItem.Height    := 40;
      ListViewItem.Accessory := TAccessoryType.Detail;
      ListViewItem.Text      := 'No.' + ListNo.ToString;
    end;
  finally
    ListView1.EndUpdate;
  end;
end;