delphi – 当TDBGrid.DefaultDrawing为false时,如何对Full Row S

发布时间：2020-12-15 04:13:17 所属栏目：大数据来源：网络整理

导读：当你有一个TDBGrid,全行选择,并且总是显示选择,即使没有聚焦,并且你想完全所有者绘制它,你可以选择一个不推荐使用的事件OnDrawDataCell,以及一个新的事件DrawColumnCell,我选择了后者试试这个： procedure TDbGridTestForm.mygridDrawColumnCell(Sender: TOb

当你有一个TDBGrid,全行选择,并且总是显示选择,即使没有聚焦,并且你想完全所有者绘制它,你可以选择一个不推荐使用的事件OnDrawDataCell,以及一个新的事件DrawColumnCell,我选择了后者试试这个：

procedure TDbGridTestForm.mygridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if  gdSelected in State then begin
      //      mygrid.DrawCellHighlight(Rect,State,Col,Row);
  mygrid.Canvas.Brush.Color := clHighlight;
  mygrid.Canvas.Font.Color := clHighlightText;
  mygrid.Canvas.FillRect(Rect);
  end;


  mygrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

让我疯狂的是,我不会使用DefaultDrawColumnCell代码绘制焦点指示(高亮颜色和焦点矩形),我确信我应该调用DrawCellHighlight而不是执行上面我正在做的FillRect hack.

如果我打开DefaultDrawing,我会得到一组毛刺(奇怪的字体绘画问题),如果我将其关闭,我会得到另一组毛刺(即使在gdSelected时也没有突出显示).

DBGrids.pas DefaultDrawColumnCell中的代码除了绘制文本外什么都不做.很明显,如果你自己接管所有绘图代码,你应该做更多.但是,DBGrids.pas所依赖的Grids.pas中内置的高亮绘图代码并非设计为从此上下文调用.我无法弄清楚我是否应该直接调用DrawCellHighlight(如上所示),并计算Col和Row值,或者我是否应该编写自己的TCustomGrid.DrawCellHighlight复杂版本来手动处理所有各种情况.

当然,这是如此简单,明显,我只是忽略它.我必须关闭DefaultDrawing,因此我必须完全从我的所有者绘制事件中绘制,并且我必须能够在主题服务不可用时运行,并且我必须在主题服务可用时使用它们.所以我需要直接调用TCustomGrid.DrawCellHighlight(我不知道如何),或者我需要完全重新实现它.

解决方法

由于您需要自己实现的主题支持,最好调用DrawCellHighlight.即使没有向OnDrawColumnCell提供行号,它看起来甚至不会被DefaultDrawColumnCell代码使用,因此您不必尝试在内部计算它：

type
  tHackGrid = class(tDBGrid);

procedure TTDbGridTestForm.myGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in State then begin
    tHackGrid(mygrid).DrawCellHighlight(Rect,Column.Index,0);
  end;
  mygrid.DefaultDrawColumnCell(Rect,State);
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!