如何得到颜色和字体的字符串名称?(100分)

  • 主题发起人 主题发起人 Pantheon
  • 开始时间 开始时间
font的名称可用Font.Name直接得到,但color的名称不好得到,你大概要自己做一个程序完成转换工作,可以参考一下Graphics单元的TColor定义。
 
关于恣意的名字问题可以使用EnumFonts系列的Win32API,<br>但是Delphi中有一个例子程序可以获得全部的字体的,请参考:<br>Demos/Ownerlst<br><br>关于色彩我一时也没有什么头绪
 
自己编程序不显得太消耗资源了吗?这么多字符串的说。
 
明天,如果我还来的话。我可以给你一段程序。<br>用了一个Delphi的内部函数。可以把列举型的变量变为字符。
 
我想应该先取得颜色数,<br>var i:integer;<br>begin<br>//以取得活动窗口标题颜色为例<br>i :=GetSysColor(COLOR_ACTIVECAPTION);<br>end;<br>然后再转换一下,颜色名和颜色数之间应有对应关系,不过这个我暂时还没找到。
 
colortostring
 
多人接受答案了。
 
呵呵,抢分不成了。 <br>不过我还是把写出来吧.还有个函数是:<br>GetColorvalues<br>具体帮助见delphivcl help
 
后退
顶部