怎么样使用checkbox的radiobutton的Listview源码？
该代码实现了基本的功能，
但是只能在一行上画一个button。但是可以通过修改代码来实现（drawcell）。
从component->install component编译该文件，会在控件面板中生成Mycontorls面板，因为代码：
RegisterComponents(´MyControls´, [TStringGridEx]);
unit StringGridEx;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids;
type TBtns = (CheckBoxes,RadioButtons);
type TStringGridEx = class(TStringGrid) private { Private declarations } FTickCol:Integer; FShowTick:Boolean; FSelArray:Array of Boolean; FSelRows:Array of TStrings; FRowHeight:integer; FDblClick:TNotifyEvent; FSelectCell:TSelectCellEvent; FBtns : TBtns; IsDblClicked:Boolean; FTitles:TStrings;
procedure SetTickCol(Value : integer); procedure SetShowTick(Value : Boolean); procedure SetRowHeight(Value:Integer); procedure SetBtns(Value : TBtns); procedure SetRowSelected(RowIndex:integer;Value:Boolean); procedure DoSelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean); procedure DoDblClick(Sender:TObject);
function GetCurrentRow:integer; function GetRowSelected(RowIndex : Integer):Boolean; function GetSelCells(ColIndex,RowIndex:integer):String; function GetSelCnt:Integer;
procedure SetTitles(Value : TStrings); protected { Protected declarations } procedure SizeChanged(OldColCount, OldRowCount: Longint);override; procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);override; public { Public declarations } constructor Create(AOwner:Tcomponent);override; destructor Destroy;override; property ColWidths; property RowHeights;procedure SelectAll; procedure UnSelectAll;
property CurrentRow :Integer read GetCurrentRow; property SelectCount:Integer read GetSelCnt; property RowSelected[RowIndex:Integer]:Boolean read GetRowSelected write SetRowSelected; property CellsOfSelection[Col,Row:Integer]:String read GetSelCells;
published { Published declarations } property ShowTick:Boolean read FShowTick write SetShowTick default false; property TickCol:integer read FTickCol write SetTickCol default -1; property TickButton : TBtns read FBtns write SetBtns default CheckBoxes; property Titles:TStrings read FTitles write SetTitles; property RowHeight:Integer read FRowHeight write SetRowHeight default 18;
property OnCellDblClick:TNotifyEvent read FDblClick write FDblClick; property OnCellSelected:TSelectCellEvent read FSelectCell write FSelectCell; end;
procedure Register;
implementation
procedure Register; begin RegisterComponents(´MyControls´, [TStringGridEx]); end;
constructor TStringGridEx.Create(AOwner:Tcomponent); var i:integer; begin inherited; FTitles := TStringList.Create; FTitles.Clear; SetLength(FSelArray,RowCount); SetLength(FSelRows,RowCount); for i:=0 to Rowcount-1 do FSelRows[i] := TStringList.Create; IsDblClicked := False; OnDblClick := DoDblClick; OnSelectCell := DoSelectCell; for i:=0 to RowCount -1 do if FRowHeight < RowHeights[i] then FRowHeight := RowHeights[i]; end;
destructor TStringGridEx.Destroy; var i:integer; begin for i:=0 to RowCount-1 do FSelRows[i].Free; FTitles.Free; inherited; end;
procedure TStringGridEx.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); var Checked:Boolean; const CheckBox : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); RadioButton : array[Boolean] of Integer = (DFCS_BUTTONRADIO, DFCS_BUTTONRADIO or DFCS_CHECKED); begin
inherited DrawCell(ACol, ARow,ARect,AState); if FShowTick and (ACol = FTickCol) and (ARow >= FixedRows) then begin Checked := FSelArray[ARow]; Canvas.FillRect(ARect); if FBtns = CheckBoxes then DrawFrameControl(Canvas.Handle,ARect,DFC_BUTTON, CheckBox[Checked]) else DrawFrameControl(Canvas.Handle,ARect,DFC_BUTTON, RadioButton[Checked]); end;
end;
procedure TStringGridEx.SetTickCol(Value : Integer); begin FTickCol := Value; end;
procedure TStringGridEx.SetShowTick(Value : Boolean); begin FShowTick := Value; end;
function TStringGridEx.GetRowSelected(RowIndex : Integer):Boolean; begin Result := FSelArray[RowIndex]; end;
procedure TStringGridEx.SetRowSelected(RowIndex:integer;Value:Boolean); var i:integer; begin Row := RowIndex; if Value then begin FSelRows[RowIndex].Clear; for i:=0 to ColCount-1 do FSelRows[RowIndex].Add(Cells[i,RowIndex]); end; FSelArray[RowIndex] := Value; end;
function TStringGridEx.GetCurrentRow : Integer; begin Result := Row; end;
procedure TStringGridEx.DoDblClick(Sender : TObject); begin if FShowTick and (Col = FTickCol) then FSelArray[Row] := not FSelArray[Row]; If FSelArray[Row] then SetRowSelected(Row,FSelArray[Row]); if Assigned(FDblClick) then FDblClick(Sender); IsDblClicked := True; end;
procedure TStringGridEx.DoSelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean); var i:integer; begin if IsDblClicked then begin if FShowTick and (ACol = FTickCol) then FSelArray[ARow] := not FSelArray[ARow]; end; If FSelArray[ARow] then begin FSelRows[ARow].Clear; for i:=0 to ColCount-1 do FSelRows[ARow].Add(Cells[i,ARow]); end; if Assigned(FSelectCell) then FSelectCell(Sender,ACol,ARow,CanSelect); end;
procedure TStringGridEx.SetRowHeight(Value : Integer); var i:integer; begin for i:=0 to RowCount -1 do RowHeights[i] := Value; FRowHeight := Value; Invalidate; end;
procedure TStringGridEx.SetBtns(Value : TBtns); begin FBtns := value; Invalidate; end;
procedure TStringGridEx.SizeChanged(OldColCount, OldRowCount: Longint); var i:integer; begin inherited SizeChanged(OldColCount,oldRowCount); SetLength(FSelArray,RowCount); if RowCount<>OldrowCount then for i:=0 to OldRowCount-1 do FSelRows[i].Free; SetLength(FSelRows,RowCount); for i:=0 to Rowcount-1 do FSelRows[i] := TStringList.Create; IsDblClicked := False; end;
procedure TStringGridEx.SelectAll; var i:integer; begin for i:=1 to RowCount-1 do begin SetRowSelected(i,True); end;
IsDblClicked := False; Row := 0; invalidate; end;
procedure TStringGridEx.UnSelectAll; var i:integer; begin for i:=1 to RowCount-1 do begin SetRowSelected(i,False); FSelRows[i].Clear; end;
Row :=0; IsDblClicked := False; invalidate; end;
procedure TStringGridEx.SetTitles(Value : TStrings); begin if FTitles<>Value then FTitles.Assign(Value); Rows[0].Assign(Ftitles); Invalidate; end;
function TStringGridEx.GetSelCells(ColIndex,RowIndex:integer):String; var i,SelRow:integer; begin SelRow := 0; for i:=1 to RowCount-1 do begin if RowSelected[I] then inc(SelRow); if SelRow = RowIndex then Break; end; Result := FSelRows[i].Strings[ColIndex]; end;
function TStringGridEx.GetSelCnt:Integer; var i,R:integer; begin R:=0; for i:=0 to Rowcount-1 do if RowSelected[i] then Inc(R); Result := R; end;
end.