delphi grideh 跟据字的内容变色
比如,我想实现这样一个判断,当记录的列zhuantai为未收费时,字就显示为红色百度要审核网友的答案要这么久,人家又没带网址。...
比如,我想实现这样一个判断,当记录的列zhuantai为 未收费 时,字就显示为红色
百度要审核网友的答案要这么久,人家又没带网址。 展开
百度要审核网友的答案要这么久,人家又没带网址。 展开
2个回答
展开全部
不是审核网友答案,是贴上答案马上被吞掉,而且不能重复回答。百度除了用下三滥的手段挤走Google外,也就这点水平:
我没安装grideh控件,不过在StringGrid中倒是很好实现,估计应该差不多。在OnDrawCell事件中填写(当内容为"未收费"时会变色):
var
KeyWord: string = '未收费';
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if StringGrid1.Cells[ACol, ARow] = KeyWord then
begin
//StringGrid1.Canvas.Brush.Color := clYellow;
//StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.Font.Color := clRed;
StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, KeyWord);
end;
end;
我没安装grideh控件,不过在StringGrid中倒是很好实现,估计应该差不多。在OnDrawCell事件中填写(当内容为"未收费"时会变色):
var
KeyWord: string = '未收费';
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if StringGrid1.Cells[ACol, ARow] = KeyWord then
begin
//StringGrid1.Canvas.Brush.Color := clYellow;
//StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.Font.Color := clRed;
StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, KeyWord);
end;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询