在ColorDialog里预置自定义颜色

用起来还真的挺麻烦.

 1 const
 2   ColorPrefix = 'Color';
 3 
 4 var
 5 
 6   i: integer;
 7 
 8 begin
 9 
10 for i := 0 to 15 do
11 
12   ColorDialog1.CustomColors.Values[ColorPrefix + Char(Ord('A') + i)] := IntToHex(Color_Ary[i], 8); 
13 
14 end;

　　

posted on 2011-07-21 22:44  solokey  阅读(351)  评论(0)  编辑  收藏  举报