Delphi中DBGrid行列颜色设置.docx

1、Delphi中DBGrid行列颜色设置Delphi中DBGrid行列颜色设置1. 纵向斑马线效果：实现网格的奇数列和偶数列分别以不同的颜色显示,以区别相邻的数据列。 file:/在DbGrid的DrawColumnCell事件中编写如下代码： Case DataCol Mod 2 = 0 of True: DbGrid1.Canvas.Brush.Color:= clBlue; file:/偶数列用蓝色 False: DbGrid1.Canvas.Brush.Color:= clAqua; file:/奇数列用浅绿色 End; DbGrid1.Canvas.Pen.Mode:=pmMask;

2、DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State); 2. 纵向斑马线，同时以红色突出显示当前单元格效果：以突出显示当前选中的字段。 file:/将上述代码修改为： Case DataCol Mod 2 = 0 of True: DbGrid1.Canvas.Brush.Color:= clBlue; file:/偶数列用蓝色 False: DbGrid1.Canvas.Brush.Color:= clAqua; file:/奇数列用浅绿色 End; If (State = gdSelected) or (State=gdS

3、elected,gdFocused) then If Not DbGrid1.SelectedRows.CurrentRowSelected then DbGrid1.Canvas.Brush.Color:=clRed; file:/当前选中单元格显示红色 DbGrid1.Canvas.Pen.Mode:=pmMask; DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State); 上述两种方法突出了列的显示效果。 3在数据网格中以红色突出显示当前选中的行。 设置DbGrid控件的Options属性中的dgRowSelect属性为真

4、，Color属性为clAqua(背景色), 在DbGrid的DrawColumnCell事件中编写如下代码： if (State = gdSelected) or (State=gdSelected,gdFocused) then DbGrid1.Canvas.Brush.color:=clRed; file:/当前行以红色显示，其它行使用背景的浅绿色 DbGrid1.Canvas.pen.mode:=pmmask; DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State); 4行突显的斑马线效果：既突出当前行，又区分不同的列（字

5、段）。 file:/其它属性设置同3，将上述代码修改为： if (State = gdSelected) or (State=gdSelected,gdFocused) then begin Case DataCol Mod 2 = 0 of True : DbGrid1.Canvas.Brush.color:=clRed; file:/当前选中行的偶数列显示红色 False: DbGrid1.Canvas.Brush.color:=clblue; file:/当前选中行的奇数列显示蓝色 end; DbGrid1.Canvas.pen.mode:=pmmask; DbGrid1.Default

6、DrawColumnCell (Rect, DataCol, Column, State); end; 5横向斑马线， 同时以红色突显当前行效果。 file:/其它属性设置同3，将上述代码修改为： Case Table1.RecNo mod 2 = 0 of file:/根据数据集的记录号进行判断 True : DbGrid1.Canvas.Brush.color:=clAqua; file:/偶数行用浅绿色显示 False: DbGrid1.Canvas.Brush.color:=clblue; file:/奇数行用蓝色表示 end; if (State = gdSelected) or (

7、State=gdSelected,gdFocused) then file:/选中行用红色显示 DbGrid1.Canvas.Brush.color:=clRed; DbGrid1.Canvas.pen.mode:=pmMask; DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State); 6双向斑马线效果：即行间用不同色区分，同时，选中行以纵向斑马线效果区分不同的列。 file:/其它属性设置同3，将上述代码修改为： Case Table1.RecNo mod 2 = 0 of file:/根据数据集的记录号进行判断 True

8、: DbGrid1.Canvas.Brush.color:=clAqua; file:/偶数行用浅绿色显示 False: DbGrid1.Canvas.Brush.color:= clblue; file:/奇数行用蓝色表示 end; If (State = gdSelected) or (State=gdSelected,gdFocused) then Case DataCol mod 2 = 0 of True : DbGrid1.Canvas.Brush.color:=clRed; file:/当前选中行的偶数列用红色 False: DbGrid1.Canvas.Brush.color:

9、= clGreen; file:/当前选中行的奇数列用绿色表示 end; DbGrid1.Canvas.pen.mode:=pmMask; DbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);Delphi 中的颜色常量及效果图颜色名称颜色效果HexHTMLclBlack$000000#000000clMaroon$000080#800000clGreen$008000#008000clOlive$008080#808000clNavy$800000#000080clPurple$800080#800080clTeal$808

10、000#008080clGray$808080#808080clSilver$C0C0C0#C0C0C0clRed$0000FF#FF0000clLime$00FF00#00FF00clYellow$00FFFF#FFFF00clBlue$FF0000#0000FFclFuchsia$FF00FF#FF00FFclAqua$FFFF00#00FFFFclLtGray$C0C0C0#C0C0C0clDkGray$808080#808080clWhite$FFFFFF#FFFFFFclMoneyGreen$C0DCC0#C0DCC0clSkyBlue$F0CAA6#A6CAF0clCream$F0

11、FBFF#FFFBF0clMedGray$A4A0A0#A0A0A4clWebSnow$FAFAFF#FFFAFAclWebFloralWhite$F0FAFF#FFFAF0clWebLavenderBlush$F5F0FF#FFF0F5clWebOldLace$E6F5FD#FDF5E6clWebIvory$F0FFFF#FFFFF0clWebCornSilk$DCF8FF#FFF8DCclWebBeige$DCF5F5#F5F5DCclWebAntiqueWhite$D7EBFA#FAEBD7clWebWheat$B3DEF5#F5DEB3clWebAliceBlue$FFF8F0#F0F

12、8FFclWebGhostWhite$FFF8F8#F8F8FFclWebLavender$FAE6E6#E6E6FAclWebSeashell$EEF5FF#FFF5EEclWebLightYellow$E0FFFF#FFFFE0clWebPapayaWhip$D5EFFF#FFEFD5clWebNavajoWhite$ADDEFF#FFDEADclWebMoccasin$B5E4FF#FFE4B5clWebBurlywood$87B8DE#DEB887clWebAzure$FFFFF0#F0FFFFclWebMintcream$FAFFF5#F5FFFAclWebHoneydew$F0FF

13、F0#F0FFF0clWebLinen$E6F0FA#FAF0E6clWebLemonChiffon$CDFAFF#FFFACDclWebBlanchedAlmond$CDEBFF#FFEBCDclWebBisque$C4E4FF#FFE4C4clWebPeachPuff$B9DAFF#FFDAB9clWebTan$8CB4D2#D2B48CclWebYellow$00FFFF#FFFF00clWebDarkOrange$008CFF#FF8C00clWebRed$0000FF#FF0000clWebDarkRed$00008B#8B0000clWebMaroon$000080#800000c

14、lWebIndianRed$5C5CCD#CD5C5CclWebSalmon$7280FA#FA8072clWebCoral$507FFF#FF7F50clWebGold$00D7FF#FFD700clWebTomato$4763FF#FF6347clWebCrimson$3C14DC#DC143CclWebBrown$2A2AA5#A52A2AclWebChocolate$1E69D2#D2691EclWebSandyBrown$60A4F4#F4A460clWebLightSalmon$7AA0FF#FFA07AclWebLightCoral$8080F0#F08080clWebOrang

15、e$00A5FF#FFA500clWebOrangeRed$0045FF#FF4500clWebFirebrick$2222B2#B22222clWebSaddleBrown$13458B#8B4513clWebSienna$2D52A0#A0522DclWebPeru$3F85CD#CD853FclWebDarkSalmon$7A96E9#E9967AclWebRosyBrown$8F8FBC#BC8F8FclWebPaleGoldenrod$AAE8EE#EEE8AAclWebLightGoldenrodYellow$D2FAFA#FAFAD2clWebOlive$008080#80800

16、0clWebForestGreen$228B22#228B22clWebGreenYellow$2FFFAD#ADFF2FclWebChartreuse$00FF7F#7FFF00clWebLightGreen$90EE90#90EE90clWebAquamarine$D4FF7F#7FFFD4clWebSeaGreen$578B2E#2E8B57clWebGoldenRod$20A5DA#DAA520clWebKhaki$8CE6F0#F0E68CclWebOliveDrab$238E6B#6B8E23clWebGreen$008000#008000clWebYellowGreen$32CD

17、9A#9ACD32clWebLawnGreen$00FC7C#7CFC00clWebPaleGreen$98FB98#98FB98clWebMediumAquamarine$AACD66#66CDAAclWebMediumSeaGreen$71B33C#3CB371clWebDarkGoldenRod$0B86B8#B8860BclWebDarkKhaki$6BB7BD#BDB76BclWebDarkOliveGreen$2F6B55#556B2FclWebDarkgreen$006400#006400clWebLimeGreen$32CD32#32CD32clWebLime$00FF00#0

18、0FF00clWebSpringGreen$7FFF00#00FF7FclWebMediumSpringGreen$9AFA00#00FA9AclWebDarkSeaGreen$8FBC8F#8FBC8FclWebLightSeaGreen$AAB220#20B2AAclWebPaleTurquoise$EEEEAF#AFEEEEclWebLightCyan$FFFFE0#E0FFFFclWebLightBlue$E6D8AD#ADD8E6clWebLightSkyBlue$FACE87#87CEFAclWebCornFlowerBlue$ED9564#6495EDclWebDarkBlue$

19、8B0000#00008BclWebIndigo$82004B#4B0082clWebMediumTurquoise$CCD148#48D1CCclWebTurquoise$D0E040#40E0D0clWebCyan$FFFF00#00FFFFclWebAqua$FFFF00#00FFFFclWebPowderBlue$E6E0B0#B0E0E6clWebSkyBlue$EBCE87#87CEEBclWebRoyalBlue$E16941#4169E1clWebMediumBlue$CD0000#0000CDclWebMidnightBlue$701919#191970clWebDarkTu

20、rquoise$D1CE00#00CED1clWebCadetBlue$A09E5F#5F9EA0clWebDarkCyan$8B8B00#008B8BclWebTeal$808000#008080clWebDeepskyBlue$FFBF00#00BFFFclWebDodgerBlue$FF901E#1E90FFclWebBlue$FF0000#0000FFclWebNavy$800000#000080clWebDarkViolet$D30094#9400D3clWebDarkOrchid$CC3299#9932CCclWebMagenta$FF00FF#FF00FFclWebFuchsia

21、$FF00FF#FF00FFclWebDarkMagenta$8B008B#8B008BclWebMediumVioletRed$8515C7#C71585clWebPaleVioletRed$9370DB#DB7093clWebBlueViolet$E22B8A#8A2BE2clWebMediumOrchid$D355BA#BA55D3clWebMediumPurple$DB7093#9370DBclWebPurple$800080#800080clWebDeepPink$9314FF#FF1493clWebLightPink$C1B6FF#FFB6C1clWebViolet$EE82EE#

22、EE82EEclWebOrchid$D670DA#DA70D6clWebPlum$DDA0DD#DDA0DDclWebThistle$D8BFD8#D8BFD8clWebHotPink$B469FF#FF69B4clWebPink$CBC0FF#FFC0CBclWebLightSteelBlue$DEC4B0#B0C4DEclWebMediumSlateBlue$EE687B#7B68EEclWebLightSlateGray$998877#778899clWebWhite$FFFFFF#FFFFFFclWebLightgrey$D3D3D3#D3D3D3clWebGray$808080#80

23、8080clWebSteelBlue$B48246#4682B4clWebSlateBlue$CD5A6A#6A5ACDclWebSlateGray$908070#708090clWebWhiteSmoke$F5F5F5#F5F5F5clWebSilver$C0C0C0#C0C0C0clWebDimGray$696969#696969clWebMistyRose$E1E4FF#FFE4E1clWebDarkSlateBlue$8B3D48#483D8BclWebDarkSlategray$4F4F2F#2F4F4FclWebGainsboro$DCDCDC#DCDCDCclWebDarkGra

24、y$A9A9A9#A9A9A9clWebBlack$000000#000000这个表的制作过程:第一步, 先从 Delphi 的源文件中提取并替换出下面的文本文件: clBlack=$000000clMaroon=$000080clGreen=$008000clOlive=$008080clNavy=$800000clPurple=$800080clTeal=$808000clGray=$808080clSilver=$C0C0C0clRed=$0000FFclLime=$00FF00clYellow=$00FFFFclBlue=$FF0000clFuchsia=$FF00FFclAqua=$

25、FFFF00clLtGray=$C0C0C0clDkGray=$808080clWhite=$FFFFFFclMoneyGreen=$C0DCC0clSkyBlue=$F0CAA6clCream=$F0FBFFclMedGray=$A4A0A0clWebSnow=$FAFAFFclWebFloralWhite=$F0FAFFclWebLavenderBlush=$F5F0FFclWebOldLace=$E6F5FDclWebIvory=$F0FFFFclWebCornSilk=$DCF8FFclWebBeige=$DCF5F5clWebAntiqueWhite=$D7EBFAclWebWheat=$B3DEF5clWebAliceBlue=$FFF8F0clWebGhostWhite=$FFF8F8clWebLavender=$FAE6E6clWebSeashell=$EEF5FFclWebLightYellow=$E0FFFFclWebPapayaWhip=$D5EFFFclWebNavajoWhite=$ADDEFFclWebMoccasin=$B5E4FFclWebBurlywood=$87B8DEclWebAzure=$FFFFF0clWebMintcream=$FAFFF5clWeb