您的位置: 主页 > 如何更改单元格或TRzStringGrid线的颜色

如何更改单元格或TRzStringGrid线的颜色

全部展开
这是因为TStringGrid没有提供类似的方法。
那我只能画自己。
下面的代码假定一个名为Form2的窗体具有一个名为sGrid的TStringGrid。下面的代码实现此StringGrid OnDrawCellTForm2事件过程。
sGridDrawCell(Sender:TObject; ACol,ARow:Integer; Rect:TRect; State:TGridDrawState); varTheGrid:TStringGrid; CellText:String; beginifnot(ARow = 1)thenExit; //确定条件是否满足条件的:= SenderasTStringGrid; //强制类型转换发送者。您可以通过多个StringGrid将此函数与TheGrid一起使用。
Canvasdobegin //如果绘制了单元格,则它将突出显示。否则,将使用ifgdSelectedinStatethenbeginBrush绘制指定的颜色。
颜色:= clHighlight;来源
颜色:= clHighlightText; endelsebeginBrush。
颜色:= clWindow;
颜色:= clRed; //这是需要设置的颜色。目前,这只是红色边缘。ifgdFixedinStatethenBrush开始。
颜色:= clBtnFace;结束; FillRect; //替换原始内容并绘制CellText:= TheGrid的背景。
行[ARow][ACol]; //单元格文字公司(右
Left,2); //使用Windows API函数在文本区域的左边2个像素// //绘制DrawText文本(句柄,PChar(CellText),长度(CellText),Rect,DT_LEFTorDT_SINGLELINEorDT_VCENTERorDT_END_ELLIPSIS)。结束;结束;


上一篇:ABB负载断开开关OT100FT3 100A 3P主板DIN导轨安装OT3P绝缘
下一篇:没有了

您可能喜欢

回到顶部