Delphi中DBGrid行列颜色设置.docx

Delphi中DBGrid行列颜色设置.docx

《Delphi中DBGrid行列颜色设置.docx》由会员分享，可在线阅读，更多相关《Delphi中DBGrid行列颜色设置.docx（16页珍藏版）》请在冰豆网上搜索。

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; 

  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=[gdSelected,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属性为真，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．行突显的斑马线效果：

既突出当前行，又区分不同的列（字段）。

  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.DefaultDrawColumnCell （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 （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 :

 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:

= clGreen; file:

//当前选中行的奇数列用绿色表示 

  end; 

  DbGrid1.Canvas.pen.mode:

=pmMask; 

  DbGrid1.DefaultDrawColumnCell （Rect, DataCol, Column, State）;  

Delphi中的颜色常量及效果图

颜色名称

  颜色效果  

Hex

HTML

clBlack

$000000

#000000

clMaroon

$000080

#800000

clGreen

$008000

#008000

clOlive

$008080

#808000

clNavy

$800000

#000080

clPurple

$800080

#800080

clTeal

$808000

#008080

clGray

$808080

#808080

clSilver

$C0C0C0

#C0C0C0

clRed

$0000FF

#FF0000

clLime

$00FF00

#00FF00

clYellow

$00FFFF

#FFFF00

clBlue

$FF0000

#0000FF

clFuchsia

$FF00FF

#FF00FF

clAqua

$FFFF00

#00FFFF

clLtGray

$C0C0C0

#C0C0C0

clDkGray

$808080

#808080

clWhite

$FFFFFF

#FFFFFF

clMoneyGreen

$C0DCC0

#C0DCC0

clSkyBlue

$F0CAA6

#A6CAF0

clCream

$F0FBFF

#FFFBF0

clMedGray

$A4A0A0

#A0A0A4

clWebSnow

$FAFAFF

#FFFAFA

clWebFloralWhite

$F0FAFF

#FFFAF0

clWebLavenderBlush

$F5F0FF

#FFF0F5

clWebOldLace

$E6F5FD

#FDF5E6

clWebIvory

$F0FFFF

#FFFFF0

clWebCornSilk

$DCF8FF

#FFF8DC

clWebBeige

$DCF5F5

#F5F5DC

clWebAntiqueWhite

$D7EBFA

#FAEBD7

clWebWheat

$B3DEF5

#F5DEB3

clWebAliceBlue

$FFF8F0

#F0F8FF

clWebGhostWhite

$FFF8F8

#F8F8FF

clWebLavender

$FAE6E6

#E6E6FA

clWebSeashell

$EEF5FF

#FFF5EE

clWebLightYellow

$E0FFFF

#FFFFE0

clWebPapayaWhip

$D5EFFF

#FFEFD5

clWebNavajoWhite

$ADDEFF

#FFDEAD

clWebMoccasin

$B5E4FF

#FFE4B5

clWebBurlywood

$87B8DE

#DEB887

clWebAzure

$FFFFF0

#F0FFFF

clWebMintcream

$FAFFF5

#F5FFFA

clWebHoneydew

$F0FFF0

#F0FFF0

clWebLinen

$E6F0FA

#FAF0E6

clWebLemonChiffon

$CDFAFF

#FFFACD

clWebBlanchedAlmond

$CDEBFF

#FFEBCD

clWebBisque

$C4E4FF

#FFE4C4

clWebPeachPuff

$B9DAFF

#FFDAB9

clWebTan

$8CB4D2

#D2B48C

clWebYellow

$00FFFF

#FFFF00

clWebDarkOrange

$008CFF

#FF8C00

clWebRed

$0000FF

#FF0000

clWebDarkRed

$00008B

#8B0000

clWebMaroon

$000080

#800000

clWebIndianRed

$5C5CCD

#CD5C5C

clWebSalmon

$7280FA

#FA8072

clWebCoral

$507FFF

#FF7F50

clWebGold

$00D7FF

#FFD700

clWebTomato

$4763FF

#FF6347

clWebCrimson

$3C14DC

#DC143C

clWebBrown

$2A2AA5

#A52A2A

clWebChocolate

$1E69D2

#D2691E

clWebSandyBrown

$60A4F4

#F4A460

clWebLightSalmon

$7AA0FF

#FFA07A

clWebLightCoral

$8080F0

#F08080

clWebOrange

$00A5FF

#FFA500

clWebOrangeRed

$0045FF

#FF4500

clWebFirebrick

$2222B2

#B22222

clWebSaddleBrown

$13458B

#8B4513

clWebSienna

$2D52A0

#A0522D

clWebPeru

$3F85CD

#CD853F

clWebDarkSalmon

$7A96E9

#E9967A

clWebRosyBrown

$8F8FBC

#BC8F8F

clWebPaleGoldenrod

$AAE8EE

#EEE8AA

clWebLightGoldenrodYellow

$D2FAFA

#FAFAD2

clWebOlive

$008080

#808000

clWebForestGreen

$228B22

#228B22

clWebGreenYellow

$2FFFAD

#ADFF2F

clWebChartreuse

$00FF7F

#7FFF00

clWebLightGreen

$90EE90

#90EE90

clWebAquamarine

$D4FF7F

#7FFFD4

clWebSeaGreen

$578B2E

#2E8B57

clWebGoldenRod

$20A5DA

#DAA520

clWebKhaki

$8CE6F0

#F0E68C

clWebOliveDrab

$238E6B

#6B8E23

clWebGreen

$008000

#008000

clWebYellowGreen

$32CD9A

#9ACD32

clWebLawnGreen

$00FC7C

#7CFC00

clWebPaleGreen

$98FB98

#98FB98

clWebMediumAquamarine

$AACD66

#66CDAA

clWebMediumSeaGreen

$71B33C

#3CB371

clWebDarkGoldenRod

$0B86B8

#B8860B

clWebDarkKhaki

$6BB7BD

#BDB76B

clWebDarkOliveGreen

$2F6B55

#556B2F

clWebDarkgreen

$006400

#006400

clWebLimeGreen

$32CD32

#32CD32

clWebLime

$00FF00

#00FF00

clWebSpringGreen

$7FFF00

#00FF7F

clWebMediumSpringGreen

$9AFA00

#00FA9A

clWebDarkSeaGreen

$8FBC8F

#8FBC8F

clWebLightSeaGreen

$AAB220

#20B2AA

clWebPaleTurquoise

$EEEEAF

#AFEEEE

clWebLightCyan

$FFFFE0

#E0FFFF

clWebLightBlue

$E6D8AD

#ADD8E6

clWebLightSkyBlue

$FACE87

#87CEFA

clWebCornFlowerBlue

$ED9564

#6495ED

clWebDarkBlue

$8B0000

#00008B

clWebIndigo

$82004B

#4B0082

clWebMediumTurquoise

$CCD148

#48D1CC

clWebTurquoise

$D0E040

#40E0D0

clWebCyan

$FFFF00

#00FFFF

clWebAqua

$FFFF00

#00FFFF

clWebPowderBlue

$E6E0B0

#B0E0E6

clWebSkyBlue

$EBCE87

#87CEEB

clWebRoyalBlue

$E16941

#4169E1

clWebMediumBlue

$CD0000

#0000CD

clWebMidnightBlue

$701919

#191970

clWebDarkTurquoise

$D1CE00

#00CED1

clWebCadetBlue

$A09E5F

#5F9EA0

clWebDarkCyan

$8B8B00

#008B8B

clWebTeal

$808000

#008080

clWebDeepskyBlue

$FFBF00

#00BFFF

clWebDodgerBlue

$FF901E

#1E90FF

clWebBlue

$FF0000

#0000FF

clWebNavy

$800000

#000080

clWebDarkViolet

$D30094

#9400D3

clWebDarkOrchid

$CC3299

#9932CC

clWebMagenta

$FF00FF

#FF00FF

clWebFuchsia

$FF00FF

#FF00FF

clWebDarkMagenta

$8B008B

#8B008B

clWebMediumVioletRed

$8515C7

#C71585

clWebPaleVioletRed

$9370DB

#DB7093

clWebBlueViolet

$E22B8A

#8A2BE2

clWebMediumOrchid

$D355BA

#BA55D3

clWebMediumPurple

$DB7093

#9370DB

clWebPurple

$800080

#800080

clWebDeepPink

$9314FF

#FF1493

clWebLightPink

$C1B6FF

#FFB6C1

clWebViolet

$EE82EE

#EE82EE

clWebOrchid

$D670DA

#DA70D6

clWebPlum

$DDA0DD

#DDA0DD

clWebThistle

$D8BFD8

#D8BFD8

clWebHotPink

$B469FF

#FF69B4

clWebPink

$CBC0FF

#FFC0CB

clWebLightSteelBlue

$DEC4B0

#B0C4DE

clWebMediumSlateBlue

$EE687B

#7B68EE

clWebLightSlateGray

$998877

#778899

clWebWhite

$FFFFFF

#FFFFFF

clWebLightgrey

$D3D3D3

#D3D3D3

clWebGray

$808080

#808080

clWebSteelBlue

$B48246

#4682B4

clWebSlateBlue

$CD5A6A

#6A5ACD

clWebSlateGray

$908070

#708090

clWebWhiteSmoke

$F5F5F5

#F5F5F5

clWebSilver

$C0C0C0

#C0C0C0

clWebDimGray

$696969

#696969

clWebMistyRose

$E1E4FF

#FFE4E1

clWebDarkSlateBlue

$8B3D48

#483D8B

clWebDarkSlategray

$4F4F2F

#2F4F4F

clWebGainsboro

$DCDCDC

#DCDCDC

clWebDarkGray

$A9A9A9

#A9A9A9

clWebBlack

$000000

#000000

这个表的制作过程:

第一步,先从Delphi的源文件中提取并替换出下面的文本文件:

clBlack=$000000

clMaroon=$000080

clGreen=$008000

clOlive=$008080

clNavy=$800000

clPurple=$800080

clTeal=$808000

clGray=$808080

clSilver=$C0C0C0

clRed=$0000FF

clLime=$00FF00

clYellow=$00FFFF

clBlue=$FF0000

clFuchsia=$FF00FF

clAqua=$FFFF00

clLtGray=$C0C0C0

clDkGray=$808080

clWhite=$FFFFFF

clMoneyGreen=$C0DCC0

clSkyBlue=$F0CAA6

clCream=$F0FBFF

clMedGray=$A4A0A0

clWebSnow=$FAFAFF

clWebFloralWhite=$F0FAFF

clWebLavenderBlush=$F5F0FF

clWebOldLace=$E6F5FD

clWebIvory=$F0FFFF

clWebCornSilk=$DCF8FF

clWebBeige=$DCF5F5

clWebAntiqueWhite=$D7EBFA

clWebWheat=$B3DEF5

clWebAliceBlue=$FFF8F0

clWebGhostWhite=$FFF8F8

clWebLavender=$FAE6E6

clWebSeashell=$EEF5FF

clWebLightYellow=$E0FFFF

clWebPapayaWhip=$D5EFFF

clWebNavajoWhite=$ADDEFF

clWebMoccasin=$B5E4FF

clWebBurlywood=$87B8DE

clWebAzure=$FFFFF0

clWebMintcream=$FAFFF5

clWeb