另外再问一下
delphi里面是这样定义的
type TColor = -$7FFFFFFF-1..$7FFFFFFF;那么用什么可以表示,整型integer可以吗?还是要用其他值.

解决方案 »

  1.   

    clBlack = TColor($000000);
    是0
      

  2.   

    http://community.csdn.net/Expert/topic/4401/4401859.xml?temp=.332638
      

  3.   

    const
      clScrollBar = TColor(COLOR_SCROLLBAR or $80000000);
      clBackground = TColor(COLOR_BACKGROUND or $80000000);
      clActiveCaption = TColor(COLOR_ACTIVECAPTION or $80000000);
      clInactiveCaption = TColor(COLOR_INACTIVECAPTION or $80000000);
      clMenu = TColor(COLOR_MENU or $80000000);
      clWindow = TColor(COLOR_WINDOW or $80000000);
      clWindowFrame = TColor(COLOR_WINDOWFRAME or $80000000);
      clMenuText = TColor(COLOR_MENUTEXT or $80000000);
      clWindowText = TColor(COLOR_WINDOWTEXT or $80000000);
      clCaptionText = TColor(COLOR_CAPTIONTEXT or $80000000);
      clActiveBorder = TColor(COLOR_ACTIVEBORDER or $80000000);
      clInactiveBorder = TColor(COLOR_INACTIVEBORDER or $80000000);
      clAppWorkSpace = TColor(COLOR_APPWORKSPACE or $80000000);
      clHighlight = TColor(COLOR_HIGHLIGHT or $80000000);
      clHighlightText = TColor(COLOR_HIGHLIGHTTEXT or $80000000);
      clBtnFace = TColor(COLOR_BTNFACE or $80000000);
      clBtnShadow = TColor(COLOR_BTNSHADOW or $80000000);
      clGrayText = TColor(COLOR_GRAYTEXT or $80000000);
      clBtnText = TColor(COLOR_BTNTEXT or $80000000);
      clInactiveCaptionText = TColor(COLOR_INACTIVECAPTIONTEXT or $80000000);
      clBtnHighlight = TColor(COLOR_BTNHIGHLIGHT or $80000000);
      cl3DDkShadow = TColor(COLOR_3DDKSHADOW or $80000000);
      cl3DLight = TColor(COLOR_3DLIGHT or $80000000);  clInfoText = TColor(COLOR_INFOTEXT or $80000000);
      clInfoBk = TColor(COLOR_INFOBK or $80000000);
      clHotLight = TColor(COLOR_HOTLIGHT or $80000000);  clGradientActiveCaption = TColor(COLOR_GRADIENTACTIVECAPTION or $80000000);
      clGradientInactiveCaption = TColor(COLOR_GRADIENTINACTIVECAPTION or $80000000);  clMenuHighlight = TColor(COLOR_MENUHILIGHT or $80000000);
      clMenuBar = TColor(COLOR_MENUBAR or $80000000);  clBlack = TColor($000000);
      clMaroon = TColor($000080);
      clGreen = TColor($008000);
      clOlive = TColor($008080);
      clNavy = TColor($800000);
      clPurple = TColor($800080);
      clTeal = TColor($808000);
      clGray = TColor($808080);
      clSilver = TColor($C0C0C0);
      clRed = TColor($0000FF);
      clLime = TColor($00FF00);
      clYellow = TColor($00FFFF);
      clBlue = TColor($FF0000);
      clFuchsia = TColor($FF00FF);
      clAqua = TColor($FFFF00);
      clLtGray = TColor($C0C0C0);
      clDkGray = TColor($808080);
      clWhite = TColor($FFFFFF);
      StandardColorsCount = 16;  clMoneyGreen = TColor($C0DCC0);
      clSkyBlue = TColor($F0CAA6);
      clCream = TColor($F0FBFF);
      clMedGray = TColor($A4A0A0);
      ExtendedColorsCount = 4;  clNone = TColor($1FFFFFFF);
      clDefault = TColor($20000000);