Show a TRadioButtons in a TListView?

Author: Opa  

http://www.swissdelphicenter.ch/torry/showcode.php?id=1773

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

 StdCtrls, ComCtrls;

type

 TMain = class(TForm)

   ListView1: TListView;

   Button1: TButton;

   Button2: TButton;

   procedure FormCreate(Sender : TObject);

   procedure FormDestroy(Sender : TObject);

   procedure Button1Click(Sender : TObject);

   procedure Button2Click(Sender : TObject);

 private

   ListViewRadioList: TList;

   procedure ListViewRadioCreate(List : TListView; R : TRect);

   procedure ListViewRadioClear(List : TListView; Liste : TList);

   procedure ListViewRadioFree(List : TListView; Liste : TList);

   procedure ListViewListSelected(Item : integer; List : TListView);

   procedure ListViewRadioClick(Sender : TObject);

 public

   { Public-Deklarationen }

 end;

var

 Main : TMain;

implementation

{$R *.DFM}

procedure TMain.FormCreate(Sender : TObject);

begin

 ListViewRadioList := TList.Create;

end;

procedure TMain.FormDestroy(Sender : TObject);

begin

 ListViewRadioFree(ListView1, ListViewRadioList);

end;

procedure TMain.Button1Click(Sender : TObject);

var

 R : TRect;

 NewColumn : TListColumn;

 ListItem : TListItem;

 I : integer;

begin

 with ListView1 do

 begin

   ViewStyle := vsReport;

   Align := alLeft;

   RowSelect := True;

   ReadOnly := True;

   ShowColumnHeaders := False;

   NewColumn := Columns.Add;

   NewColumn.Width := 15;

   NewColumn := Columns.Add;

   NewColumn.Width := Width - 15 - 19; // - breite Button - breite vom Scrollbalken

   Items.BeginUpdate;

   for I := 0 to 9 do

   begin

     ListItem := Items.Add;

     R := Items[I].DisplayRect(drBounds);

     R.Left := 1;

     R.Right := Columns[0].Width;

     ListViewRadioCreate(ListView1, R);

     Items[I].Data := TRadioButton(ListViewRadioList[I]);

     ListItem.SubItems.Add('Test' + IntToStr(I));

   end;

   Items.EndUpdate;

 end;

end;

procedure TMain.Button2Click(Sender : TObject);

begin

 ListViewRadioClear(ListView1, ListViewRadioList);

end;

//------------------------------------------------------------------------------

procedure TMain.ListViewRadioCreate(List : TListView; R : TRect);

 function NewViewRadio: TRadioButton;

 begin

   Result := TRadioButton.Create(Self);

   Result.Parent := List;

   Result.BoundsRect := R;

   Result.OnClick := ListViewRadioClick;

 end;

begin

 ListViewRadioList.Add(NewViewRadio);

end;

//------------------------------------------------------------------------------

procedure TMain.ListViewRadioFree(List : TListView; Liste : TList);

var

 I : integer;

begin

 if Liste.Count - 1 < 0 then exit;

 for I := 0 to Liste.Count - 1 do TRadioButton(Liste[I]).Free;

 Liste.Free;

end;

//------------------------------------------------------------------------------

procedure TMain.ListViewRadioClear(List : TListView; Liste : TList);

var

 I : integer;

begin

 if Liste.Count - 1 < 0 then exit;

 List.Items.BeginUpdate;

 for I := 0 to Liste.Count - 1 do TRadioButton(Liste[I]).Free;

 List.Items.Clear;

 Liste.Clear;

 List.Items.EndUpdate;

end;

//------------------------------------------------------------------------------

procedure TMain.ListViewListSelected(Item : integer; List : TListView);

begin

 with List do

 begin

   try

     SetFocus;

   except

   end;

   Selected := Items[Item];

   ItemFocused := Selected;

 end;

end;

//------------------------------------------------------------------------------

procedure TMain.ListViewRadioClick(Sender : TObject);

var

 I : integer;

begin

 for I := 0 to ListViewRadioList.Count - 1 do

   if TRadioButton(ListViewRadioList[I]).Checked then

   begin

     ListViewListSelected(I, ListView1);

     break;

   end;

end;

end.