5,386
社区成员
发帖
与我相关
我的任务
分享
......
ACanvas.DrawTexT(strtohexstr(Query3.fieldbyname('sfzh').AsString),AViewInfo.Bounds,cxAlignleft);
......
procedure TMainFrm.cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if (AViewInfo.Item.Index<>1) then exit;
with ACanvas do begin
FillRect(AViewInfo.Bounds);
Brush.Style:=bsClear;
DrawTexT(StrToHexstr(AViewInfo.GridRecord.Values[0]),AViewInfo.Bounds,cxAlignleft,true);
end;
ADone:=true;
end;