delphi – 如何在TVirtualStringTree中填写滚动条上方的区域?
发布时间:2020-12-15 04:25:18 所属栏目:大数据 来源:网络整理
导读:我需要填写(黑色)我在下面的图片中突出显示的小白色正方形. 我已经尝试添加额外的列.我已经尝试扩展PaintInfo.PaintRectangle.我已经尝试了我可以想到的Amount列中的每个设置.我没有想法 任何人有什么想法如何做到这一点? 这是自定义标题绘图的代码. (原谅
我需要填写(黑色)我在下面的图片中突出显示的小白色正方形.
我已经尝试添加额外的列.我已经尝试扩展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; 解决方法
如果条件错误当hpeBackground在该区域的元素中时,这将永远不会成立,因为在这种情况下,列为零.
由于仅需要Column nil检查才能获取Column.Text,因此您需要更改该代码: if hpeBackground in Elements then begin if Column <> nil then TempText := Column.Text; TargetCanvas.Brush.Color := $444444; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |