📄 dt971013.html
字号:
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<meta NAME="Generator" CONTENT="Microsoft Word 97">
<title>dt971013</title>
<meta NAME="Version" CONTENT="8.0.3813">
<meta NAME="Date" CONTENT="2/25/97">
<meta NAME="Template" CONTENT="C:\Program Files\Microsoft Office\Office\HTML.DOT">
</head>
<body TEXT="#000000" BGCOLOR="#ffffff">
<b><i><p>Delphi Tips</p>
</b><p>From The Cobb Group</p>
<p>Transtor:<font FACE="宋体" LANG="ZH-CN">傅贵</p>
</i></font><p>97.10.13<font FACE="宋体" LANG="ZH-CN">如何动态更新</font>DBGrid<font FACE="宋体" LANG="ZH-CN">的颜色？</font>(Delphi 3 and 2.0)</p>
<p>DBGrid<font FACE="宋体" LANG="ZH-CN">控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如，如果一个城市的人口大于</font>200<font FACE="宋体" LANG="ZH-CN">万，我们就让它显示为蓝色。使用的控件事件为</font>DBGrid.OnDrawColumeCell.</p>
<p>procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);</p>
<p>begin</p><dir>
<p>if Table1.FieldByName('Population').AsInteger > 20000000 then</p><dir>
<p>DBGrid1.Canvas.Font.Color := clBlue;</p></dir>
<p>DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);</p></dir>
<p>end;</p>
<font FACE="宋体" LANG="ZH-CN"><p>上面的例子是简单的，但是你可以根据自己的需要扩充，例如字体也变化等，甚至你可以调用画圆的函数在数字上画上一个红色的圆圈。</p>
<p> </p></font></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -