精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>取得系统颜色(转载)

主题:取得系统颜色(转载)
发信人: daji(妲姬)
整理人: teleme(2001-04-25 22:44:37), 站内信件
制作程序时,被Windows的界面色彩弄得头昏眼花,设计时是一种颜色,色彩搭配得挺好的,可是到了用户手里字体却看不清楚,严重影响了程序效果,所以结合操作系统调配颜色将是令用户用得开心的不可多得的步骤: 

  下面列出了操作系统界面各部位的名称,要取得系统颜色,把参数换一下就可以了。 

COLOR_SCROLLBAR      滚动条 
COLOR_BACKGROUND      桌面背景 
COLOR_ACTIVECAPTION     活动窗口标题 
COLOR_INACTIVECAPTION   非活动窗口标题 
COLOR_MENU         菜单 
COLOR_WINDOW        窗口背景 
COLOR_WINDOWFRAME     窗口框 
COLOR_MENUTEXT       窗口文字 
COLOR_WINDOWTEXT      3D 阴影 (Win95) 
COLOR_CAPTIONTEXT     标题文字 
COLOR_ACTIVEBORDER     活动窗口边框 
COLOR_INACTIVEBORDER    非活动窗口边框 
COLOR_APPWORKSPACE     MDI 窗口背景 
COLOR_HIGHLIGHT      选择条背景 
COLOR_HIGHLIGHTTEXT    选择条文字 
COLOR_BTNFACE       按钮 
COLOR_BTNSHADOW      3D 按钮阴影 
COLOR_GRAYTEXT       灰度文字 
COLOR_BTNTEXT       按钮文字 
COLOR_INACTIVECAPTIONTEXT 非活动窗口文字 
COLOR_BTNHIGHLIGHT     3D 选择按钮} 
var i:integer; 
begin 
//取得活动窗口标题颜色 
i :=GetSysColor(COLOR_ACTIVECAPTION); 
Label1.Caption:='颜色代码为:'+IntTostr(i); 
end; 

(计算机世界)


----
                ^^                                    `_ ,
 ^^           |    |    |      Hello,                -(_)-
      ^^     )_)  )_)  )_)         My Friends!        ,  `
姬海涵      )___))___))___)\                  ,
           )____)____)_____)\\              __)\_
妲姬网苑 _____|____|____|____\\\__    (\_.-'    a`-.
---------\                   /--------(/~~````(/~^^`--------
  ^^^^^ ^^^^^^^^^^^^^^^^^^^^^
    ^^^^      ^^^^     ^^^    ^^      [email protected]
         ^^^^      ^^^

[关闭][返回]