帖子不能连续回复三次以上,没办法,重开帖子
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.fieldname = 'User' then
begin
if column.Field.Value = Null then
begin
DBGrid1.canvas.font.Color := clblue;
DBGrid1.Canvas.Brush.Color := clbtnface;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end
end;
这段代码可以控制当前显示的单元格,但想控制除本单元格外,它左边的二个单元(第3,4列)也是这背景色
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.fieldname = 'User' then
begin
if column.Field.Value = Null then
begin
DBGrid1.canvas.font.Color := clblue;
DBGrid1.Canvas.Brush.Color := clbtnface;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end
end;
这段代码可以控制当前显示的单元格,但想控制除本单元格外,它左边的二个单元(第3,4列)也是这背景色
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货