我需要填写(黑色)我在下面的图片中突出显示的小白色正方形.
我已经尝试添加额外的列.我已经尝试扩展PaintInfo.PaintRectangle.我已经尝试了我可以想到的Amount列中的每个设置.我没有想法
任何人有什么想法如何做到这一点？
这是自定义标题绘图的代码. (原谅与声明,不是我原来的代码….)
procedure TWinPOSReceiptPluginForm.ReceiptDisplayTreeAdvancedHeaderDraw(Sender: TVTHeader; var PaintInfo: THeaderPaintInfo;
const Elements: THeaderPaintElements);
var
TempText: string;
begin
with PaintInfo do
begin
// First check the column member. If it is NoColumn then it's about the header background.
if (hpeBackground in Elements) and (Column <> nil) then begin
TempText := Column.Text;
TargetCanvas.Brush.Color := $444444;
TargetCanvas.FillRect(PaintRectangle);
TargetCanvas.Font.Color := clWhite;
TargetCanvas.Font.Style := [];
TargetCanvas.TextOut (PaintRectangle.Left + 3,PaintRectangle.Top + 3,TempText);
end;
end;
end;