解决 clhotlight 问题.txt

非常棒的一组控件

//在delphi6上安装sp2(33M左右)，可以解决 clHotLight 问题
或
解决的方法在此给大家：
     RzBorde.pas里有
     type
     TColorData = record
     Color: TColor;
     Name: string;
     end;
     
     const
     sciNoColor = -1;
     sciCustom = -2;
     sciCustomPick = -3;
     sciDefault = -4;
     sciBlankCell = -5;
     sciNone = -6;
     
     StockColorsCount = 40;
     TotalColorsCount = 67;
     ColorSwatches: array[ 0..TotalColorsCount - 1 ] of TColorData =
     ( ( Color: $00000000; Name: sRzColorBlack ),
     ( Color: $00003399; Name: sRzColorBrown ),
     ( Color: $00003333; Name: sRzColorOliveGreen ),
     ( Color: $00003300; Name: sRzColorDarkGreen ),
     ( Color: $00663300; Name: sRzColorDarkTeal ),
     ( Color: $00800000; Name: sRzColorDarkBlue ),
     ( Color: $00993333; Name: sRzColorIndigo ),
     ( Color: $00333333; Name: sRzColorGray80 ),
     
     ( Color: $00000080; Name: sRzColorDarkRed ),
     ( Color: $000066FF; Name: sRzColorOrange ),
     ( Color: $00008080; Name: sRzColorDarkYellow ),
     ( Color: $00008000; Name: sRzColorGreen ),
     ( Color: $00808000; Name: sRzColorTeal ),
     ( Color: $00FF0000; Name: sRzColorBlue ),
     ( Color: $00996666; Name: sRzColorBlueGray ),
     ( Color: $00808080; Name: sRzColorGray50 ),
     
     ( Color: $000000FF; Name: sRzColorRed ),
     ( Color: $000099FF; Name: sRzColorLightOrange ),
     ( Color: $0000CC99; Name: sRzColorLime ),
     ( Color: $00669933; Name: sRzColorSeaGreen ),
     ( Color: $00999933; Name: sRzColorAqua ),
     ( Color: $00FF6633; Name: sRzColorLightBlue ),
     ( Color: $00800080; Name: sRzColorViolet ),
     ( Color: $00999999; Name: sRzColorGray40 ),
     
     ( Color: $00FF00FF; Name: sRzColorPink ),
     ( Color: $0000CCFF; Name: sRzColorGold ),
     ( Color: $0000FFFF; Name: sRzColorYellow ),
     ( Color: $0000FF00; Name: sRzColorBrightGreen ),
     ( Color: $00FFFF00; Name: sRzColorTurquoise),
     ( Color: $00FFCC00; Name: sRzColorSkyBlue ),
     ( Color: $00663399; Name: sRzColorPlum ),
     ( Color: $00C0C0C0; Name: sRzColorGray25 ),
     
     ( Color: $00CC99FF; Name: sRzColorRose ),
     ( Color: $0099CCFF; Name: sRzColorTan ),
     ( Color: $0099FFFF; Name: sRzColorLightYellow ),
     ( Color: $00CCFFCC; Name: sRzColorLightGreen ),
     ( Color: $00FFFFCC; Name: sRzColorLightTurquoise ),
     ( Color: $00FFCC99; Name: sRzColorPaleBlue ),
     ( Color: $00FF99CC; Name: sRzColorLavender ),
     ( Color: $00FFFFFF; Name: sRzColorWhite ),
     
     ( Color: clScrollBar; Name: sRzColorScrollBar ),
     ( Color: clBackground; Name: sRzColorBackground ),
     ( Color: clActiveCaption; Name: sRzColorActiveCaption ),
     ( Color: clInactiveCaption; Name: sRzColorInactiveCaption ),
     ( Color: clMenu; Name: sRzColorMenu ),
     ( Color: clWindow; Name: sRzColorWindow ),
     ( Color: clWindowFrame; Name: sRzColorWindowFrame ),
     ( Color: clMenuText; Name: sRzColorMenuText ),
     ( Color: clWindowText; Name: sRzColorWindowText ),
     ( Color: clCaptionText; Name: sRzColorCaptionText ),
     ( Color: clActiveBorder; Name: sRzColorActiveBorder ),
     ( Color: clInactiveBorder; Name: sRzColorInactiveBorder ),
     ( Color: clAppWorkSpace; Name: sRzColorAppWorkSpace ),
     ( Color: clHighlight; Name: sRzColorHighlight ),
     ( Color: clHighlightText; Name: sRzColorHighlightText ),
     ( Color: clBtnFace; Name: sRzColorBtnFace ),
     ( Color: clBtnShadow; Name: sRzColorBtnShadow ),
     ( Color: clGrayText; Name: sRzColorGrayText ),
     ( Color: clBtnText; Name: sRzColorBtnText ),
     ( Color: clInactiveCaptionText; Name: sRzColorInactiveCaptionText ),
     ( Color: clBtnHighlight; Name: sRzColorBtnHighlight ),
     ( Color: cl3DDkShadow; Name: sRzColor3DDkShadow ),
     ( Color: cl3DLight; Name: sRzColor3DLight ),
     ( Color: clInfoText; Name: sRzColorInfoText ),
     ( Color: clInfoBk; Name: sRzColorInfoBk ),
     
     ( Color: clGradientActiveCaption; Name: sRzColorGradientActiveCaption ),
     ( Color: clGradientInactiveCaption; Name: sRzColorGradientInactiveCaption ) );
     
     // ( Color: clMenuBar; Name: sRzColorMenuBar )
     // ( Color: clMenuHighlight; Name: sRzColorMenuHighlight ),
     // ( Color: clHotLight; Name: sRzColorHotLight ),
     {============================}
     这个是我修正后的数据了它有几个值不能认我们取了它然后把数量70---------67就可能了