DEV cxgrid 自绘相关
procedure cxgrdbndclmn_jgzqCustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var ts:integer; begin ts := 0; trystrtoint(VartoStr(AViewInfo.GridRecord.DisplayTexts[cxgrdbndclmn_jgzq.Index]), ts); if ts = 3 then ACanvas.Brush.Color := RGB(255,192,105) else if (ts >3) and (ts <=5) then ACanvas.Brush.Color := RGB(250,68,28) else if ts > 5 then ACanvas.Brush.Color := RGB(207,19,34); if ts >=3 then begin AViewInfo.EditViewInfo.TextColor := clwhite; AViewInfo.EditViewInfo.BackgroundColor := ACanvas.Brush.Color; AViewInfo.EditViewInfo.Paint(ACanvas); ADone := True; end; end;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· CSnakes vs Python.NET:高效嵌入与灵活互通的跨语言方案对比
· Plotly.NET 一个为 .NET 打造的强大开源交互式图表库