程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delphi編程取得系統界面顏色

delphi編程取得系統界面顏色

編輯:Delphi

制作程序時,被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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved