标准GRID加复选框

【drawcell方法】

procedure Tfmmain.dataGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var xpos : integer; begin inherited; if (ACol = 0) or (ARow = 0) then begin SetTextAlign(TStringGrid(Sender).Canvas.Handle, TA_CENTER); xpos := (Rect.Left + Rect.Right) div 2; end else begin case ACol of 1,2,5:begin SetTextAlign(TStringGrid(Sender).Canvas.Handle, TA_LEFT); xpos := (Rect.Left + 5); end; 4:begin SetTextAlign(TStringGrid(Sender).Canvas.Handle, TA_RIGHT); xpos := (Rect.Right - 5); end; end; end; with TStringGrid(Sender) do ExtTextOut(Canvas.Handle, xpos, Rect.Top + 2, ETO_CLIPPED or ETO_OPAQUE, @Rect, PChar(Cells[ACol,ARow]), Length(Cells[ACol,ARow]), nil); with TStringGrid(Sender).Canvas,TStringGrid(Sender) do begin if (Acol = 0 ) and (ARow<=dataList.Count) and (ARow>0) then begin brush.Color:=clWindow; FillRect(Rect); try if dataGrid.Cells[ACol,ARow]='NO' then Draw( (rect.right + rect.left - fOK.width) div 2, (rect.bottom + rect.top - fOK.height) div 2, fOK ); if dataGrid.Cells[ACol,ARow]='YES' then Draw( (rect.right + rect.left - fNO.width) div 2, (rect.bottom + rect.top - fNO.height) div 2, fNO ); except {Do nothing......} end; end; end; end;

 

//画图像的方法

//定义 private { Private declarations } fOK,fNO :TBitmap; procedure getBmp(OK_BMP, NO_BMP: TBitmap); // procedure TfmMain.getBmp(OK_BMP, NO_BMP: TBitmap); var BMP : TBitmap; begin BMP := TBitmap.create; Try bmp.Handle:=LoadBitmap(0,Pchar(OBM_CHECKBOXES)); With OK_BMP Do Begin width:=bmp.Width div 4; height:=bmp.Height div 3; Canvas.Copyrect( Canvas.Cliprect, BMP.canvas, Canvas.Cliprect ); End; With NO_BMP Do Begin width:=bmp.Width div 4; height:=bmp.Height div 3; Canvas.Copyrect(Canvas.Cliprect,BMP.canvas,Rect( Width, 0, 2*Width, Height )); End; Finally Freeandnil(BMP); end; end;

 

//GRID的两个事件要重写

//点击鼠标事件 procedure Tfmmain.dataGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i:integer; Acol,ARow:Longint; begin DataGrid.MouseToCell(X, Y, ACol, ARow ); if (ACol>0) or (ARow=0) then exit; i := dataGrid.Row; if i>dataList.Count then exit; if dataGrid.Cells[0,i] = 'NO' then begin dataGrid.Cells[0,i] := 'YES'; end else begin dataGrid.Cells[0,i] := 'NO'; end; updateSelectSt; end; //回车键时选中 procedure Tfmmain.dataGridKeyPress(Sender: TObject; var Key: Char); var i:integer; begin if Key<>#13 then exit; i := dataGrid.Row; if i=0 then exit; if i>dataList.Count then exit; if dataGrid.Cells[0,i] = 'NO' then begin dataGrid.Cells[0,i] := 'YES'; end else begin dataGrid.Cells[0,i] := 'NO'; end; updateSelectSt;

 

 

//画图像方法的调用，在初始化GRID时调用

procedure Tfmmain.initGridTitle; var i:integer; begin fOK := TBitmap.Create; fNO := TBitmap.Create; getBmp(fOK,fNO); dataGrid.ColCount:=6; dataGrid.RowCount:=16; dataGrid.Cells[0,0]:='选择'; dataGrid.Cells[4,0]:='页数'; dataGrid.Cells[5,0]:='状态'; end;

 

//如果要加一个全选按钮

checkbox 的state属性 设置为cbGrayed

 

在GRID的鼠标点击事件里，如果取消了一条的选中，

要把状态设置为

CheckBox1.State:=cbGrayed;

每次更新选中的行数

判断并设置状态：

   if (SelectCount>0) and (SelectCount <dataList.Count ) then begin
     CheckBox1.State:=cbGrayed;
   end;

 

//checkbox的单击事件

procedure Tfm_main.CheckBox1Click(Sender: TObject); var i:integer; begin if CheckBox1.State =cbGrayed then exit; IF CheckBox1.Checked THEN BEGIN for i:= 1 to datalist.Count do begin dataGrid.Cells[selectNo,I]:='YES'; end; END ELSE BEGIN for i:= 1 to datalist.Count do begin dataGrid.Cells[selectNo,I]:='NO'; end; END; updateSelectItem(); end;