徐
徐辰仲
Unregistered / Unconfirmed
GUEST, unregistred user!
请问各位大大如何才能在写入StringGird表格数据时,每一行的颜色分开?
if (Strtoint(Rzspinedit3.Text)*100*(StrToCurr(Rzspinedit2.Text)-StrToCurr(Rzspinedit1.Text))-StrToCurr(Rzspinedit1.Text)*cha>0) and (ARow>=i-1)and(ACol>3)then
begin
RzStringGrid1.Canvas.font.color:=Clred;
RzStringGrid1.Canvas.Textrect(rect,rect.left,rect.top,RzStringGrid1.cells[4,i]);
RzStringGrid1.OnDrawCell:=nil;//设置为nil,下面就不会无限递归
try
TMyGrid(rzStringGrid1).DrawCell(ACol,ARow,Rect,State);
finally
rzStringGrid1.OnDrawCell:=rzStringGrid1DrawCell; //恢复事件的地址
end;
end;
if (Strtoint(Rzspinedit3.Text)*100*(StrToCurr(Rzspinedit2.Text)-StrToCurr(Rzspinedit1.Text))-StrToCurr(Rzspinedit1.Text)*cha<0) and (ARow>=i-1)and(ACol>3)then
begin
RzStringGrid1.Canvas.font.color:=Clgreen;
RzStringGrid1.Canvas.Textrect(rect,rect.left,rect.top,RzStringGrid1.cells[4,i]);
RzStringGrid1.OnDrawCell:=nil;//设置为nil,下面就不会无限递归
try
TMyGrid(rzStringGrid1).DrawCell(ACol,ARow,Rect,State);
finally
rzStringGrid1.OnDrawCell:=rzStringGrid1DrawCell; //恢复事件的地址
end;
end;
这是我的部分代码,但是每次写入数据后上一次的文字颜色就会被刷除,请问应该如何才能锁定每一行的文字颜色,麻烦各位大大了
if (Strtoint(Rzspinedit3.Text)*100*(StrToCurr(Rzspinedit2.Text)-StrToCurr(Rzspinedit1.Text))-StrToCurr(Rzspinedit1.Text)*cha>0) and (ARow>=i-1)and(ACol>3)then
begin
RzStringGrid1.Canvas.font.color:=Clred;
RzStringGrid1.Canvas.Textrect(rect,rect.left,rect.top,RzStringGrid1.cells[4,i]);
RzStringGrid1.OnDrawCell:=nil;//设置为nil,下面就不会无限递归
try
TMyGrid(rzStringGrid1).DrawCell(ACol,ARow,Rect,State);
finally
rzStringGrid1.OnDrawCell:=rzStringGrid1DrawCell; //恢复事件的地址
end;
end;
if (Strtoint(Rzspinedit3.Text)*100*(StrToCurr(Rzspinedit2.Text)-StrToCurr(Rzspinedit1.Text))-StrToCurr(Rzspinedit1.Text)*cha<0) and (ARow>=i-1)and(ACol>3)then
begin
RzStringGrid1.Canvas.font.color:=Clgreen;
RzStringGrid1.Canvas.Textrect(rect,rect.left,rect.top,RzStringGrid1.cells[4,i]);
RzStringGrid1.OnDrawCell:=nil;//设置为nil,下面就不会无限递归
try
TMyGrid(rzStringGrid1).DrawCell(ACol,ARow,Rect,State);
finally
rzStringGrid1.OnDrawCell:=rzStringGrid1DrawCell; //恢复事件的地址
end;
end;
这是我的部分代码,但是每次写入数据后上一次的文字颜色就会被刷除,请问应该如何才能锁定每一行的文字颜色,麻烦各位大大了