TC2.0AGV模式下16种标准颜色在Delphi中对应的TColor值是多少，谢谢！

Question

如题，谢谢。

Answer 1

很简单嘛。自己先编一个TC的图形程序，显示16种不同的颜色块，然后在Win98的Command窗口执行，按Alt+Enter，再抓一个图，分析一下就出来了啊！

Answer 2

参考Grapics.pas中的定义:
  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);

Answer 3

查出来了，用TC提供的函数就可以搞定。
FColor[0]:=RGB($00,$00,$00); 
FColor[1]:=RGB($00,$00,$FF); 
FColor[2]:=RGB($00,$FF,$00); 
FColor[3]:=RGB($00,$FF,$FF);
FColor[4]:=RGB(255,$00,$00); 
FColor[5]:=RGB($FF,$00,$FF); 
FColor[6]:=RGB($80,$80,$00); 
FColor[7]:=RGB($C0,$C0,$C0);
FColor[8]:=RGB($80,$80,$80); 
FColor[9]:=RGB($00,$00,$80); 
FColor[10]:=RGB($00,$80,$00); 
FColor[11]:=RGB($00,$80,$80);
FColor[12]:=RGB(128,$00,$00); 
FColor[13]:=RGB($80,$00,$80); 
FColor[14]:=RGB($FF,$FF,$00); 
FColor[15]:=RGB($FF,$FF,$FF);