用stringgrid怎样将符合条件的一行都画上色。 找仓库进销存软件
2楼: //我没有用过这个控件,但可以用Panel(颜色随便,还可以写你要的数据)代替, 3楼: 把defaultdrawing设为false 4楼: 我在表里有一个3：2的字段，通过这个代码可以刷出这个 5楼: 大家帮忙想想呀，急 6楼: 还是用listview吧，stringgrid个人认为比较丑 库存管理软件版7楼: 晕，我是在修改别人的程序的，不能乱改 8楼: ONDrawCell里加代码 9楼: 这样还是不可以， 10楼: 晕，我只是给给个提示，你自己写条件就是了 11楼: http://www.delphibbs.com/delphibbs/dispq.asp？lid=3168564 12楼: 谢谢 2位分先给了，LOOKing~~~~~ 如仓库进销存软件
//表格中一条记录宽19
//如果表中记录数*19
Panel1.Left:=dbgrid1.Left+13;
Panel1.Width:=dbgrid1.Width-15;
Panel1.Top:=dbgrid1.Top+20+表中记录数*19;
//如果表中记录数*19>dbgrid1.height;
//就让Panel显示在表格下面 如简单财务管理软件
onDrawCell写你自己的输出
if POS(＇＇3:2＇＇,Cells[ACol, ARow]) >0 then
begin
S := ARow;
Canvas.Brush.Color := $8833FF;
Canvas.FillRect(Rect);
Canvas.TextRect(Rect,Rect.Left , Rect.Top , Cells[ACol,ARow]);
但我现在要 刷出一整行该怎样
if (arow = 3) then //条件
with stringgrid1 do
begin
Canvas.Font.Color := clRed;
Canvas.TextRect(Rect,Rect.Left , Rect.Top , Cells[ACol,ARow]);
end;
1.只能字体变色；
2。只能变到3以前的数，第4列以后就不能变了
联系我们
